X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftoplevel.lisp;h=4f3d0f278386dc9c0a1bed7e5b501c0b12e32e58;hb=77d94d36bcfd3d5eea73ad51e6ee621a8938f995;hp=b8cc3a7fadb288d2e8e7d7ab96c8a55cbca14e97;hpb=8a8a8922802460741d6f8f6c11d71b1f414cf3a7;p=sbcl.git

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index b8cc3a7..4f3d0f2 100644
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -306,10 +306,7 @@ steppers to maintain contextual information.")
 
 ;;; the default system top level function
 (defun toplevel-init ()
-
-  (/show0 "entering TOPLEVEL-INIT")
-  (sb!thread::init-job-control)
-  (sb!thread::get-foreground)
+  (/show0 "entering TOPLEVEL-INIT")  
   (let (;; value of --sysinit option
 	(sysinit nil)
 	;; value of --userinit option