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

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

diff --git a/src/algebra/strap/DIFRING-.lsp b/src/algebra/strap/DIFRING-.lsp
index db6d32d4..02ec25d9 100644
--- a/src/algebra/strap/DIFRING-.lsp
+++ b/src/algebra/strap/DIFRING-.lsp
@@ -22,9 +22,7 @@
                 (SEQ (EXIT (LETT |r|
                                  (SPADCALL |r| (|getShellEntry| $ 7))
                                  |DIFRING-;differentiate;SNniS;2|)))
-                (LETT |i| (QSADD1 |i|)
-                      |DIFRING-;differentiate;SNniS;2|)
-                (GO G190) G191 (EXIT NIL))
+                (SETQ |i| (QSADD1 |i|)) (GO G190) G191 (EXIT NIL))
            (EXIT |r|))))) 
 
 (DEFUN |DIFRING-;D;SNniS;3| (|r| |n| $)
-- 
cgit v1.2.3