X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcode%2Fcold-init.lisp;h=eb223cb1163e1444dca1e4c169fcf72d239eaefc;hb=dcb73f3edef1e31078fbe585e2fafbd26743efd7;hp=3ab05a949723027e2fb4d5c8ad067e5bd2b0843e;hpb=54b330585ed41edeb93a289f0e59aec67fa9ded9;p=sbcl.git

diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp
index 3ab05a9..eb223cb 100644
--- a/src/code/cold-init.lisp
+++ b/src/code/cold-init.lisp
@@ -104,6 +104,10 @@
         *cold-init-complete-p* nil
         *type-system-initialized* nil)
 
+  ;; I'm not sure where eval is first called, so I put this first.
+  #!+sb-eval
+  (show-and-call sb!eval::!full-eval-cold-init)
+
   (show-and-call thread-init-or-reinit)
   (show-and-call !typecheckfuns-cold-init)