[slime-cvs] CVS update: slime/swank-sbcl.lisp

[Dan Barlow]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv7740

Modified Files:
	swank-sbcl.lisp 
Log Message:

Date: Mon Oct 20 09:56:44 2003
Author: dbarlow

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.10 slime/swank-sbcl.lisp:1.11
--- slime/swank-sbcl.lisp:1.10	Sun Oct 19 17:40:28 2003
+++ slime/swank-sbcl.lisp	Mon Oct 20 09:56:44 2003
@@ -39,7 +39,6 @@
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (require 'sb-bsd-sockets)
-  (use-package "SB-BSD-SOCKETS")
   (require 'sb-introspect))
 
 (declaim (optimize (debug 3)))
@@ -603,9 +602,9 @@
 (defslimefun sldb-abort ()
   (invoke-restart (find 'abort *sldb-restarts* :key #'restart-name)))
 
-;;; from -openmcl
 (defslimefun throw-to-toplevel ()
-  (throw 'slime-toplevel nil))
+  (invoke-restart 
+   (find 'sb-impl::toplevel *sldb-restarts* :key #'restart-name)))
 
 ;;; Local Variables:
 ;;; eval: (font-lock-add-keywords 'lisp-mode '(("(\\(defslimefun\\)\\s +\\(\\(\\w\\|\\s_\\)+\\)"  (1 font-lock-keyword-face) (2 font-lock-function-name-face))))