From 00564a1f97e0506ea3343d50c87e086e02768fef Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Sat, 25 Jul 2015 17:01:27 -0700
Subject: [PATCH] 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.
---
 tests/pcl.lisp | 97 ++++++++++++++++++++------------------------------
 1 file changed, 39 insertions(+), 58 deletions(-)

diff --git a/tests/pcl.lisp b/tests/pcl.lisp
index dc5944503..2fbf90c67 100644
--- 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)
-- 
GitLab