Skip to content
Snippets Groups Projects
Commit f09da70a authored by sds's avatar sds
Browse files

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

parent ea743b29
No related branches found
No related tags found
No related merge requests found
...@@ -91,7 +91,8 @@ ...@@ -91,7 +91,8 @@
(write-to-string s :level 0 :readably nil) (write-to-string s :level 0 :readably nil)
(write-to-string s :level 1 :readably nil) (write-to-string s :level 1 :readably nil)
(write-to-string s :level nil :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)"
"#S(PRINT-LEVEL-STRUCT)") "#S(PRINT-LEVEL-STRUCT)")
...@@ -104,7 +105,8 @@ ...@@ -104,7 +105,8 @@
(write-to-string s :level 0 :readably nil) (write-to-string s :level 0 :readably nil)
(write-to-string s :level 1 :readably nil) (write-to-string s :level 1 :readably nil)
(write-to-string s :level nil :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)"
"#S(PRINT-LEVEL-STRUCT)") "#S(PRINT-LEVEL-STRUCT)")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment