Commit 54e36b45 authored by pfdietz's avatar pfdietz
Browse files

Two more backquote related tests for cases that might come out as BQ-LIST*

parent f8058fbe
...@@ -137,6 +137,36 @@ ...@@ -137,6 +137,36 @@
nconc (randomly-check-readability (list (car x)) :test #'is-similar)))) nconc (randomly-check-readability (list (car x)) :test #'is-similar))))
nil) nil)
(deftest print.backquote.random.10
(let ((x '`#(,a , .b)))
(loop
repeat 20
nconc (randomly-check-readability x :test #'is-similar)))
nil)
(deftest print.backquote.random.11
(let ((x '`#(,a , @b)))
(loop
repeat 20
nconc (randomly-check-readability x :test #'is-similar)))
nil)
(deftest print.backquote.random.12
(let ((x '`#(,a ,b c)))
(and (consp x)
(symbolp (car x))
(loop
repeat 20
nconc (randomly-check-readability (list (car x)) :test #'is-similar))))
nil)
(deftest print.backquote.random.13
(let ((x '`#(,a ,b c)))
(loop
repeat 20
nconc (randomly-check-readability x :test #'is-similar)))
nil)
;; random circular cons graphs ;; random circular cons graphs
(deftest print.cons.random.2 (deftest print.cons.random.2
(loop repeat 50 (loop repeat 50
......
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