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/ILIST.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/algebra/strap/ILIST.lsp b/src/algebra/strap/ILIST.lsp
index b9fcc572..bd099bd0 100644
--- a/src/algebra/strap/ILIST.lsp
+++ b/src/algebra/strap/ILIST.lsp
@@ -211,7 +211,7 @@
 (DEFUN |ILIST;coerce;$Of;21| (|x| $)
   (PROG (|z|)
     (RETURN
-      (LET* ((|y| NIL) (|s| (SPADCALL |x| (|getShellEntry| $ 40))))
+      (LET ((|y| NIL) (|s| (SPADCALL |x| (|getShellEntry| $ 40))))
         (SEQ (LOOP
                (COND
                  ((NOT (NOT (EQ |x| |s|))) (RETURN NIL))
-- 
cgit v1.2.3