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

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