X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbackq.lisp;h=f194f45bddb78b8941827755d120a1dd5db31786;hb=b34a3535ed7950a17e5dfe940285dcc10a814cb6;hp=cd418aa40e4ed3a82f442ae13840c3a9f68faee7;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/backq.lisp b/src/code/backq.lisp
index cd418aa..f194f45 100644
--- a/src/code/backq.lisp
+++ b/src/code/backq.lisp
@@ -175,6 +175,7 @@
          (list  'quote thing))
         ((eq flag 'list*)
          (cond ((and (null (cddr thing))
+                     (not (expandable-backq-expression-p (car thing)))
                      (not (expandable-backq-expression-p (cadr thing))))
                 (cons 'backq-cons thing))
                ((expandable-backq-expression-p (car (last thing)))