Commit 9bdde178 authored by pfdietz's avatar pfdietz
Browse files

:readably should be off in prefix tests

parent ec579775
......@@ -557,14 +557,15 @@
(deftest print.symbol.prefix.1
(let ((s (write-to-string (make-symbol "ABC") :gensym t :case :upcase)))
(let ((s (write-to-string (make-symbol "ABC") :gensym t :case :upcase :escape t :readably nil)))
(if (string= s "#:ABC") t s)))
(deftest print.symbol.prefix.2
(let ((s (write-to-string (make-symbol "ABC") :gensym nil :case :upcase)))
(let ((s (write-to-string (make-symbol "ABC") :gensym nil :case :upcase :readably nil)))
(if (string= s "ABC") t s)))
\ No newline at end of file
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