Commit 775ce5ff authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix fasl path for Allegro.

parent f1f3f537
Loading
Loading
Loading
Loading
+4 −1
Original line number Diff line number Diff line
@@ -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