X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fearly-type.lisp;h=8dcb9c70b6069db83715c59027c915bcace78425;hb=6c4d4d984b1af6b2a73568cec3ab9c8795cff2da;hp=2eea09772a3a53b5bd43300c2e7238d96acebbd0;hpb=67d2b80e478824a46317419f076ab1f6b020f6b1;p=sbcl.git

diff --git a/src/code/early-type.lisp b/src/code/early-type.lisp
index 2eea097..8dcb9c7 100644
--- a/src/code/early-type.lisp
+++ b/src/code/early-type.lisp
@@ -24,7 +24,7 @@
 (defstruct (hairy-type (:include ctype
 				 (class-info (type-class-or-lose 'hairy))
 				 (enumerable t)
-				 (might-contain-other-types? t))
+				 (might-contain-other-types-p t))
 		       (:copier nil)
 		       #!+cmu (:pure nil))
   ;; the Common Lisp type-specifier of the type we represent
@@ -232,7 +232,7 @@
 ;;; A COMPOUND-TYPE is a type defined out of a set of types, the
 ;;; common parent of UNION-TYPE and INTERSECTION-TYPE.
 (defstruct (compound-type (:include ctype
-				    (might-contain-other-types? t))
+				    (might-contain-other-types-p t))
 			  (:constructor nil)
 			  (:copier nil))
   (types nil :type list :read-only t))