Commit f09da70a authored by sds's avatar sds

PRINT-LEVEL.8, PRINT-LEVEL.9: consistency with PRINT-LEVEL.3 requires "#" as the 1st value

parent ea743b29
......@@ -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)")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment