diff --git a/gclload1.lsp b/gclload1.lsp index fef7cef38d4e258a69f5fe3773c7e467117ff44c..22b1861b0dac2e63049aa4a20091aef067b7c346 100644 --- a/gclload1.lsp +++ b/gclload1.lsp @@ -15,12 +15,12 @@ #+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*)))))) +(setf (logical-pathname-translations "ANSI-TESTS") + `(("AUX;*.*.*" + ,(merge-pathnames "auxiliary/" + (make-pathname + :directory + (pathname-directory *load-truename*)))))) (let (*load-verbose* *load-print* *compile-verbose* *compile-print*) (load "compile-and-load.lsp"))