0.6.12.29:

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

diff --git a/src/code/backq.lisp b/src/code/backq.lisp
index b1afe3b..710e402 100644 (file)
--- a/src/code/backq.lisp
+++ b/src/code/backq.lisp
@@ -11,9 +11,6 @@
 
 (in-package "SB!IMPL")
 
-(file-comment
-  "$Header$")
-
 ;;; The flags passed back by BACKQUOTIFY can be interpreted as follows:
 ;;;
 ;;;   |`,|: [a] => a
@@ -136,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)