diff --git a/ansi-tests/get-properties.lsp b/ansi-tests/get-properties.lsp index b1cd1f0fe2242425e60bb2cd218c55a9855a5270..c848154314a7c29dd258a0254fe4de26bdbe2594 100644 --- a/ansi-tests/get-properties.lsp +++ b/ansi-tests/get-properties.lsp @@ -33,9 +33,16 @@ (get-properties '("aa" b c d) (list (copy-seq "aa"))) nil nil nil) +;;; I removed the next test (noticed by Duane Rettig) because +;;; the non-eqness of numbers may not be necesarily preserved. +;;; The standard says numbers may be copied at any time, and +;;; this might mean eql numbers are copied to a canonical eq +;;; value +#| (deftest get-properties.8 (get-properties '(1000000000000 b c d) (list (1+ 999999999999))) nil nil nil) +|# (deftest get-properties.9 (let* ((x (copy-list '(a b c d e f g h a c)))