Commit 36e28db2 authored by pfdietz's avatar pfdietz
Browse files

Added test of readable printing of backquoted forms.

parent 40bb69ab
......@@ -59,6 +59,13 @@
10)
nil)
(deftest print.backquote.random.1
(let ((x '`(a ,b ,@c (d . ,e) ,.f #(1 2 ,p ,@q ,.r s) g)))
(loop
repeat 20
nconc (randomly-check-readability x)))
nil)
;; random circular cons graphs
(deftest print.cons.random.2
(loop repeat 50
......@@ -154,4 +161,3 @@
:readably nil :pretty nil))
"(# #*1101 \"abc\")")
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