diff --git a/test/asdf-pathname-test.script b/test/asdf-pathname-test.script index edab2e582d5c3a3182c79f69c8f302c6bafea041..c6a679187aff2173265764b2a2f151dfbfe042cd 100644 --- a/test/asdf-pathname-test.script +++ b/test/asdf-pathname-test.script @@ -1,6 +1,6 @@ ;;; -*- Lisp -*- -(defpackage :asdf-pathname-test (:use :asdf :asdf/driver :asdf/common-lisp :asdf/cache :asdf-test)) +(defpackage :asdf-pathname-test (:use :asdf :uiop :uiop/common-lisp :asdf/cache :asdf-test)) (in-package :asdf-pathname-test) ;;(setf *unspecific-pathname-type* nil) diff --git a/test/hello-world-example.asd b/test/hello-world-example.asd index 72190c2ce9f391548e4bf29354f3810eb78c1d3e..c1c5eaad57cefd3161940c9a5ea1b12400fd044a 100644 --- a/test/hello-world-example.asd +++ b/test/hello-world-example.asd @@ -3,5 +3,5 @@ (defsystem :hello-world-example :build-operation program-op :entry-point "hello:entry-point" - :depends-on (:asdf-driver) + :depends-on (:uiop) :components ((:file "hello"))) diff --git a/test/hello.lisp b/test/hello.lisp index 5ffca84bfdc9c95efb9328b2fa81dbf4b29b1e3b..f50a3ad8f2f937bef815ee3066baa4d9a2d502ef 100644 --- a/test/hello.lisp +++ b/test/hello.lisp @@ -1,5 +1,5 @@ (defpackage :hello - (:use :cl :asdf/driver) + (:use :cl :uiop) (:export #:main #:entry-point)) (in-package :hello) diff --git a/test/make-hello-world.lisp b/test/make-hello-world.lisp index c939b51b677677de22038dc0f3fbb39f4ef01564..a51f7fac605320b02174f994690c5695b900a87a 100644 --- a/test/make-hello-world.lisp +++ b/test/make-hello-world.lisp @@ -4,14 +4,14 @@ (load-asdf) #+ecl (require :cmp) -(asdf-test::register-directory asdf-test::*asdf-directory*) ;; we need asdf-driver, and ECL can dump. +(asdf-test::register-directory asdf-test::*asdf-directory*) ;; we need UIOP, and ECL can dump. (asdf-test::register-directory asdf-test::*uiop-directory*) (asdf:upgrade-asdf) ;; may recompile and rename away package asdf? (asdf-test::frob-packages) (with-test () - ;;(dolist (s '(:asdf :asdf/driver :asdf/defsystem :uiop)) (DBG :foo s (asdf::builtin-system-p (find-system s)))) + ;;(dolist (s '(:asdf :uiop :asdf/defsystem :uiop)) (DBG :foo s (asdf::builtin-system-p (find-system s)))) ;;(trace perform-plan perform) (operate 'load-fasl-op :hello-world-example) (operate 'program-op :hello-world-example)) diff --git a/test/script-support.lisp b/test/script-support.lisp index df7b8babbdf9806cf973d48e14857ffbdca57a3a..07f041fd81a5638e9d4be523166f29c3ad2a3b22 100644 --- a/test/script-support.lisp +++ b/test/script-support.lisp @@ -6,7 +6,7 @@ Some constraints: But we *can* rely on ASDF being present *after* we load it. * evaluating this file MUST NOT print anything, because we use it in the forward-ref test to check that nothing is printed. -* We make sure that none of our symbols clash with asdf/driver or asdf, +* We make sure that none of our symbols clash with uiop or asdf, so we may use-package them during testing. |# @@ -320,7 +320,7 @@ is bound, write a message and exit on an error. If (verbose t nil) (loop :for file :in files :do (load (string-downcase file))) - (setf *package* (some 'find-package '(:asdf :asdf/driver :asdf/utility :asdf/package :asdf-test))) + (setf *package* (some 'find-package '(:asdf :uiop :asdf/utility :asdf/package :asdf-test))) (load "contrib/debug.lisp")) (defun load-asdf-lisp (&optional tag) @@ -520,7 +520,7 @@ is bound, write a message and exit on an error. If (defun frob-packages () (format t "Frob packages~%") (use-package :asdf :asdf-test) - (when (find-package :asdf/driver) (use-package :asdf/driver :asdf-test)) + (when (find-package :uiop) (use-package :uiop :asdf-test)) (when (find-package :asdf/cache) (use-package :asdf/cache :asdf-test)) (setf *package* (find-package :asdf-test)) t) diff --git a/test/unintern-foo.lisp b/test/unintern-foo.lisp index d2604a77ab1e37900a3979053e5a3a20bf19aed2..e05dc2a775101ba14ecaf4c3ae03eb5d0c37f1d7 100644 --- a/test/unintern-foo.lisp +++ b/test/unintern-foo.lisp @@ -2,4 +2,4 @@ (when (find-package :asdf-test/deferred-warnings) (delete-package :asdf-test/deferred-warnings))) -(defpackage :asdf-test/deferred-warnings (:use :asdf/driver :asdf/common-lisp)) +(defpackage :asdf-test/deferred-warnings (:use :uiop :uiop/common-lisp))