Skip to content
Snippets Groups Projects
Commit 00564a1f authored by Raymond Toy's avatar Raymond Toy
Browse files

Use asdf instead of defsystem.

Then when the pcl tests are compiled, the fasls are stored somewhere
else instead of in the tests/pcl directory.  This means the src
directory isn't polluted with fasls when we make a source tarball.
parent 627b5faf
No related branches found
No related tags found
No related merge requests found
...@@ -19,68 +19,49 @@ ...@@ -19,68 +19,49 @@
(defun ,name () ,form) (defun ,name () ,form)
(deftest ,name (,name) ,@values))) (deftest ,name (,name) ,@values)))
(require :defsystem) (require :asdf)
(setf (logical-pathname-translations "pcl-test") (setf (logical-pathname-translations "pcl-test")
(list (list "*.*.*" (list (list "*.*.*"
(merge-pathnames #p"pcl/*.*" (merge-pathnames #p"pcl/*.*"
*load-truename*)))) *load-truename*))))
(mk:defsystem :pcl-test (asdf:defsystem :pcl-test
:initially-do (progn ) :pathname "pcl/"
:source-pathname "pcl-test:" :components
:binary-pathname "pcl-test:" ((:file "pkg")
:components #+gerds-pcl
((:file "pkg" (:file "ctor"
:source-extension "lisp") :depends-on ("pkg"))
#+gerds-pcl (:file "defclass"
(:file "ctor" :depends-on ("pkg"))
:source-extension "lisp" (:file "make-instance"
:depends-on ("pkg")) :depends-on ("pkg" #+gerds-pcl "ctor"))
(:file "defclass" (:file "reinitialize-instance"
:source-extension "lisp" :depends-on ("pkg" "make-instance"))
:depends-on ("pkg")) (:file "slot-value"
(:file "make-instance" :depends-on ("pkg" "make-instance"))
:source-extension "lisp" (:file "slot-boundp"
:depends-on ("pkg" #+gerds-pcl "ctor")) :depends-on ("pkg" "make-instance"))
(:file "reinitialize-instance" (:file "slot-missing"
:source-extension "lisp" :depends-on ("pkg" "make-instance"))
:depends-on ("pkg" "make-instance")) (:file "slot-accessors"
(:file "slot-value" :depends-on ("pkg" "make-instance"))
:source-extension "lisp" (:file "slot-type"
:depends-on ("pkg" "make-instance")) :depends-on ("pkg" "slot-value"))
(:file "slot-boundp" (:file "inline-access"
:source-extension "lisp" :depends-on ("pkg" "slot-type"))
:depends-on ("pkg" "make-instance")) (:file "method-combination"
(:file "slot-missing" :depends-on ("pkg"))
:source-extension "lisp" (:file "pv"
:depends-on ("pkg" "make-instance")) :depends-on ("pkg"))
(:file "slot-accessors" (:file "defgeneric"
:source-extension "lisp" :depends-on ("pkg"))
:depends-on ("pkg" "make-instance")) (:file "defmethod"
(:file "slot-type" :depends-on ("pkg"))
:source-extension "lisp" (:file "find-method"
:depends-on ("pkg" "slot-value")) :depends-on ("pkg"))
(:file "inline-access" (:file "methods"
:source-extension "lisp" :depends-on ("pkg"))))
:depends-on ("pkg" "slot-type"))
(:file "method-combination"
:source-extension "lisp"
:depends-on ("pkg"))
(:file "pv"
:source-extension "lisp"
:depends-on ("pkg"))
(:file "defgeneric"
:source-extension "lisp"
:depends-on ("pkg"))
(:file "defmethod"
:source-extension "lisp"
:depends-on ("pkg"))
(:file "find-method"
:source-extension "lisp"
:depends-on ("pkg"))
(:file "methods"
:source-extension "lisp"
:depends-on ("pkg"))))
(mk:oos :pcl-test :compile) (asdf:oos 'asdf:load-op :pcl-test)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment