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

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
(oneway-eval-string): Removed unused function.

Date: Tue Apr 27 17:24:14 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.176 slime/swank.lisp:1.177
--- slime/swank.lisp:1.176	Tue Apr 27 13:47:09 2004
+++ slime/swank.lisp	Tue Apr 27 17:24:14 2004
@@ -14,6 +14,7 @@
            #:create-swank-server
            #:ed-in-emacs
            #:print-indentation-lossage
+           #:swank-debugger-hook
            ;; configurables
            #:*sldb-pprint-frames*
            #:*communication-style*
@@ -883,7 +884,7 @@
   "The list of currenlty active restarts.")
 
 (defun swank-debugger-hook (condition hook)
-  "Debugger entry point, called from *DEBUGGER-HOOK*.
+  "Debugger function for binding *DEBUGGER-HOOK*.
 Sends a message to Emacs declaring that the debugger has been entered,
 then waits to handle further requests from Emacs. Eventually returns
 after Emacs causes a restart to be invoked."
@@ -1083,14 +1084,6 @@
         (send-to-emacs `(:return ,(current-thread)
                          ,(if ok `(:ok ,result) '(:abort)) 
                          ,id))))))
-
-(defslimefun oneway-eval-string (string buffer-package)
-  "Evaluate STRING in BUFFER-PACKAGE, without sending a reply.
-The debugger hook is inhibited during the evaluation."
-  (let* ((*buffer-package* (guess-package-from-string buffer-package))
-         (*package* *buffer-package*)
-         (*debugger-hook* nil))
-    (eval (read-form string))))
 
 (defun format-values-for-echo-area (values)
   (let ((*package* *buffer-package*))