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