Skip to content
Snippets Groups Projects
Commit b2f34ac1 authored by Raymond Toy's avatar Raymond Toy
Browse files

Merge branch 'equalp-class' into 'master'

equalp: add new test for instances

See merge request !8
parents c0b3b35d 0a397b5d
No related branches found
No related tags found
No related merge requests found
...@@ -282,6 +282,16 @@ ...@@ -282,6 +282,16 @@
(not (equalp ht1 ht2)))))) (not (equalp ht1 ht2))))))
(0 0 0 0)) (0 0 0 0))
(defclass equalp-class-36 () ((slot1 :initarg :slot1) (slot2 :initarg :slot2)))
;;; If structure is baked 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))
nil)
(deftest equalp.order.1 (deftest equalp.order.1
(let ((i 0) x y) (let ((i 0) x y)
(values (values
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment