From 36e28db2a4b6c79dd1aff496a37a5dea3a742389 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 6 Jun 2004 23:43:07 +0000 Subject: [PATCH] Added test of readable printing of backquoted forms. --- ansi-tests/print-cons.lsp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/ansi-tests/print-cons.lsp b/ansi-tests/print-cons.lsp index c4a735cb..4798cb8d 100644 --- a/ansi-tests/print-cons.lsp +++ b/ansi-tests/print-cons.lsp @@ -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\")") - -- GitLab