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

(limited to 'src/algebra/strap/STAGG-.lsp')

diff --git a/src/algebra/strap/STAGG-.lsp b/src/algebra/strap/STAGG-.lsp
index 0f429a51..3323f313 100644
--- a/src/algebra/strap/STAGG-.lsp
+++ b/src/algebra/strap/STAGG-.lsp
@@ -55,16 +55,15 @@
         (LOOP
           (COND
             ((> |i| |n|) (RETURN (NREVERSE #0#)))
-            (T (LETT #0#
+            (T (SETQ #0#
                      (CONS (|STAGG-;c2| |x|
                                (LETT |x|
                                      (SPADCALL |x|
                                       (|getShellEntry| $ 13))
                                      |STAGG-;first;ANniA;3|)
                                $)
-                           #0#)
-                     |STAGG-;first;ANniA;3|)))
-          (LETT |i| (+ |i| 1) |STAGG-;first;ANniA;3|)))
+                           #0#))))
+          (SETQ |i| (+ |i| 1))))
       (|getShellEntry| $ 15))) 
 
 (DEFUN |STAGG-;c2| (|x| |r| $)
-- 
cgit v1.2.3