Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
;;; -*- 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)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment