X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fbackq.impure.lisp;h=65583f593c72300d99ea1bea84abf5bba09c8875;hb=428b60fff4247e34ff601810f33976908f22bbc0;hp=c9628a943e7a29b548fec96e63aad6c6c00a20b0;hpb=f4f423b699b25a78e70fb990ca3a434f3e2cbba2;p=sbcl.git

diff --git a/tests/backq.impure.lisp b/tests/backq.impure.lisp
index c9628a9..65583f5 100644
--- a/tests/backq.impure.lisp
+++ b/tests/backq.impure.lisp
@@ -51,9 +51,16 @@
     ("``(FOO ,@,@*Q*)" . (foo a b c sqrt 9))
     ("``(,@,@*QQ*)" . (3 5 4 6))))
 
-(mapc #'(lambda (test)
-          (test-double-backquote (car test) (cdr test)))
+(mapc (lambda (test)
+	(test-double-backquote (car test) (cdr test)))
       *backquote-tests*)
 
+(let ((string "`(foobar a b ,c ,'(e f g) d ,@'(e f g) (h i j) ,@foo)"))
+  (assert (equal (print (read-from-string string)) (read-from-string string))))
+    
+(let ((a '`(1 ,@a ,@b ,.c ,.d)))
+  (let ((*print-circle* t))
+    (assert (equal (read-from-string (write-to-string a)) a))))
+
 ;;; success
 (quit :unix-status 104)