0.6.12.7.flaky1:

[sbcl.git] / src / code / toplevel.lisp

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index 02504a2..5e1e791 100644 (file)
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -290,6 +290,8 @@
 (defun toplevel-init ()
 
   (/show0 "entering TOPLEVEL-INIT")
+  (%primitive print "//entering TOPLEVEL-INIT") ; REMOVEME
+
   
   (let ((sysinit nil)        ; value of --sysinit option
        (userinit nil)       ; value of --userinit option