From 54e36b452e46355ee95b36e4c22fd9ae2bb0d75b Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 7 Jun 2004 12:36:24 +0000
Subject: [PATCH] Two more backquote related tests for cases that might come
 out as BQ-LIST*

---
 ansi-tests/print-cons.lsp | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/ansi-tests/print-cons.lsp b/ansi-tests/print-cons.lsp
index ae0125e0..4b91a671 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
-- 
GitLab