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/CLAGG-.lsp | 24 ++++++------------------
 1 file changed, 6 insertions(+), 18 deletions(-)

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

diff --git a/src/algebra/strap/CLAGG-.lsp b/src/algebra/strap/CLAGG-.lsp
index b83cf1da..6d50e7cb 100644
--- a/src/algebra/strap/CLAGG-.lsp
+++ b/src/algebra/strap/CLAGG-.lsp
@@ -54,10 +54,7 @@
                         |CLAGG-;count;MANni;2|)
                   G190
                   (COND
-                    ((OR (ATOM #0#)
-                         (PROGN
-                           (LETT |x| (CAR #0#) |CLAGG-;count;MANni;2|)
-                           NIL))
+                    ((OR (ATOM #0#) (PROGN (SETQ |x| (CAR #0#)) NIL))
                      (GO G191)))
                   (COND
                     ((SPADCALL |x| |f|)
@@ -70,8 +67,7 @@
                           (PROGN
                             (LETT #2# #1# |CLAGG-;count;MANni;2|)
                             (LETT #3# 'T |CLAGG-;count;MANni;2|)))))))
-                  (LETT #0# (CDR #0#) |CLAGG-;count;MANni;2|) (GO G190)
-                  G191 (EXIT NIL))
+                  (SETQ #0# (CDR #0#)) (GO G190) G191 (EXIT NIL))
              (COND (#3# #2#) ('T 0))))))) 
 
 (DEFUN |CLAGG-;any?;MAB;3| (|f| |c| $)
@@ -84,10 +80,7 @@
                         |CLAGG-;any?;MAB;3|)
                   G190
                   (COND
-                    ((OR (ATOM #0#)
-                         (PROGN
-                           (LETT |x| (CAR #0#) |CLAGG-;any?;MAB;3|)
-                           NIL))
+                    ((OR (ATOM #0#) (PROGN (SETQ |x| (CAR #0#)) NIL))
                      (GO G191)))
                   (PROGN
                     (LETT #1# (SPADCALL |x| |f|) |CLAGG-;any?;MAB;3|)
@@ -98,8 +91,7 @@
                        (PROGN
                          (LETT #2# #1# |CLAGG-;any?;MAB;3|)
                          (LETT #3# 'T |CLAGG-;any?;MAB;3|)))))
-                  (LETT #0# (CDR #0#) |CLAGG-;any?;MAB;3|) (GO G190)
-                  G191 (EXIT NIL))
+                  (SETQ #0# (CDR #0#)) (GO G190) G191 (EXIT NIL))
              (COND (#3# #2#) ('T NIL))))))) 
 
 (DEFUN |CLAGG-;every?;MAB;4| (|f| |c| $)
@@ -112,10 +104,7 @@
                         |CLAGG-;every?;MAB;4|)
                   G190
                   (COND
-                    ((OR (ATOM #0#)
-                         (PROGN
-                           (LETT |x| (CAR #0#) |CLAGG-;every?;MAB;4|)
-                           NIL))
+                    ((OR (ATOM #0#) (PROGN (SETQ |x| (CAR #0#)) NIL))
                      (GO G191)))
                   (PROGN
                     (LETT #1# (SPADCALL |x| |f|) |CLAGG-;every?;MAB;4|)
@@ -126,8 +115,7 @@
                        (PROGN
                          (LETT #2# #1# |CLAGG-;every?;MAB;4|)
                          (LETT #3# 'T |CLAGG-;every?;MAB;4|)))))
-                  (LETT #0# (CDR #0#) |CLAGG-;every?;MAB;4|) (GO G190)
-                  G191 (EXIT NIL))
+                  (SETQ #0# (CDR #0#)) (GO G190) G191 (EXIT NIL))
              (COND (#3# #2#) ('T T))))))) 
 
 (DEFUN |CLAGG-;find;MAU;5| (|f| |c| $)
-- 
cgit v1.2.3