src/compiler/fixup-type.lisp

   1 (in-package "SB!C")
   2
   3 (!begin-collecting-cold-init-forms)
   4
   5 (!cold-init-forms
   6  (map 'nil
   7       (lambda (saetp)
   8         (setf (sb!vm:saetp-ctype saetp)
   9               (specifier-type (sb!vm:saetp-specifier saetp))))
  10       sb!vm:*specialized-array-element-type-properties*))
  11
  12 (!cold-init-forms
  13  (maphash
  14   (lambda (key value)
  15     (declare (ignore key))
  16     (setf (primitive-type-type value)
  17           (specifier-type (type-specifier (primitive-type-type value)))))
  18   *backend-meta-primitive-type-names*))
  19
  20 (!cold-init-forms
  21  (maphash
  22   (lambda (key value)
  23     (declare (ignore key))
  24     (setf (primitive-type-type value)
  25           (specifier-type (type-specifier (primitive-type-type value)))))
  26   *backend-primitive-type-names*))
  27
  28 (!defun-from-collected-cold-init-forms !fixup-type-cold-init)