diff --git a/ansi-tests/print-cons.lsp b/ansi-tests/print-cons.lsp index 17a40e8bf55b3ca2a98b82110421bbe7c179c22b..ae0125e0eb20af875016f40122bde21897906f35 100644 --- a/ansi-tests/print-cons.lsp +++ b/ansi-tests/print-cons.lsp @@ -104,6 +104,7 @@ (deftest print.backquote.random.6 (let ((x '`(,@a ,@b))) (and (consp x) + (symbolp (car x)) (loop repeat 20 nconc (randomly-check-readability (list (car x)) :test #'is-similar)))) @@ -112,6 +113,7 @@ (deftest print.backquote.random.7 (let ((x '`(,.a ,.b))) (and (consp x) + (symbolp (car x)) (loop repeat 20 nconc (randomly-check-readability (list (car x)) :test #'is-similar)))) @@ -120,6 +122,7 @@ (deftest print.backquote.random.8 (let ((x '`(,a ,b))) (and (consp x) + (symbolp (car x)) (loop repeat 20 nconc (randomly-check-readability (list (car x)) :test #'is-similar)))) @@ -128,6 +131,7 @@ (deftest print.backquote.random.9 (let ((x '`#(,a ,b))) (and (consp x) + (symbolp (car x)) (loop repeat 20 nconc (randomly-check-readability (list (car x)) :test #'is-similar))))