From 1344f6a6ad340a4d749e4b301ad93468cc2586ae Mon Sep 17 00:00:00 2001 From: pfdietz Date: Tue, 27 Jan 2004 00:36:20 +0000 Subject: [PATCH] Removed test after comment by DR --- ansi-tests/get-properties.lsp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/ansi-tests/get-properties.lsp b/ansi-tests/get-properties.lsp index b1cd1f0..c848154 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))) -- GitLab