X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ferror-error.lisp;h=992b13e231bc5bad1218690f9aca7866a6f4075d;hb=69ef68ba7393e3492c1b4a756d1140f71c2922bc;hp=5a0873a94ac65b22f3c10f0babd01dbab53792ab;hpb=ba7659c92f2b7fac7e9532a3db9114c5bdc4ab55;p=sbcl.git

diff --git a/src/code/error-error.lisp b/src/code/error-error.lisp
index 5a0873a..992b13e 100644
--- a/src/code/error-error.lisp
+++ b/src/code/error-error.lisp
@@ -23,7 +23,7 @@
       (/show0 "*ERROR-THROW-UP-COUNT* too big, trying HALT")
       (%primitive sb!c:halt)
       (/show0 "*ERROR-THROW-UP-COUNT* too big, trying THROW")
-      (throw 'sb!impl::toplevel-catcher nil))
+      (throw 'toplevel-catcher nil))
     (case *error-error-depth*
       (1)
       (2
@@ -31,12 +31,12 @@
       (3
        (incf *error-throw-up-count*)
        (/show0 "*ERROR-ERROR-DEPTH* too big, trying THROW")
-       (throw 'sb!impl::toplevel-catcher nil))
+       (throw 'toplevel-catcher nil))
       (t
        (/show0 "*ERROR-ERROR-DEPTH* too big, trying HALT")
        (%primitive sb!c:halt)
        (/show0 "*ERROR-ERROR-DEPTH* too big, trying THROW")
-       (throw 'sb!impl::toplevel-catcher nil)))
+       (throw 'toplevel-catcher nil)))
 
     (with-standard-io-syntax
       (let ((*print-readably* nil))