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