diff --git a/ansi-tests/print-level.lsp b/ansi-tests/print-level.lsp index 2656b185982568e29fa0cf81ec1b360b2d637c92..04f9e6bf13244839adb4b8d5615cf7d97696cba1 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)")