Commit 8a57eee5 authored by Daniel Kochmański's avatar Daniel Kochmański

Merge branch 'master' into 'master'

fix broken test equalp.36

See merge request !11
parents 32552808 b8686731
......@@ -284,12 +284,12 @@
(defclass equalp-class-36 () ((slot1 :initarg :slot1) (slot2 :initarg :slot2)))
;;; If structure is baked up by an instance, it may happen that
;;; If structure is backed up by an instance, it may happen that
;;; instances are compared like structures for `equalp' - slot by
;;; slot. This was a problem in ECL 16.1.3.
(deftest equalp.36
(equalp (make-instance 'test-object :slot1 1 :slot2 2)
(make-instance 'test-object :slot1 1 :slot2 2))
(equalp (make-instance 'equalp-class-36 :slot1 1 :slot2 2)
(make-instance 'equalp-class-36 :slot1 1 :slot2 2))
nil)
(deftest equalp.order.1
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment