[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv16093

Modified Files:
	ChangeLog swank-asdf.lisp 
Log Message:
* swank-asdf.lisp (asdf:operation-done-p): Fix reloading on
ASDF2. ASDF2 no longer has `asdf:around' method combination.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/07/02 11:44:15	1.394
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/07/04 15:55:29	1.395
@@ -1,3 +1,8 @@
+2010-07-04  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-asdf.lisp (asdf:operation-done-p): Fix reloading on
+	ASDF2. ASDF2 no longer has `asdf:around' method combination.
+
 2010-07-02  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-fancy-inspector.lisp (docstring-ispec): Don't insert an
--- /project/slime/cvsroot/slime/contrib/swank-asdf.lisp	2010/06/15 08:50:29	1.29
+++ /project/slime/cvsroot/slime/contrib/swank-asdf.lisp	2010/07/04 15:55:29	1.30
@@ -189,12 +189,14 @@
 
 (defvar *recompile-system* nil)
 
-#+#.(swank-backend:with-symbol 'around 'asdf)
-(defmethod asdf:operation-done-p asdf:around ((operation asdf:compile-op)
-                                              component)
-  (unless (eql *recompile-system*
-               (asdf:component-system component))
-    (call-next-method)))
+(defmethod asdf:operation-done-p
+    #+#.(swank-backend:with-symbol 'around 'asdf) asdf:around
+    #-#.(swank-backend:with-symbol 'around 'asdf) :around
+    ((operation asdf:compile-op)
+     component)
+    (unless (eql *recompile-system*
+                 (asdf:component-system component))
+      (call-next-method)))
 
 (defslimefun reload-system (name)
   (let ((*recompile-system* (asdf:find-system name)))