Fix EQL constraint propagation on constant assigned closure variables

[sbcl.git] / src / compiler / fixup-type.lisp

diff --git a/src/compiler/fixup-type.lisp b/src/compiler/fixup-type.lisp
index 0c101f4..6cfd887 100644 (file)
--- a/src/compiler/fixup-type.lisp
+++ b/src/compiler/fixup-type.lisp
@@ -5,24 +5,8 @@
 (!cold-init-forms
  (map 'nil
       (lambda (saetp)
-       (setf (sb!vm:saetp-ctype saetp)
-             (specifier-type (sb!vm:saetp-specifier saetp))))
+        (setf (sb!vm:saetp-ctype saetp)
+              (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