X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftoplevel.lisp;h=b8fc243fbabbbe7db922214e5b2a784e55705ab0;hb=aa61c7571b33b86981301f34d3acdb66666f53a3;hp=cd9463c4447c7e01a42ebfb3db6890c8cc6ec992;hpb=3b7bcf8ff3727a7f68102f7458805d1bebee5e78;p=sbcl.git

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index cd9463c..b8fc243 100644
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -409,8 +409,6 @@
 						   'string
 						   user-home
 						   "/.sbclrc"))))
-	(/show0 "assigned SYSINIT-TRUENAME and USERINIT-TRUENAME")
-
 
 	;; We wrap all the pre-REPL user/system customized startup code 
 	;; in a restart.
@@ -484,20 +482,14 @@
      ;; way we can convince the GC to just ignore dead areas of the
      ;; control stack, so that we don't need to rely on this
      ;; half-measure?
-     (/show0 "at head of LOOP")
      (scrub-control-stack)
-     (/show0 "back from SCRUB-CONTROL-STACK")
      (unless noprint
        (fresh-line)
-       (/show0 "back from FRESH-LINE")
        (princ (if (functionp *prompt*)
 		  (funcall *prompt*)
 		  *prompt*))
-       (/show0 "back from PRINC")
-       (flush-standard-output-streams)
-       (/show0 "back from FLUSH-STANDARD-OUTPUT-STREAMS"))
+       (flush-standard-output-streams))
      (let ((form (read *standard-input* nil eof-marker)))
-       (/show0 "back from READ")
        (if (eq form eof-marker)
 	   (quit)
 	   (let ((results (multiple-value-list (interactive-eval form))))