From 4348e69c730e4e3faa7b993ac0dac5ec426a374c Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 6 Jun 2010 05:36:53 +0000
Subject: 	* interp/c-util.boot (needPROGS?): New. 
 (transformToBackendCode): Use it.  Don't add unneeded PROG/RETURN.

---
 src/algebra/strap/ILIST.lsp | 30 ++++++++++++++----------------
 1 file changed, 14 insertions(+), 16 deletions(-)

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

diff --git a/src/algebra/strap/ILIST.lsp b/src/algebra/strap/ILIST.lsp
index f634b5e1..ea18f466 100644
--- a/src/algebra/strap/ILIST.lsp
+++ b/src/algebra/strap/ILIST.lsp
@@ -464,23 +464,21 @@
 
 (DEFUN |IndexedList| (&REST #0=#:G1520 &AUX #1=#:G1518)
   (DSETQ #1# #0#)
-  (PROG ()
+  (PROG (#2=#:G1519)
     (RETURN
-      (PROG (#2=#:G1519)
-        (RETURN
-          (COND
-            ((LETT #2#
-                   (|lassocShiftWithFunction| (|devaluateList| #1#)
-                       (HGET |$ConstructorCache| '|IndexedList|)
-                       '|domainEqualList|)
-                   |IndexedList|)
-             (|CDRwithIncrement| #2#))
-            ('T
-             (UNWIND-PROTECT
-               (PROG1 (APPLY (|function| |IndexedList;|) #1#)
-                 (LETT #2# T |IndexedList|))
-               (COND
-                 ((NOT #2#) (HREM |$ConstructorCache| '|IndexedList|))))))))))) 
+      (COND
+        ((LETT #2#
+               (|lassocShiftWithFunction| (|devaluateList| #1#)
+                   (HGET |$ConstructorCache| '|IndexedList|)
+                   '|domainEqualList|)
+               |IndexedList|)
+         (|CDRwithIncrement| #2#))
+        ('T
+         (UNWIND-PROTECT
+           (PROG1 (APPLY (|function| |IndexedList;|) #1#)
+             (LETT #2# T |IndexedList|))
+           (COND
+             ((NOT #2#) (HREM |$ConstructorCache| '|IndexedList|))))))))) 
 
 (DEFUN |IndexedList;| (|#1| |#2|)
   (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$2| (|devaluate| |#2|))
-- 
cgit v1.2.3