X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass.lisp;h=fda5bedbc61dc4da243a1715d66628e9c02a84ff;hb=0a7e5d543e632bfa478fd4a96b4d1f583c922553;hp=c25ae3b91582ac291895bcafad27e62bba84923b;hpb=d147d512602d761a2dcdfded506dd1a8f9a140dc;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index c25ae3b..fda5bed 100644
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -1092,15 +1092,15 @@
 				     '(t))))
 	x
       (declare (ignore codes state translation))
-      (let ((inherits-list (if (eq name 't)
-			     ()
-			     (cons 't (reverse inherits))))
+      (let ((inherits-list (if (eq name t)
+			       ()
+			       (cons t (reverse inherits))))
 	    (class (make-built-in-class
 		    :enumerable enumerable
 		    :name name
 		    :translation (if trans-p :initializing nil)
 		    :direct-superclasses
-		    (if (eq name 't)
+		    (if (eq name t)
 		      nil
 		      (mapcar #'sb!xc:find-class direct-superclasses)))))
 	(setf (info :type :kind name) :primitive