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

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
(operate-on-system-for-emacs): More generic interface to ASDF.

Date: Wed Apr 14 14:50:25 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.166 slime/swank.lisp:1.167
--- slime/swank.lisp:1.166	Thu Apr  8 11:26:44 2004
+++ slime/swank.lisp	Wed Apr 14 14:50:25 2004
@@ -1252,10 +1252,11 @@
      (let ((*package* *buffer-package*))
        (swank-compile-string string :buffer buffer :position position)))))
 
-(defslimefun load-system-for-emacs (system)
+(defslimefun operate-on-system-for-emacs (system-name operation &rest keywords)
   "Compile and load SYSTEM using ASDF.
 Record compiler notes signalled as `compiler-condition's."
-  (swank-compiler (lambda () (swank-compile-system system))))
+  (swank-compiler (lambda ()
+                    (apply #'operate-on-system system-name operation keywords))))
 
 
 ;;;; Macroexpansion