Commit a368558e authored by Raymond Toy's avatar Raymond Toy
Browse files

Move defsystem for pcl-tests to its own file. 

The upgrade to ASDF 3.3.0 broke the pcl-tests; this version doesn't
like having the defsystem in the same file.  Thus, move the defsystem
to its own file and load it up in pcl.lisp (via require).
parent a5662d50

tests/pcl-tests.asd

0 → 100644
+39 −0
Original line number Diff line number Diff line 
;;; -*- Mode: lisp -*-



(asdf:defsystem :pcl-tests

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

tests/pcl.lisp

+7 −38
Original line number Diff line number Diff line
@@ -26,42 +26,11 @@ 
		  (merge-pathnames #p"pcl/*.*"

				   *load-truename*))))



(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"))))

;; Just smash it with our path so we don't accidentally look up

;; pcl-files somewhere else.

(setf asdf:*central-registry*

      (list (make-pathname :directory (pathname-directory *load-pathname*))))



(asdf:oos 'asdf:load-op :pcl-test)
 
(require :pcl-tests)



(asdf:oos 'asdf:load-op :pcl-tests)