Raymond Toy pushed to branch master at cmucl / cmucl

Commits: 00564a1f by Raymond Toy at 2015-07-25T17:01:27Z 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.

- - - - -

1 changed file:

- tests/pcl.lisp

Changes:

===================================== tests/pcl.lisp ===================================== --- a/tests/pcl.lisp +++ b/tests/pcl.lisp @@ -19,68 +19,49 @@ (defun ,name () ,form) (deftest ,name (,name) ,@values)))

-(require :defsystem) +(require :asdf)

(setf (logical-pathname-translations "pcl-test") (list (list "*.*.*" (merge-pathnames #p"pcl/*.*" *load-truename*))))

-(mk:defsystem :pcl-test - :initially-do (progn ) - :source-pathname "pcl-test:" - :binary-pathname "pcl-test:" - :components - ((:file "pkg" - :source-extension "lisp") - #+gerds-pcl - (:file "ctor" - :source-extension "lisp" - :depends-on ("pkg")) - (:file "defclass" - :source-extension "lisp" - :depends-on ("pkg")) - (:file "make-instance" - :source-extension "lisp" - :depends-on ("pkg" #+gerds-pcl "ctor")) - (:file "reinitialize-instance" - :source-extension "lisp" - :depends-on ("pkg" "make-instance")) - (:file "slot-value" - :source-extension "lisp" - :depends-on ("pkg" "make-instance")) - (:file "slot-boundp" - :source-extension "lisp" - :depends-on ("pkg" "make-instance")) - (:file "slot-missing" - :source-extension "lisp" - :depends-on ("pkg" "make-instance")) - (:file "slot-accessors" - :source-extension "lisp" - :depends-on ("pkg" "make-instance")) - (:file "slot-type" - :source-extension "lisp" - :depends-on ("pkg" "slot-value")) - (:file "inline-access" - :source-extension "lisp" - :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")))) +(asdf:defsystem :pcl-test + :pathname "pcl/" + :components + ((:file "pkg") + #+gerds-pcl + (:file "ctor" + :depends-on ("pkg")) + (:file "defclass" + :depends-on ("pkg")) + (:file "make-instance" + :depends-on ("pkg" #+gerds-pcl "ctor")) + (:file "reinitialize-instance" + :depends-on ("pkg" "make-instance")) + (:file "slot-value" + :depends-on ("pkg" "make-instance")) + (:file "slot-boundp" + :depends-on ("pkg" "make-instance")) + (:file "slot-missing" + :depends-on ("pkg" "make-instance")) + (:file "slot-accessors" + :depends-on ("pkg" "make-instance")) + (:file "slot-type" + :depends-on ("pkg" "slot-value")) + (:file "inline-access" + :depends-on ("pkg" "slot-type")) + (:file "method-combination" + :depends-on ("pkg")) + (:file "pv" + :depends-on ("pkg")) + (:file "defgeneric" + :depends-on ("pkg")) + (:file "defmethod" + :depends-on ("pkg")) + (:file "find-method" + :depends-on ("pkg")) + (:file "methods" + :depends-on ("pkg"))))

-(mk:oos :pcl-test :compile) +(asdf:oos 'asdf:load-op :pcl-test)

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/00564a1f97e0506ea3343d50c8...