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

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

diff --git a/src/algebra/strap/NNI.lsp b/src/algebra/strap/NNI.lsp
index 9490e64c..50d5af5b 100644
--- a/src/algebra/strap/NNI.lsp
+++ b/src/algebra/strap/NNI.lsp
@@ -45,8 +45,7 @@
   (PROG (#0=#:G1409)
     (RETURN
       (COND
-        ((LETT #0# (HGET |$ConstructorCache| '|NonNegativeInteger|)
-               |NonNegativeInteger|)
+        ((SETQ #0# (HGET |$ConstructorCache| '|NonNegativeInteger|))
          (|CDRwithIncrement| (CDAR #0#)))
         ('T
          (UNWIND-PROTECT
@@ -54,7 +53,7 @@
                                '|NonNegativeInteger|
                                (LIST (CONS NIL
                                       (CONS 1 (|NonNegativeInteger;|))))))
-             (LETT #0# T |NonNegativeInteger|))
+             (SETQ #0# T))
            (COND
              ((NOT #0#)
               (HREM |$ConstructorCache| '|NonNegativeInteger|))))))))) 
-- 
cgit v1.2.3