1.0.3.11: Fix deportation gc safety bug

[sbcl.git] / src / code / backq.lisp

diff --git a/src/code/backq.lisp b/src/code/backq.lisp
index cd418aa..f194f45 100644 (file)
--- 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)))