[Git][cmucl/cmucl][master] Use asdf instead of defsystem.

[Raymond Toy]

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) , at 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/00564a1f97e0506ea3343d50c87e086e02768fef
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20150726/e5bf5337/attachment.html>