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/ALAGG.lsp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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

diff --git a/src/algebra/strap/ALAGG.lsp b/src/algebra/strap/ALAGG.lsp
index 662bc48d..e8aa377c 100644
--- a/src/algebra/strap/ALAGG.lsp
+++ b/src/algebra/strap/ALAGG.lsp
@@ -17,7 +17,7 @@
                     (COND
                       (|AssociationListAggregate;CAT|)
                       ('T
-                       (LETT |AssociationListAggregate;CAT|
+                       (SETQ |AssociationListAggregate;CAT|
                              (|Join| (|TableAggregate| '|t#1| '|t#2|)
                                      (|ListAggregate| '#1#)
                                      (|mkCategory| '|domain|
@@ -28,8 +28,7 @@
                                             "failed")
                                            |t#1| $))
                                          T))
-                                      NIL 'NIL NIL))
-                             |AssociationListAggregate|)))))))
+                                      NIL 'NIL NIL)))))))))
     (|setShellEntry| #0# 0
         (LIST '|AssociationListAggregate| (|devaluate| |t#1|)
               (|devaluate| |t#2|)))
-- 
cgit v1.2.3