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

[Luke Gorrie]

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

Modified Files:
	swank-backend.lisp 
Log Message:
Removed hook mechanism (now in swank.lisp).

Date: Sun Jun 20 23:14:58 2004
Author: lgorrie

Index: slime/swank-backend.lisp
diff -u slime/swank-backend.lisp:1.54 slime/swank-backend.lisp:1.55
--- slime/swank-backend.lisp:1.54	Sat Jun 19 22:46:24 2004
+++ slime/swank-backend.lisp	Sun Jun 20 23:14:58 2004
@@ -25,10 +25,6 @@
            #:position-pos
            #:print-output-to-string
            #:quit-lisp
-           #:*new-connection-hook*
-           #:*pre-reply-hook*
-           #:add-hook
-           #:run-hook
            ))
 
 (in-package :swank-backend)
@@ -102,28 +98,6 @@
                      (cons `(,(first name) (,(reader (second name)) ,tmp)))
                      (t (error "Malformed syntax in WITH-STRUCT: ~A" name))))
           , at body)))))
-
-;;;; Hooks
-;;;
-;;; We use Emacs-like `add-hook' and `run-hook' utilities to support
-;;; simple indirection. The interface is more CLish than the Emacs
-;;; Lisp one.
-
-(defmacro add-hook (place function)
-  "Add FUNCTION to the list of values on HOOK-VARIABLE."
-  `(pushnew ,function ,place))
-
-(defun run-hook (functions &rest arguments)
-  "Call each of FUNCTIONS with ARGUMENTS."
-  (dolist (function functions)
-    (apply function arguments)))
-
-(defvar *new-connection-hook* '(emacs-connected)
-  "This hook is run each time a connection is established.
-The connection structure is given as the argument.")
-
-(defvar *pre-reply-hook* '()
-  "Hook run (without arguments) immediately before replying to an RPC.")
 
 
 ;;;; TCP server