OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

workaround for common-lisp-controller

Browse Source
This commit is contained in:
dlichteblau
2007-05-20 09:39:04 +00:00
parent 7fa3307ec8
commit f88950238f
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
cxml.asd
View File

@ -78,10 +78,14 @@
(defmethod output-files ((operation compile-op) (c utf8dom-file)) (defmethod output-files ((operation compile-op) (c utf8dom-file))
(let* ((normal (car (call-next-method))) (let* ((normal (car (call-next-method)))
(name (concatenate 'string (pathname-name normal) "-utf8")) (name (concatenate 'string (pathname-name normal) "-utf8")))
(of (make-pathname :name name :defaults normal))) (list (make-pathname :name name :defaults normal))))
(setf (slot-value c 'of) of)
(list of))) ;; 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)) (defmethod perform ((o load-op) (c utf8dom-file))
(load (slot-value c 'of))) (load (slot-value c 'of)))