Loading test/compile-asdf.lisp +2 −0 Original line number Diff line number Diff line (in-package #:common-lisp-user) (proclaim '(optimize (speed 2) (safety 3) #-allegro (debug 3))) (load (make-pathname :name "script-support" :defaults *load-pathname*)) (cond Loading test/script-support.lisp +3 −0 Original line number Diff line number Diff line (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* Loading test/test-configuration.script +3 −2 Original line number Diff line number Diff line Loading @@ -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 Loading @@ -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)) Loading Loading
test/compile-asdf.lisp +2 −0 Original line number Diff line number Diff line (in-package #:common-lisp-user) (proclaim '(optimize (speed 2) (safety 3) #-allegro (debug 3))) (load (make-pathname :name "script-support" :defaults *load-pathname*)) (cond Loading
test/script-support.lisp +3 −0 Original line number Diff line number Diff line (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* Loading
test/test-configuration.script +3 −2 Original line number Diff line number Diff line Loading @@ -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 Loading @@ -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)) Loading