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:
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)