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

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

diff --git a/src/algebra/strap/VECTOR.lsp b/src/algebra/strap/VECTOR.lsp
index 4e5d078a..ff54456c 100644
--- a/src/algebra/strap/VECTOR.lsp
+++ b/src/algebra/strap/VECTOR.lsp
@@ -30,15 +30,14 @@
   (PROG (#1=#:G1409)
     (RETURN
       (COND
-        ((LETT #1#
+        ((SETQ #1#
                (|lassocShiftWithFunction| (LIST (|devaluate| #0#))
                    (HGET |$ConstructorCache| '|Vector|)
-                   '|domainEqualList|)
-               |Vector|)
+                   '|domainEqualList|))
          (|CDRwithIncrement| #1#))
         ('T
          (UNWIND-PROTECT
-           (PROG1 (|Vector;| #0#) (LETT #1# T |Vector|))
+           (PROG1 (|Vector;| #0#) (SETQ #1# T))
            (COND ((NOT #1#) (HREM |$ConstructorCache| '|Vector|))))))))) 
 
 (DEFUN |Vector;| (|#1|)
-- 
cgit v1.2.3