From 71867581e22b81bf538f2a81111bd83138e8f227 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Tue, 7 Apr 2015 09:49:24 -0400
Subject: [PATCH] Fix executable name for allegro variants

---
 tools/invoke-lisp.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tools/invoke-lisp.lisp b/tools/invoke-lisp.lisp
index c6d55762..dd50fac4 100644
--- a/tools/invoke-lisp.lisp
+++ b/tools/invoke-lisp.lisp
@@ -41,7 +41,7 @@ and which systems to test loading with ASDF_TEST_SYSTEMS or s=
                 :for allegro-variant = (conc-keyword :allegro casename charname bitsname smpname)
                 :for fullname = (strcat "Allegro CL"
                                         casefullname charfullname bitsfullname smpfullname)
-                :for executable = (format nil "~(~alisp~a~a~a~)" caseexe charname bitsname smpname) :do
+                :for executable = (format nil "~(~alisp~a~)" caseexe charname) :do
                   (register-lisp-implementation
                    allegro-variant
                    :fullname fullname
-- 
GitLab