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/UFD-.lsp | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

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

diff --git a/src/algebra/strap/UFD-.lsp b/src/algebra/strap/UFD-.lsp
index 014395a3..02114011 100644
--- a/src/algebra/strap/UFD-.lsp
+++ b/src/algebra/strap/UFD-.lsp
@@ -23,10 +23,7 @@
                       G190
                       (COND
                         ((OR (ATOM #0#)
-                             (PROGN
-                               (LETT |f| (CAR #0#)
-                                     |UFD-;squareFreePart;2S;1|)
-                               NIL))
+                             (PROGN (SETQ |f| (CAR #0#)) NIL))
                          (GO G191)))
                       (PROGN
                         (LETT #1# (CAR |f|) |UFD-;squareFreePart;2S;1|)
@@ -39,8 +36,7 @@
                            (PROGN
                              (LETT #2# #1# |UFD-;squareFreePart;2S;1|)
                              (LETT #3# 'T |UFD-;squareFreePart;2S;1|)))))
-                      (LETT #0# (CDR #0#) |UFD-;squareFreePart;2S;1|)
-                      (GO G190) G191 (EXIT NIL))
+                      (SETQ #0# (CDR #0#)) (GO G190) G191 (EXIT NIL))
                  (COND (#3# #2#) ('T (|spadConstant| $ 16))))
                (|getShellEntry| $ 15)))))) 
 
-- 
cgit v1.2.3