From f8058fbe5c979b573762580ea4e188472e96e403 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Mon, 7 Jun 2004 11:34:32 +0000 Subject: [PATCH] Check that the car of the backquote form is a symbol (as it usually is.) --- ansi-tests/print-cons.lsp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/ansi-tests/print-cons.lsp b/ansi-tests/print-cons.lsp index 17a40e8b..ae0125e0 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)))) -- GitLab