X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftoplevel.lisp;h=087a71a5ecdc2349a39a116fa24853a23bc9f721;hb=d4bc11580fa8bce443d57d44b41fd3c342e1e412;hp=3c210e5d9f101b64f62c8b6c5556ac374238a731;hpb=77360ee4a1f94c41b807be7ad0e8687199fceef1;p=sbcl.git

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index 3c210e5..087a71a 100644
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -65,21 +65,7 @@
   (let ((caught (gensym "CAUGHT")))
     `(let ((,caught (catch '%end-of-the-world
 		      (/show0 "inside CATCH '%END-OF-THE-WORLD")
-		      (restart-case (progn ,@body)
-			;; KLUDGE: I'd like to name this restart QUIT,
-			;; but then people would hate me, since in CMU
-			;; CL, even though they have essentially the
-			;; same QUIT function as SBCL, the "QUIT"
-			;; command in the debugger means to return to
-			;; the toplevel, not to actually call QUIT. Oh
-			;; well. -- WHN 2000-11-01
-			(end-of-the-world ()
-			  :report (lambda (s)
-				    (format s
-					    "Terminate the current Lisp, ~
-                                            like #'~S."
-					    'quit))
-			  (quit))))))
+		      ,@body)))
        (/show0 "back from CATCH '%END-OF-THE-WORLD, flushing output")
        (flush-standard-output-streams)
        (/show0 "calling UNIX-EXIT")