From 7d0cd86fd5243dc6d350e3ae7b4201698a82b69d Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 6 Jun 2010 13:37:14 +0000
Subject: 	* interp/c-util.boot (mutateToBackendCode): Don't replace
 explicit 	SETQ by LETT.

---
 src/algebra/strap/LSAGG.lsp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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

diff --git a/src/algebra/strap/LSAGG.lsp b/src/algebra/strap/LSAGG.lsp
index 64bb96bb..eeb2b6ed 100644
--- a/src/algebra/strap/LSAGG.lsp
+++ b/src/algebra/strap/LSAGG.lsp
@@ -11,14 +11,13 @@
                 (COND
                   (|ListAggregate;CAT|)
                   ('T
-                   (LETT |ListAggregate;CAT|
+                   (SETQ |ListAggregate;CAT|
                          (|Join| (|StreamAggregate| '|t#1|)
                                  (|FiniteLinearAggregate| '|t#1|)
                                  (|ExtensibleLinearAggregate| '|t#1|)
                                  (|mkCategory| '|domain|
                                      '(((|list| ($ |t#1|)) T)) NIL 'NIL
-                                     NIL))
-                         |ListAggregate|))))))
+                                     NIL))))))))
     (|setShellEntry| #0# 0 (LIST '|ListAggregate| (|devaluate| |t#1|)))
     #0#)) 
 
-- 
cgit v1.2.3