From 775ce5ffdeb10dfff655f606deced1921ec694e3 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Wed, 17 Mar 2010 22:11:06 -0400
Subject: [PATCH] Fix fasl path for Allegro.

---
 test/script-support.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/test/script-support.lisp b/test/script-support.lisp
index 8e85ee46..536c857b 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -11,7 +11,10 @@
 (defvar *asdf-fasl*
   (compile-file-pathname
    (let ((impl (string-downcase
-                (or #+allegro (format nil "~Alisp" excl:*current-case-mode*)
+                (or #+allegro
+                    (ecase excl:*current-case-mode*
+                      (:case-sensitive-lower :mlisp)
+                      (:case-sensitive-upper :alisp))
                     #+armedbear :abcl
                     #+clisp :clisp
                     #+clozure :ccl
-- 
GitLab