From f88950238f9b13666e549f4aff41c4e0b0cc846f Mon Sep 17 00:00:00 2001 From: dlichteblau Date: Sun, 20 May 2007 09:39:04 +0000 Subject: [PATCH] workaround for common-lisp-controller --- cxml.asd | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/cxml.asd b/cxml.asd index 37bc06b..49b826a 100644 --- a/cxml.asd +++ b/cxml.asd @@ -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)))