X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-type.lisp;h=c4fe88a07e7e91934e73334a1e5dff0416742ffe;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=8aee3f66522b5acea9d22bd833a906471d64ec11;hpb=e240e076bc5bfa07a408a89d2e354e7ec9ff9341;p=sbcl.git

diff --git a/src/code/early-type.lisp b/src/code/early-type.lisp
index 8aee3f6..c4fe88a 100644
--- a/src/code/early-type.lisp
+++ b/src/code/early-type.lisp
@@ -93,7 +93,7 @@
   ;; the Common Lisp type-specifier
   (specifier nil :type t))
 
-(define-type-class hairy)
+(!define-type-class hairy)
 
 ;;; An UNKNOWN-TYPE is a type not known to the type system (not yet
 ;;; defined). We make this distinction since we don't want to complain
@@ -120,7 +120,7 @@
 	    (:include args-type
 		      (class-info (type-class-or-lose 'values)))))
 
-(define-type-class values)
+(!define-type-class values)
 
 (defstruct (function-type
 	    (:include args-type