diff --git a/arrays/load.lsp b/arrays/load.lsp index d5f9756885f6dd91eedae2f64785f30683631e1b..46c225d8bf46c11d4a5fcf27f6994ed8835c80b7 100644 --- a/arrays/load.lsp +++ b/arrays/load.lsp @@ -1,6 +1,6 @@ ;;; Tests on arrays -(compile-and-load "ANSI-TESTS:AUX;array-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;bit-aux.lsp") +(compile-and-load* "array-aux.lsp") +(compile-and-load* "bit-aux.lsp") (in-package #:cl-test) diff --git a/auxiliary/hash-table-aux.lsp b/auxiliary/hash-table-aux.lsp index 0d4f96e810fd4a032d59f90c3de3c98017f83fb0..7ebff96c621e612424c7333d0929c1dd6b408851 100644 --- a/auxiliary/hash-table-aux.lsp +++ b/auxiliary/hash-table-aux.lsp @@ -6,7 +6,7 @@ (eval-when (:load-toplevel :compile-toplevel :execute) - (compile-and-load "ANSI-TESTS:AUX;random-aux.lsp")) + (compile-and-load* "random-aux.lsp")) (defparameter *hash-table-test-iters* 1000) diff --git a/auxiliary/numbers-aux.lsp b/auxiliary/numbers-aux.lsp index eaa5d5b8adb2ad2ab78e5c0fbc7f176d27ed7196..0676484670dabbbdc10db358b0a72835231f188d 100644 --- a/auxiliary/numbers-aux.lsp +++ b/auxiliary/numbers-aux.lsp @@ -6,7 +6,7 @@ (eval-when (:compile-toplevel :load-toplevel :execute) - (compile-and-load "ANSI-TESTS:AUX;random-aux.lsp")) + (compile-and-load* "random-aux.lsp")) ;;; Binary search on reals diff --git a/auxiliary/printer-aux.lsp b/auxiliary/printer-aux.lsp index b90c3d51785caeb745530c9108a8405d025cee93..839c052940055d5194c4b32f30bab4ae87349674 100644 --- a/auxiliary/printer-aux.lsp +++ b/auxiliary/printer-aux.lsp @@ -6,7 +6,7 @@ (eval-when (:compile-toplevel :load-toplevel :execute) - (compile-and-load "ANSI-TESTS:AUX;random-aux.lsp")) + (compile-and-load* "random-aux.lsp")) (defmacro def-print-test (name form result &rest bindings) `(deftest ,name diff --git a/auxiliary/string-aux.lsp b/auxiliary/string-aux.lsp index c7f16c42610ca98e888902ebb731672a73d552a2..ca3720e3ebe5c179a5b8bd2182900c7dc11aacbb 100644 --- a/auxiliary/string-aux.lsp +++ b/auxiliary/string-aux.lsp @@ -6,7 +6,7 @@ (eval-when (:compile-toplevel :load-toplevel :execute) - (compile-and-load "ANSI-TESTS:AUX;random-aux.lsp")) + (compile-and-load* "random-aux.lsp")) (defun my-string-compare (string1 string2 comparison &key (start1 0) end1 (start2 0) end2 case diff --git a/characters/load.lsp b/characters/load.lsp index 232d8b1b9f14e45830f943de0560c9c5249cbf98..8a820936ee5926b791346e5be7bcfb4c1668cde5 100644 --- a/characters/load.lsp +++ b/characters/load.lsp @@ -1,5 +1,5 @@ ;;;; Character tests -(compile-and-load "ANSI-TESTS:AUX;char-aux.lsp") +(compile-and-load* "char-aux.lsp") (in-package #:cl-test) diff --git a/cl-test-package.lsp b/cl-test-package.lsp index c0b14878aad3c5e4ebfe448e75cd3703fb25c54a..7f2b7406b2ece3065fec7ea7d6958b14861ac7dd 100644 --- a/cl-test-package.lsp +++ b/cl-test-package.lsp @@ -8,7 +8,8 @@ (unless pkg (setq pkg (make-package name :use '(:cl :regression-test)))) (let ((*package* pkg)) (shadow '(#:handler-case #:handler-bind)) - (import '(common-lisp-user::compile-and-load) + (import '(common-lisp-user::compile-and-load + common-lisp-user::compile-and-load*) pkg) (export (mapcar #'intern (mapcar #'symbol-name diff --git a/compile-and-load.lsp b/compile-and-load.lsp index 838e859a67d7cb714acc9acaa8f9ca1fb39478ff..4bdc293c5a4c0f6bb8c3aede48eb887e5a495cbb 100644 --- a/compile-and-load.lsp +++ b/compile-and-load.lsp @@ -19,6 +19,9 @@ "List containing pathname, creation times for files that have already been loaded.") +(defun compile-and-load* (pathspec &key force) + (compile-and-load (merge-pathnames pathspec *aux-dir*) :force force)) + (defun compile-and-load (pathspec &key force) "Find the file indicated by PATHSPEC, compiling it first if the associated compiled file is out of date." diff --git a/conditions/load.lsp b/conditions/load.lsp index 736452e5a844a2ed7fecaf759c2623056c928dd0..8389136145940e3828f770505306ecabd27e2287 100644 --- a/conditions/load.lsp +++ b/conditions/load.lsp @@ -1,6 +1,6 @@ ;;; Tests of conditions -(compile-and-load "ANSI-TESTS:AUX;types-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;define-condition-aux.lsp") +(compile-and-load* "types-aux.lsp") +(compile-and-load* "define-condition-aux.lsp") (in-package #:cl-test) diff --git a/cons/load.lsp b/cons/load.lsp index b3b496b5e2dd62df0d6bfbed20e92fcf927ed6d4..120ccd487763a0d853a4fd91379aa16ca4adc949 100644 --- a/cons/load.lsp +++ b/cons/load.lsp @@ -1,5 +1,5 @@ ;;; Tests of conses -(compile-and-load "ANSI-TESTS:AUX;cons-aux.lsp") +(compile-and-load* "cons-aux.lsp") (in-package #:cl-test) diff --git a/data-and-control-flow/load.lsp b/data-and-control-flow/load.lsp index 7e95673041ce9e00d90acdc7dae29ec863a84e86..6b82118ec33cf1e0b29b05212e824de8eaa486b0 100644 --- a/data-and-control-flow/load.lsp +++ b/data-and-control-flow/load.lsp @@ -1,7 +1,7 @@ ;;; Tests of data and control flow -(compile-and-load "ANSI-TESTS:AUX;cons-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;random-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;types-aux.lsp") +(compile-and-load* "cons-aux.lsp") +(compile-and-load* "random-aux.lsp") +(compile-and-load* "types-aux.lsp") (in-package #:cl-test) diff --git a/gclload1.lsp b/gclload1.lsp index 1404afc01d76ce322663cbe5c1a25473b3d58eba..d50191631d46a65a1085023ad066dd39a84f877f 100644 --- a/gclload1.lsp +++ b/gclload1.lsp @@ -23,12 +23,11 @@ #+clisp (setq custom::*warn-on-floating-point-contagion* nil) ;;; Configure logical pathnames -(setf (logical-pathname-translations "ANSI-TESTS") - `(("AUX;*.*.*" - ,(merge-pathnames "auxiliary/" - (make-pathname - :directory - (pathname-directory *load-truename*)))))) +(defvar *aux-dir* + (merge-pathnames "auxiliary/" + (make-pathname + :directory + (pathname-directory *load-truename*)))) (let (*load-verbose* *load-print* *compile-verbose* *compile-print*) (load "compile-and-load.lsp")) @@ -38,13 +37,13 @@ (compile-and-load "rt.lsp") (load "cl-test-package.lsp") (in-package :cl-test) - (compile-and-load "ANSI-TESTS:AUX;ansi-aux-macros.lsp") + (compile-and-load* "ansi-aux-macros.lsp") (handler-bind #-sbcl () #+sbcl ((sb-ext:code-deletion-note #'muffle-warning)) (load "universe.lsp")) - (compile-and-load "ANSI-TESTS:AUX;random-aux.lsp") - (compile-and-load "ANSI-TESTS:AUX;ansi-aux.lsp") + (compile-and-load* "random-aux.lsp") + (compile-and-load* "ansi-aux.lsp") (load "cl-symbol-names.lsp") (load "notes.lsp")) diff --git a/hash-tables/load.lsp b/hash-tables/load.lsp index b5780d6d975fb5714f35441a76e478efc94a42eb..eab70a68f42026e040b0d094ae82ebb2c41d40cd 100644 --- a/hash-tables/load.lsp +++ b/hash-tables/load.lsp @@ -1,4 +1,4 @@ -(compile-and-load "ANSI-TESTS:AUX;hash-table-aux.lsp") +(compile-and-load* "hash-table-aux.lsp") (in-package #:cl-test) diff --git a/numbers/load.lsp b/numbers/load.lsp index 619e4656ecfd189b9c64fa15b2898c3f08d00bae..4317ead757b6d2b3b6abacb48165eca82e57b4cc 100644 --- a/numbers/load.lsp +++ b/numbers/load.lsp @@ -3,21 +3,21 @@ ;;;; Created: Mon Apr 7 07:16:44 2003 ;;;; Contains: Forms to load files containing tests of number concepts -(compile-and-load "ANSI-TESTS:AUX;numbers-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;random-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;floor-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;ffloor-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;ceiling-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;fceiling-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;truncate-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;ftruncate-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;round-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;fround-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;times-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;division-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;exp-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;gcd-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;types-aux.lsp") +(compile-and-load* "numbers-aux.lsp") +(compile-and-load* "random-aux.lsp") +(compile-and-load* "floor-aux.lsp") +(compile-and-load* "ffloor-aux.lsp") +(compile-and-load* "ceiling-aux.lsp") +(compile-and-load* "fceiling-aux.lsp") +(compile-and-load* "truncate-aux.lsp") +(compile-and-load* "ftruncate-aux.lsp") +(compile-and-load* "round-aux.lsp") +(compile-and-load* "fround-aux.lsp") +(compile-and-load* "times-aux.lsp") +(compile-and-load* "division-aux.lsp") +(compile-and-load* "exp-aux.lsp") +(compile-and-load* "gcd-aux.lsp") +(compile-and-load* "types-aux.lsp") (in-package #:cl-test) diff --git a/objects/load.lsp b/objects/load.lsp index 8c7692c5cc751f1abad44d0733a81211f0d33126..fbfdce1756f6c18ac3589e914690f0eb3ab0e85a 100644 --- a/objects/load.lsp +++ b/objects/load.lsp @@ -3,7 +3,7 @@ ;;;; Created: Mon Mar 24 03:39:09 2003 ;;;; Contains: Loader for CLOS-related test files -(compile-and-load "ANSI-TESTS:AUX;defclass-aux.lsp") +(compile-and-load* "defclass-aux.lsp") (in-package #:cl-test) diff --git a/packages/load.lsp b/packages/load.lsp index 9245c97da285d42e9f9c1408f285efa1750ed02e..fdc468db6e2ee3879c785e16646545c62730591a 100644 --- a/packages/load.lsp +++ b/packages/load.lsp @@ -3,8 +3,8 @@ ;;;; Created: Sun Oct 6 00:32:56 2002 ;;;; Contains: Loader for files containing package tests -(compile-and-load "ANSI-TESTS:AUX;packages00-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;package-aux.lsp") +(compile-and-load* "packages00-aux.lsp") +(compile-and-load* "package-aux.lsp") (in-package #:cl-test) diff --git a/pathnames/load.lsp b/pathnames/load.lsp index 0bd8aa8c1bfe62ba97a8c545b7c71755206ef2c5..5442487993421f399efc20ec727455aed9f537e3 100644 --- a/pathnames/load.lsp +++ b/pathnames/load.lsp @@ -1,5 +1,5 @@ ;;;; Tests for pathnames and logical pathnames -(compile-and-load "ANSI-TESTS:AUX;pathnames-aux.lsp") +(compile-and-load* "pathnames-aux.lsp") (in-package #:cl-test) diff --git a/printer/load.lsp b/printer/load.lsp index 4a65cc395c6772824ebc94addcca078dc1749283..02940cf3c2b08b976fdfb1998a83c153b8016dbb 100644 --- a/printer/load.lsp +++ b/printer/load.lsp @@ -1,6 +1,6 @@ ;;;; Tests of the lisp printer -(compile-and-load "ANSI-TESTS:AUX;printer-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;backquote-aux.lsp") +(compile-and-load* "printer-aux.lsp") +(compile-and-load* "backquote-aux.lsp") (in-package #:cl-test) diff --git a/rctest/load.lsp b/rctest/load.lsp index 16867853a1db66539c0fa6d72ba246ca88d58127..554d9e5c059d30248726f81e51b9793580dfc3f3 100644 --- a/rctest/load.lsp +++ b/rctest/load.lsp @@ -4,7 +4,7 @@ (load "../rt-package.lsp") (compile-and-load "../rt.lsp") (load "../cl-test-package.lsp") -(compile-and-load "ANSI-TESTS:AUX;random-aux.lsp") +(compile-and-load* "random-aux.lsp") (load "rctest-package.lsp") (compile-and-load "rctest-util.lsp") (compile-and-load "generator.lsp") diff --git a/rctest/rctest-package.lsp b/rctest/rctest-package.lsp index f1660291b83ceca3c927b5a248e328a64044c581..4d354f77f8b92bb71e7c3c81df07de12206766ee 100644 --- a/rctest/rctest-package.lsp +++ b/rctest/rctest-package.lsp @@ -5,7 +5,7 @@ (defpackage :rctest (:use :cl :cl-test) - (:import-from "COMMON-LISP-USER" #:compile-and-load) + (:import-from "COMMON-LISP-USER" #:compile-and-load #:compile-and-load*) (:export #:generate )) diff --git a/reader/load.lsp b/reader/load.lsp index de2bf595b67c3d0f46f76cdee8cb1f75d2e6e2b6..0b4efb3b2eee3b3eb21ad88742afae67406ff283 100644 --- a/reader/load.lsp +++ b/reader/load.lsp @@ -1,5 +1,5 @@ ;;;; Tests of the reader -(compile-and-load "ANSI-TESTS:AUX;reader-aux.lsp") +(compile-and-load* "reader-aux.lsp") (in-package #:cl-test) diff --git a/sequences/load.lsp b/sequences/load.lsp index ea22f23373b9a788f62d86ac9e87b9131815180a..07ec2a792a241b7de3a1e6e848d21f6e7e31cca8 100644 --- a/sequences/load.lsp +++ b/sequences/load.lsp @@ -1,8 +1,8 @@ ;;; Tests of sequences -(compile-and-load "ANSI-TESTS:AUX;search-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;subseq-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;remove-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;remove-duplicates-aux.lsp") +(compile-and-load* "search-aux.lsp") +(compile-and-load* "subseq-aux.lsp") +(compile-and-load* "remove-aux.lsp") +(compile-and-load* "remove-duplicates-aux.lsp") (in-package #:cl-test) diff --git a/strings/load.lsp b/strings/load.lsp index 3647cb69fc64a11b6557964dc1fbd5e573a1df90..2ac95fff7a7882d4388b9852f54f05e7d7ad9b8d 100644 --- a/strings/load.lsp +++ b/strings/load.lsp @@ -1,5 +1,5 @@ ;;; Tests of strings -(compile-and-load "ANSI-TESTS:AUX;string-aux.lsp") +(compile-and-load* "string-aux.lsp") (in-package #:cl-test) diff --git a/symbols/load.lsp b/symbols/load.lsp index 5ff13d07e4e12145177b44e03d214c49343fc410..e0a57034219864764015e9ce5e5b7b9813f78262 100644 --- a/symbols/load.lsp +++ b/symbols/load.lsp @@ -1,5 +1,5 @@ ;;; Tests of symbols -(compile-and-load "ANSI-TESTS:AUX;cl-symbols-aux.lsp") +(compile-and-load* "cl-symbols-aux.lsp") (in-package #:cl-test) diff --git a/types-and-classes/load.lsp b/types-and-classes/load.lsp index 94ed31df1344ab9c06579ef6d0f540e8a858a4f8..704148cc46b22f5b2d21673f53a68f3feb3c2535 100644 --- a/types-and-classes/load.lsp +++ b/types-and-classes/load.lsp @@ -1,5 +1,5 @@ ;;; Tests of types and classes -(compile-and-load "ANSI-TESTS:AUX;types-aux.lsp") +(compile-and-load* "types-aux.lsp") (in-package #:cl-test)