0.6.11.32:

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

diff --git a/src/code/backq.lisp b/src/code/backq.lisp
index c601ee4..710e402 100644 (file)
--- a/src/code/backq.lisp
+++ b/src/code/backq.lisp
@@ -133,7 +133,7 @@
   (cond ((atom code)
         (cond ((null code)
                (values nil nil))
-              ((or (numberp code) (eq code 't))
+              ((or (numberp code) (eq code t))
                (values t code))
               (t (values *bq-comma-flag* code))))
        ((eq (car code) 'quote)