diff --git a/test/script-support.lisp b/test/script-support.lisp index 8e85ee46699264a7c8de1a09338bab88713ab4e1..536c857b52fdb153218f0bd480de01c3b23752cd 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