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)