From 3a373a0b802ee86308db78cba8696aa7b6cdf4df Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 23 Jul 2010 21:09:39 +0000
Subject: 	* interp/g-opt.boot (optBind): Check for dependencies in 
 initializations in %bind expressions. 	* interp/g-util.boot (expandBind): The
 body of s %bind expression 	may be a sequence of statements.

---
 src/algebra/strap/OUTFORM.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/algebra/strap/OUTFORM.lsp')

diff --git a/src/algebra/strap/OUTFORM.lsp b/src/algebra/strap/OUTFORM.lsp
index 6bfe294e..400131f1 100644
--- a/src/algebra/strap/OUTFORM.lsp
+++ b/src/algebra/strap/OUTFORM.lsp
@@ -657,7 +657,7 @@
   (CONS 'AGGSET |l|)) 
 
 (DEFUN |OUTFORM;blankSeparate;L$;35| (|l| $)
-  (LET* ((|c| 'CONCATB) (|l1| NIL))
+  (LET ((|c| 'CONCATB) (|l1| NIL))
     (SEQ (LET ((#0=#:G1555 (REVERSE |l|)))
            (LOOP
              (COND
-- 
cgit v1.2.3