X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fprimtype.lisp;h=dcbc77b41e80e06cdf985e01713085b59d744b7d;hb=993d5b779638756473181dda8d928d33038d4cc3;hp=5ec9ad5de81a869e82aae6457cc41b63f05c4f19;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/compiler/generic/primtype.lisp b/src/compiler/generic/primtype.lisp
index 5ec9ad5..dcbc77b 100644
--- a/src/compiler/generic/primtype.lisp
+++ b/src/compiler/generic/primtype.lisp
@@ -133,7 +133,7 @@
 ;;;; PRIMITIVE-TYPE-OF and friends
 
 ;;; Return the most restrictive primitive type that contains Object.
-(def-vm-support-routine primitive-type-of (object)
+(!def-vm-support-routine primitive-type-of (object)
   (let ((type (ctype-of object)))
     (cond ((not (member-type-p type)) (primitive-type type))
 	  ((equal (member-type-members type) '(nil))
@@ -172,9 +172,9 @@
 ;;; In a bootstrapping situation, we should be careful to use the
 ;;; correct values for the system parameters.
 ;;;
-;;; We need an aux function because we need to use both def-vm-support-routine
-;;; and defun-cached.
-(def-vm-support-routine primitive-type (type)
+;;; We need an aux function because we need to use both
+;;; !DEF-VM-SUPPORT-ROUTINE and defun-cached.
+(!def-vm-support-routine primitive-type (type)
   (primitive-type-aux type))
 (defun-cached (primitive-type-aux
 	       :hash-function (lambda (x)
@@ -352,7 +352,7 @@
 	    (part-of function))
 	   (base-char
 	    (exactly base-char))
-	   (cons
+	   (cons-type
 	    (part-of list))
 	   (t
 	    (any))))