diff --git a/test/compile-asdf.lisp b/test/compile-asdf.lisp index ce1742df9ddbffc337b5eac5e4d1cd409fd3ee21..1b150ec712407569674aff370ea5ee8ec131796c 100644 --- a/test/compile-asdf.lisp +++ b/test/compile-asdf.lisp @@ -1,5 +1,7 @@ (in-package #:common-lisp-user) +(proclaim '(optimize (speed 2) (safety 3) #-allegro (debug 3))) + (load (make-pathname :name "script-support" :defaults *load-pathname*)) (cond diff --git a/test/script-support.lisp b/test/script-support.lisp index eb354fa7be94e7c9cf8e1b6aa812c5332237970b..0e1440885ae5325f06673bb22d9b229efffae5f2 100644 --- a/test/script-support.lisp +++ b/test/script-support.lisp @@ -1,5 +1,8 @@ (in-package #:common-lisp-user) +(declaim (optimize (speed 2) (safety 3) #-allegro (debug 3))) +(proclaim '(optimize (speed 2) (safety 3) #-allegro (debug 3))) + ;; We can't use asdf:merge-pathnames* because ASDF isn't loaded yet. ;; We still want to work despite and host/device funkiness. (defparameter *test-directory* diff --git a/test/test-configuration.script b/test/test-configuration.script index 96477fa54ece8521c9e96b2f70761cf12daabd53..5b0e4552dcfaf41d9d8aa7d6e5cb0e4d8162bdd4 100644 --- a/test/test-configuration.script +++ b/test/test-configuration.script @@ -46,8 +46,6 @@ (cl-user::quit-on-error -(format t "~&subdirectories of dir2/: ~S~%" (subdirectories (under-test-directory "dir2/"))) -(assert (= 2 (length (subdirectories (under-test-directory "dir2/"))))) (assert (equal (parse-output-translations-string "/foo:/bar::/baz:/quux") '(:output-translations @@ -72,6 +70,9 @@ (create-asd-files) (create-conf-files) +(format t "~&subdirectories of dir2/: ~S~%" (subdirectories (under-test-directory "dir2/"))) +(assert (= 2 (length (subdirectories (under-test-directory "dir2/"))))) + (initialize-source-registry `(:source-registry (:include ,(under-test-directory "conf.d/")) :ignore-inherited-configuration))