[cxml-cvs] CVS cxml

[dlichteblau]

Update of /project/cxml/cvsroot/cxml
In directory clnet:/tmp/cvs-serv1258

Modified Files:
	cxml.asd 
Log Message:
workaround for common-lisp-controller


--- /project/cxml/cvsroot/cxml/cxml.asd	2007/04/22 13:23:54	1.16
+++ /project/cxml/cvsroot/cxml/cxml.asd	2007/05/20 09:39:04	1.17
@@ -78,10 +78,14 @@
 
 (defmethod output-files ((operation compile-op) (c utf8dom-file))
   (let* ((normal (car (call-next-method)))
-	 (name (concatenate 'string (pathname-name normal) "-utf8"))
-	 (of (make-pathname :name name :defaults normal)))
-    (setf (slot-value c 'of) of)
-    (list of)))
+	 (name (concatenate 'string (pathname-name normal) "-utf8")))
+    (list (make-pathname :name name :defaults normal))))
+
+;; must be an extra method because of common-lisp-controller's :around method 
+(defmethod output-files :around ((operation compile-op) (c utf8dom-file))
+  (let ((x (call-next-method)))
+    (setf (slot-value c 'of) (car x))
+    x))
 
 (defmethod perform ((o load-op) (c utf8dom-file))
   (load (slot-value c 'of)))