Update of /project/mcclim/cvsroot/mcclim/Drei/Tests In directory clnet:/tmp/cvs-serv3427/Drei/Tests

Modified Files: lisp-syntax-tests.lisp Log Message: Removed unnecessary nconc method combination.

--- /project/mcclim/cvsroot/mcclim/Drei/Tests/lisp-syntax-tests.lisp 2008/01/19 20:06:01 1.15 +++ /project/mcclim/cvsroot/mcclim/Drei/Tests/lisp-syntax-tests.lisp 2008/01/29 11:18:37 1.16 @@ -1861,13 +1861,12 @@

(defgeneric find-pathnames (module) (:documentation "Get a list of the pathnames of the files -making up an ASDF module/system/component.") - (:method-combination nconc)) +making up an ASDF module/system/component."))

-(defmethod find-pathnames nconc ((module asdf:module)) +(defmethod find-pathnames ((module asdf:module)) (mapcan #'find-pathnames (asdf:module-components module)))

-(defmethod find-pathnames nconc ((module asdf:source-file)) +(defmethod find-pathnames ((module asdf:source-file)) (list (asdf:component-pathname module)))

;; Thank you Mr. Insane 3000!