Commit a368558e authored by Raymond Toy's avatar Raymond Toy

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
Pipeline #187 passed with stage
in 11 minutes and 10 seconds
;;; -*- 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"))))
......@@ -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)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment