X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftoplevel.lisp;h=5e1e791934636524400bbc5dcefde52d7dd20046;hb=d7f6139a91d7d9b0667a597584ae306d958bb2f4;hp=02504a2286a439796f178ff0977efb61442dc3b6;hpb=f2aa2d01b8d69f1c7bff18f86279d4f1018fe127;p=sbcl.git

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index 02504a2..5e1e791 100644
--- 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