X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fbackq.impure.lisp;fp=tests%2Fbackq.impure.lisp;h=ffdeb93ea8fe3d93f3d39d234266843759e801ff;hb=d3b83f6dd38eb620ed0377f71d601a07b21146b0;hp=a9be79beb6e2bcc1dfb7786ba10411a048dfa665;hpb=1a68f34a511841986710cc0012417a8633ab7241;p=sbcl.git

diff --git a/tests/backq.impure.lisp b/tests/backq.impure.lisp
index a9be79b..ffdeb93 100644
--- a/tests/backq.impure.lisp
+++ b/tests/backq.impure.lisp
@@ -55,5 +55,8 @@
 	(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))))
+
 ;;; success
 (quit :unix-status 104)