X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ffixup-type.lisp;h=ca3406c17bfdac6a93918aeb293360245e876f0a;hb=f73c1f391342c797b8daebe4e8c27e5923341b6d;hp=0c101f4643fd1fb9d17b17243f92880f26037892;hpb=9767de1cecfe50560fe1da69fd458b6148a66da3;p=sbcl.git

diff --git a/src/compiler/fixup-type.lisp b/src/compiler/fixup-type.lisp
index 0c101f4..ca3406c 100644
--- a/src/compiler/fixup-type.lisp
+++ b/src/compiler/fixup-type.lisp
@@ -9,20 +9,4 @@
 	      (specifier-type (sb!vm:saetp-specifier saetp))))
       sb!vm:*specialized-array-element-type-properties*))
 
-(!cold-init-forms
- (maphash
-  (lambda (key value)
-    (declare (ignore key))
-    (setf (primitive-type-type value)
-	  (specifier-type (type-specifier (primitive-type-type value)))))
-  *backend-meta-primitive-type-names*))
-
-(!cold-init-forms
- (maphash
-  (lambda (key value)
-    (declare (ignore key))
-    (setf (primitive-type-type value)
-	  (specifier-type (type-specifier (primitive-type-type value)))))
-  *backend-primitive-type-names*))
-
 (!defun-from-collected-cold-init-forms !fixup-type-cold-init)
\ No newline at end of file