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

diff --git a/src/code/typedefs.lisp b/src/code/typedefs.lisp
index e6bce47..b160271 100644
--- a/src/code/typedefs.lisp
+++ b/src/code/typedefs.lisp
@@ -26,7 +26,7 @@
 
 ;;; 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.