From 0a737c5a63d423a41f49e59cefd1e0ed9940a469 Mon Sep 17 00:00:00 2001
From: Attila Lendvai <attila@lendvai.name>
Date: Fri, 9 Dec 2016 15:03:18 +0100
Subject: [PATCH] fix logical pathname translation on SBCL and CCL. others not
 tested.

---
 gclload1.lsp | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/gclload1.lsp b/gclload1.lsp
index fef7cef3..22b1861b 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"))
-- 
GitLab