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