X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcold-init.lisp;h=fd3ee813c4167cca85e6ba984cfc5bdbb7282679;hb=992e6a70a0cae3f6d43bdbba18f77306fdf10662;hp=edbcf42dc9ad0b444ac84bfd3a36a4499ef6e293;hpb=acc978383105b5a2bfd970f8a34214fd5774bb2a;p=sbcl.git

diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp
index edbcf42..fd3ee81 100644
--- a/src/code/cold-init.lisp
+++ b/src/code/cold-init.lisp
@@ -146,6 +146,7 @@
   (show-and-call !policy-cold-init-or-resanify)
   (/show0 "back from !POLICY-COLD-INIT-OR-RESANIFY")
 
+  (show-and-call !constantp-cold-init)
   (show-and-call !early-proclaim-cold-init)
 
   ;; KLUDGE: Why are fixups mixed up with toplevel forms? Couldn't