X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fbackend.lisp;h=837baf90ae2a4fc7064180715c218e8abd919c0d;hb=dccfa0f4e378a267744c03b1416accdf9d888987;hp=78a432b9c9a2f7b2f8fc332c00e5be16032a2090;hpb=0b5610d8a220a4b20cbeac958953ca4d67c00038;p=sbcl.git

diff --git a/src/compiler/backend.lisp b/src/compiler/backend.lisp
index 78a432b..837baf9 100644
--- a/src/compiler/backend.lisp
+++ b/src/compiler/backend.lisp
@@ -116,7 +116,7 @@
 ;;; The T primitive-type is kept in this variable so that people who
 ;;; have to special-case it can get at it conveniently. This variable
 ;;; has to be set by the machine-specific VM definition, since the
-;;; DEF-PRIMITIVE-TYPE for T must specify the SCs that boxed objects
+;;; !DEF-PRIMITIVE-TYPE for T must specify the SCs that boxed objects
 ;;; can be allocated in.
 (defvar *backend-t-primitive-type*)
 (declaim (type primitive-type *backend-t-primitive-type*))