diff --git a/tools/invoke-lisp.lisp b/tools/invoke-lisp.lisp index c6d5576213265a2292107b15f21d58dcde19896b..dd50fac452b5b215fc6e89afb264155b8254321f 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