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

[Dan Barlow]

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

Modified Files:
	swank-backend.lisp 
Log Message:
        * swank-backend.lisp (call-with-compilation-hooks): new GF
        should set up all appropriate error condition loggers etc
        to do a compilation preserving the notes.  Implement for
        sbcl, cmucl

Date: Wed Dec 10 21:19:33 2003
Author: dbarlow

Index: slime/swank-backend.lisp
diff -u slime/swank-backend.lisp:1.7 slime/swank-backend.lisp:1.8
--- slime/swank-backend.lisp:1.7	Sun Dec  7 14:16:24 2003
+++ slime/swank-backend.lisp	Wed Dec 10 21:19:33 2003
@@ -5,7 +5,7 @@
 ;;; Copyright (C) 2003, James Bielman  <jamesjb at jamesjb.com>
 ;;; Released into the public domain.
 ;;;
-;;;   $Id: swank-backend.lisp,v 1.7 2003/12/07 19:16:24 heller Exp $
+;;;   $Id: swank-backend.lisp,v 1.8 2003/12/11 02:19:33 dbarlow Exp $
 ;;;
 
 ;; This is a skeletal implementation of the Slime internals interface.
@@ -118,6 +118,12 @@
 
 
 ;;;; Compilation
+
+(defgeneric call-with-compilation-hooks (func)
+  (:documentation
+   "Call FUNC with hooks to trigger SLDB on compiler errors."))
+(defmacro with-compilation-hooks (() &body body)
+  `(call-with-compilation-hooks (lambda () (progn , at body))))
 
 (defgeneric compile-string-for-emacs (string &key buffer position)
   (:documentation