0.8.18.13:

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

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index b8cc3a7..4f3d0f2 100644 (file)
--- 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