X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbackq.lisp;h=710e4025256f8c81d8709f45f38ed812c3e371b6;hb=b19093fa94d6e1785abee99c35c9a610e8777671;hp=c601ee4198a851eb05f1b068092ff30591257eca;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/code/backq.lisp b/src/code/backq.lisp
index c601ee4..710e402 100644
--- 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)