Commit 7183010a authored by Daniel Kochmanski's avatar Daniel Kochmanski

Merge branch 'master' of gitlab.common-lisp.net:ansi-test/ansi-test

parents 04db101c 7bf8a120
...@@ -284,12 +284,12 @@ ...@@ -284,12 +284,12 @@
(defclass equalp-class-36 () ((slot1 :initarg :slot1) (slot2 :initarg :slot2))) (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 ;;; instances are compared like structures for `equalp' - slot by
;;; slot. This was a problem in ECL 16.1.3. ;;; slot. This was a problem in ECL 16.1.3.
(deftest equalp.36 (deftest equalp.36
(equalp (make-instance 'test-object :slot1 1 :slot2 2) (equalp (make-instance 'equalp-class-36 :slot1 1 :slot2 2)
(make-instance 'test-object :slot1 1 :slot2 2)) (make-instance 'equalp-class-36 :slot1 1 :slot2 2))
nil) nil)
(deftest equalp.order.1 (deftest equalp.order.1
......
...@@ -69,6 +69,9 @@ ...@@ -69,6 +69,9 @@
(def-random-suppress-test read-suppress.15 :prefix "#(" :suffix ")") (def-random-suppress-test read-suppress.15 :prefix "#(" :suffix ")")
(def-random-suppress-test read-suppress.16 :chars "0123456789.eEfFsSdDlL+-") (def-random-suppress-test read-suppress.16 :chars "0123456789.eEfFsSdDlL+-")
;; Undefined macro dispatch characters should not signal an error
(def-read-suppress-test read-suppress.17 "#garbage")
(def-read-suppress-test read-suppress.sharp-slash.1 "#\\boguscharname") (def-read-suppress-test read-suppress.sharp-slash.1 "#\\boguscharname")
(def-read-suppress-test read-suppress.sharp-slash.2 "#\\:x") (def-read-suppress-test read-suppress.sharp-slash.2 "#\\:x")
(def-read-suppress-test read-suppress.sharp-slash.3 "#\\::::") (def-read-suppress-test read-suppress.sharp-slash.3 "#\\::::")
......
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