diff --git a/ansi-tests/print-cons.lsp b/ansi-tests/print-cons.lsp index ae0125e0eb20af875016f40122bde21897906f35..4b91a671a6fff01c3ec475e39628fc3380d20820 100644 --- a/ansi-tests/print-cons.lsp +++ b/ansi-tests/print-cons.lsp @@ -137,6 +137,36 @@ nconc (randomly-check-readability (list (car x)) :test #'is-similar)))) 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 (deftest print.cons.random.2 (loop repeat 50