X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fgeneric%2Fvm-type.lisp;fp=src%2Fcompiler%2Fgeneric%2Fvm-type.lisp;h=3bec6e1ec54d9388116bfad262c9ad8f991c9f47;hb=9767de1cecfe50560fe1da69fd458b6148a66da3;hp=9c50878187e5c5b0f0a7369dda9aeb39a968a73a;hpb=64a7331285b0eab2c216f52670763c7d192cfdaa;p=sbcl.git

diff --git a/src/compiler/generic/vm-type.lisp b/src/compiler/generic/vm-type.lisp
index 9c50878..3bec6e1 100644
--- a/src/compiler/generic/vm-type.lisp
+++ b/src/compiler/generic/vm-type.lisp
@@ -14,10 +14,6 @@
 
 (in-package "SB!KERNEL")
 
-(/show0 "vm-type.lisp 17")
-
-(!begin-collecting-cold-init-forms)
-
 ;;;; FIXME: I'm not sure where to put this. -- WHN 19990817
 
 (deftype sb!vm:word () `(unsigned-byte ,sb!vm:n-word-bits))
@@ -78,29 +74,6 @@
 
 ;;;; hooks into the type system
 
-;;; the kinds of specialized array that actually exist in this implementation
-(defvar *specialized-array-element-types*)
-(!cold-init-forms
-  (setf *specialized-array-element-types*
-	'(nil
-	  bit
-	  (unsigned-byte 2)
-	  (unsigned-byte 4)
-	  (unsigned-byte 8)
-	  (unsigned-byte 16)
-	  (unsigned-byte 32)
-	  (signed-byte 8)
-	  (signed-byte 16)
-	  (signed-byte 30)
-	  (signed-byte 32)
-	  (complex single-float)
-	  (complex double-float)
-	  #!+long-float (complex long-float)
-	  base-char
-	  single-float
-	  double-float
-	  #!+long-float long-float)))
-
 (sb!xc:deftype unboxed-array (&optional dims)
   (collect ((types (list 'or)))
     (dolist (type *specialized-array-element-types*)
@@ -186,7 +159,3 @@
      'sb!c:check-fun)
     (t
      nil)))
-
-(!defun-from-collected-cold-init-forms !vm-type-cold-init)
-
-(/show0 "vm-type.lisp end of file")