Commit df12e57d authored by pfdietz's avatar pfdietz
Browse files

Test assumed lack of escape, which is not necessarily required.

parent 07ac5b13
......@@ -572,7 +572,9 @@
(let ((s (write-to-string (make-symbol "ABC")
:gensym nil :case :upcase
:readably t :escape nil)))
(if (string= s "#:ABC") t s)))
(if (and (string= (subseq s 0 2) "#:")
(string= (symbol-name (read-from-string s)) "ABC"))
t s)))
t)
(deftest print.symbol.prefix.4
......
Supports Markdown
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