From 9d1a4930b4da48030bb74a80db443b6ec4254712 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Thu, 2 Jul 2015 12:29:29 -0400
Subject: [PATCH] 1.0.11: fix a bug in loop usage.

---
 allegro-variants.lisp | 4 ++--
 lisp-invocation.asd   | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/allegro-variants.lisp b/allegro-variants.lisp
index 940480c..80b9786 100644
--- a/allegro-variants.lisp
+++ b/allegro-variants.lisp
@@ -36,11 +36,11 @@ REGISTER-LISP-IMPLEMENTATION."
               :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~)" caseexe charname) :do
+              :for executable = (format nil "~(~alisp~a~)" caseexe charname)
               :for (exepath imgpath) = (if windowsp
                                            (list (subpathname dir (if (emptyp charfullname) "buildi.exe" "build.exe"))
                                                  (subpathname dir executable :type "dxl"))
-                                           (list (subpathname dir executable) nil))
+                                           (list (subpathname dir executable) nil)) :do
                 (c `(,allegro-variant
                      :fullname ,fullname
                      :name ,(native-namestring exepath)
diff --git a/lisp-invocation.asd b/lisp-invocation.asd
index 60ab0ce..f7543b2 100644
--- a/lisp-invocation.asd
+++ b/lisp-invocation.asd
@@ -13,7 +13,7 @@
   (error "ASDF 3.1.2 required"))
 
 (defsystem "lisp-invocation"
-  :version "1.0.10"
+  :version "1.0.11"
   :author ("Francois-Rene Rideau")
   :maintainer "Francois-Rene Rideau"
   :licence "MIT"
-- 
GitLab