X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcold-init.lisp;h=06f78ba962735d4b7fb47a357cb62f8c5da27e31;hb=51cf665f514935c8067f86f3850fd917731cada0;hp=cb4c684510fbfe7f8703ebaf617c05d895eb88c8;hpb=c5df202d52732a0dea8dc3558954a729073b7970;p=sbcl.git

diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp
index cb4c684..06f78ba 100644
--- a/src/code/cold-init.lisp
+++ b/src/code/cold-init.lisp
@@ -204,6 +204,9 @@
   ;; DEFTYPEs are.
   (setf *type-system-initialized* t)
 
+  ;; now that the type system is definitely initialized, fixup UNKNOWN
+  ;; types that have crept in.
+  (show-and-call !fixup-type-cold-init)
   ;; run the PROCLAIMs.
   (show-and-call !late-proclaim-cold-init)