From 87f8d549b9c2bf4ce04dbb085bad62430077ee4c Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Thu, 24 Jun 2004 11:28:46 +0000 Subject: [PATCH] Fixed incorrect destructive operation --- ansi-tests/pprint-dispatch.lsp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/ansi-tests/pprint-dispatch.lsp b/ansi-tests/pprint-dispatch.lsp index cc71a21c..e24d25d4 100644 --- a/ansi-tests/pprint-dispatch.lsp +++ b/ansi-tests/pprint-dispatch.lsp @@ -6,7 +6,7 @@ (in-package :cl-test) (deftest pprint-dispatch.1 - (loop for x in *universe* + (loop for x in (append *universe* *cl-symbols*) for vals = (multiple-value-list (pprint-dispatch x)) for vals2 = (multiple-value-list (pprint-dispatch x @@ -27,7 +27,7 @@ (not (cadr vals2))))) collect (list x vals vals2)) nil) - +#| (deftest pprint-dispatch.2 (loop for sym in *cl-symbols* for x = (list sym nil nil) @@ -51,6 +51,7 @@ (not (cadr vals2))))) collect (list x vals vals2)) nil) +|# (deftest pprint-dispatch.3 (my-with-standard-io-syntax @@ -71,7 +72,7 @@ (deftest pprint-dispatch.4 (my-with-standard-io-syntax - (loop for v1 in (delete-if-not #'realp *universe*) + (loop for v1 in (remove-if-not #'realp *universe*) unless (equal (let ((*print-pprint-dispatch* (copy-pprint-dispatch nil)) @@ -93,7 +94,7 @@ (deftest pprint-dispatch.5 (my-with-standard-io-syntax - (loop for v1 in (delete-if-not #'realp *universe*) + (loop for v1 in (remove-if-not #'realp *universe*) unless (equal (let ((*print-pprint-dispatch* (copy-pprint-dispatch nil)) -- GitLab