diff options
author | dos-reis <gdr@axiomatics.org> | 2010-06-06 05:36:53 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-06-06 05:36:53 +0000 |
commit | 4348e69c730e4e3faa7b993ac0dac5ec426a374c (patch) | |
tree | 093aafc4e19ce9661a0aee78ecad4aab58c46e38 /src/algebra/strap/ILIST.lsp | |
parent | f39c8c2ab9bf4ab06fefc09d75bcc95124d0acc1 (diff) | |
download | open-axiom-4348e69c730e4e3faa7b993ac0dac5ec426a374c.tar.gz |
* interp/c-util.boot (needPROGS?): New.
(transformToBackendCode): Use it. Don't add unneeded PROG/RETURN.
Diffstat (limited to 'src/algebra/strap/ILIST.lsp')
-rw-r--r-- | src/algebra/strap/ILIST.lsp | 30 |
1 files changed, 14 insertions, 16 deletions
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|)) |