bug#26639: 26.0.50; gethash can't find value from equal key

[Damien Cassou <damien@cassou.me>]

[-- Attachment #1: Type: text/plain, Size: 355 bytes --]

The problem seems to be due to

[056548283884d61b1b9637c3e56855ce3a17274d] Make cl-defstruct use
records.

I attach the result of git bisect as well as the script files I used to
reproduce.


-- 
Damien Cassou
http://damiencassou.seasidehosting.st

"Success is the ability to go from one failure to another without
losing enthusiasm." --Winston Churchill

[-- Attachment #2: script.el --]
[-- Type: text/plain, Size: 350 bytes --]

(let (foo1 foo2 hytmp)
  (require 'cl-lib)
  (cl-defstruct foo slot1 slot2)
  (setq foo1 (make-foo :slot1 "abc" :slot2 "cba"))
  (setq foo2 (make-foo :slot1 "abc" :slot2 "cba"))
  (equal foo1 foo2)
  (setq hytmp (make-hash-table :test 'equal))
  (puthash foo1 'foobar hytmp)
  (when (eq 'no (gethash foo2 hytmp 'no))
    (error "Problematic hash")))

[-- Attachment #3: script.sh --]
[-- Type: application/x-sh, Size: 241 bytes --]

[-- Attachment #4: bisect.log --]
[-- Type: text/plain, Size: 1882 bytes --]

# bad: [53f8f4bf2db097f4a2c68194c55a87c5a1176c8c] Fix XBM colour rendering in NS port (bug#22060)
# good: [511a3c3ba27352fde26ae2371a9d4a64c6418122] Fix display of strike-through text in variable-height lines
git bisect start 'origin/master' '511a3c3ba27352fde26ae2371a9d4a64c6418122'
# good: [e69a5f5e456b39ad37f7d622386063548bea8208] * lisp/emacs-lisp/lisp-mode.el: Don't highlight \( at BOL
git bisect good e69a5f5e456b39ad37f7d622386063548bea8208
# bad: [a2b3fea957440b8358d3632a4a05e41dee964b5d] Deprecate copy-record in favor of copy-sequence
git bisect bad a2b3fea957440b8358d3632a4a05e41dee964b5d
# good: [3887c54544bc2e5f8c2e7c12973887f9b2b88c40] Throw a `search-failed' derived error in Info search
git bisect good 3887c54544bc2e5f8c2e7c12973887f9b2b88c40
# bad: [dd09e72ed6b1c6ba5c584e7aa32d98437d96326a] Allow a CANNOT_DUMP build to use exec-path during bootstrap.
git bisect bad dd09e72ed6b1c6ba5c584e7aa32d98437d96326a
# bad: [f1d34d9136fbf1dc2cf58b5ba36311451f024956] Minor cleanups related to type-of
git bisect bad f1d34d9136fbf1dc2cf58b5ba36311451f024956
# bad: [f4b50dad8d5eade04f495c693c0bca46060b25cb] Make ediff handle remote and quoted file names
git bisect bad f4b50dad8d5eade04f495c693c0bca46060b25cb
# skip: [056548283884d61b1b9637c3e56855ce3a17274d] Make cl-defstruct use records.
git bisect skip 056548283884d61b1b9637c3e56855ce3a17274d
# bad: [8e6f204f44b6183ba73c7d1bec5841f2b7b8bdd0] Make EIEIO use records.
git bisect bad 8e6f204f44b6183ba73c7d1bec5841f2b7b8bdd0
# good: [a2c33430292c79ac520100b1d0e8e7c04dfe426a] Add record objects with user-defined types.
git bisect good a2c33430292c79ac520100b1d0e8e7c04dfe426a
# only skipped commits left to test
# possible first bad commit: [8e6f204f44b6183ba73c7d1bec5841f2b7b8bdd0] Make EIEIO use records.
# possible first bad commit: [056548283884d61b1b9637c3e56855ce3a17274d] Make cl-defstruct use records.