From f09da70a57809b772aa1ca864e83d5cec4e187bb Mon Sep 17 00:00:00 2001 From: sds <sds@localhost> Date: Tue, 14 Jul 2009 20:06:14 +0000 Subject: [PATCH] PRINT-LEVEL.8, PRINT-LEVEL.9: consistency with PRINT-LEVEL.3 requires "#" as the 1st value --- ansi-tests/print-level.lsp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/ansi-tests/print-level.lsp b/ansi-tests/print-level.lsp index 2656b185..04f9e6bf 100644 --- a/ansi-tests/print-level.lsp +++ b/ansi-tests/print-level.lsp @@ -91,7 +91,8 @@ (write-to-string s :level 0 :readably nil) (write-to-string s :level 1 :readably nil) (write-to-string s :level nil :readably nil)))) - "#S(PRINT-LEVEL-STRUCT)" + ;; sds: consistency with PRINT-LEVEL.3 requires "#" as the 1st value + "#" "#S(PRINT-LEVEL-STRUCT)" "#S(PRINT-LEVEL-STRUCT)") @@ -104,7 +105,8 @@ (write-to-string s :level 0 :readably nil) (write-to-string s :level 1 :readably nil) (write-to-string s :level nil :readably nil)))) - "#S(PRINT-LEVEL-STRUCT)" + ;; sds: consistency with PRINT-LEVEL.3 requires "#" as the 1st value + "#" "#S(PRINT-LEVEL-STRUCT)" "#S(PRINT-LEVEL-STRUCT)") -- GitLab