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)))