X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftypedefs.lisp;h=b1602716bb721c6cca361eb8ec1405e2e82ca2b3;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=e904423d0e38314f40b8d0df7b7a6ad51c322fbf;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/typedefs.lisp b/src/code/typedefs.lisp
index e904423..b160271 100644
--- a/src/code/typedefs.lisp
+++ b/src/code/typedefs.lisp
@@ -22,14 +22,11 @@
 
 (in-package "SB!KERNEL")
 
-(file-comment
-  "$Header$")
-
 (!begin-collecting-cold-init-forms)
 
 ;;; Define the translation from a type-specifier to a type structure for
 ;;; some particular type. Syntax is identical to DEFTYPE.
-(defmacro def-type-translator (name arglist &body body)
+(defmacro !def-type-translator (name arglist &body body)
   (check-type name symbol)
   ;; FIXME: Now that the T%CL hack is ancient history and we just use CL
   ;; instead, we can probably return to using PARSE-DEFMACRO here.