[slime-cvs] CVS slime/contrib

[trittweiler]

Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv27568/contrib

Modified Files:
	swank-asdf.lisp ChangeLog 
Log Message:

* swank-asdf.lisp (operate-on-system-for-emacs): Wrapped in
  WITH-SWANK-COMPILATION-UNIT.


--- /project/slime/cvsroot/slime/contrib/swank-asdf.lisp	2008/05/19 13:12:56	1.3
+++ /project/slime/cvsroot/slime/contrib/swank-asdf.lisp	2008/07/16 18:44:27	1.4
@@ -15,9 +15,10 @@
 (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 ()
-     (apply #'operate-on-system system-name operation keywords))))
+  (with-swank-compilation-unit (:override nil)
+    (swank-compiler 
+     (lambda ()
+       (apply #'operate-on-system system-name operation keywords)))))
 
 (defun operate-on-system (system-name operation-name &rest keyword-args)
   "Perform OPERATION-NAME on SYSTEM-NAME using ASDF.
--- /project/slime/cvsroot/slime/contrib/ChangeLog	2008/06/07 11:46:15	1.107
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2008/07/16 18:44:28	1.108
@@ -1,3 +1,8 @@
+2008-07-16  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* swank-asdf.lisp (operate-on-system-for-emacs): Wrapped in
+	WITH-SWANK-COMPILATION-UNIT.
+
 2008-06-07  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* slime-parse.el (slime-cl-symbol-name),