Attempt to port to ASDF2 -- tested only on ASDF1 though

This commit is contained in:
David Lichteblau
2010-06-13 15:32:52 +02:00
committed by David Lichteblau
parent 7649cb9b4f
commit 7f4ed3cd41

View File

@ -47,7 +47,8 @@
(asdf:defsystem :cxml-xml (asdf:defsystem :cxml-xml
:default-component-class closure-source-file :default-component-class closure-source-file
:pathname (merge-pathnames :pathname #+asdf2 "xml/"
#-asdf2 (merge-pathnames
"xml/" "xml/"
(make-pathname :name nil :type nil :defaults *load-truename*)) (make-pathname :name nil :type nil :defaults *load-truename*))
:components :components
@ -92,7 +93,8 @@
(asdf:defsystem :cxml-dom (asdf:defsystem :cxml-dom
:default-component-class closure-source-file :default-component-class closure-source-file
:pathname (merge-pathnames :pathname #+asdf2 "dom/"
#-asdf2 (merge-pathnames
"dom/" "dom/"
(make-pathname :name nil :type nil :defaults *load-truename*)) (make-pathname :name nil :type nil :defaults *load-truename*))
:components :components
@ -108,7 +110,8 @@
(asdf:defsystem :cxml-klacks (asdf:defsystem :cxml-klacks
:default-component-class closure-source-file :default-component-class closure-source-file
:pathname (merge-pathnames :pathname #+asdf2 "klacks/"
#-asdf2 (merge-pathnames
"klacks/" "klacks/"
(make-pathname :name nil :type nil :defaults *load-truename*)) (make-pathname :name nil :type nil :defaults *load-truename*))
:serial t :serial t
@ -121,7 +124,8 @@
(asdf:defsystem :cxml-test (asdf:defsystem :cxml-test
:default-component-class closure-source-file :default-component-class closure-source-file
:pathname (merge-pathnames :pathname #+asdf2 "test/"
#-asdf2 (merge-pathnames
"test/" "test/"
(make-pathname :name nil :type nil :defaults *load-truename*)) (make-pathname :name nil :type nil :defaults *load-truename*))
:components ((:file "domtest") (:file "xmlconf")) :components ((:file "domtest") (:file "xmlconf"))