X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-aclrepl%2Frepl.lisp;h=41c685dd28e68fdb2831fb2e0574af6b48778606;hb=cd683d6d402b84a79fbb248d52047b59df7f8d38;hp=9744e68f37853c0736fa11911a1d4d6257c7f31a;hpb=1b6dc22623c7bdc5137e98541f0e21f8f1c55caa;p=sbcl.git

diff --git a/contrib/sb-aclrepl/repl.lisp b/contrib/sb-aclrepl/repl.lisp
index 9744e68..41c685d 100644
--- a/contrib/sb-aclrepl/repl.lisp
+++ b/contrib/sb-aclrepl/repl.lisp
@@ -622,7 +622,7 @@
   (values))
 
 (defun reset-cmd ()
-  (invoke-restart-interactively (find-restart 'sb-impl::toplevel)))
+  (throw 'sb-impl::toplevel-catcher nil))
 
 (defun dirs-cmd ()
   (dolist (dir *dir-stack*)