diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-10-11 21:16:28 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-10-11 21:16:28 +0000 |
| commit | 5687e549faf2a00133c91dd21b48d876e0e2c449 (patch) | |
| tree | 81c27b56ba305a55c7aba8442ff36f7333096050 /src/algebra/strap/ALAGG.lsp | |
| parent | 567d3bbfc92aad2305987e3d6adedcb92615d5d5 (diff) | |
| download | open-axiom-5687e549faf2a00133c91dd21b48d876e0e2c449.tar.gz | |
Update algebra bootstrap cache.
Diffstat (limited to 'src/algebra/strap/ALAGG.lsp')
| -rw-r--r-- | src/algebra/strap/ALAGG.lsp | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/src/algebra/strap/ALAGG.lsp b/src/algebra/strap/ALAGG.lsp index e0bdfbf1..16c80bd0 100644 --- a/src/algebra/strap/ALAGG.lsp +++ b/src/algebra/strap/ALAGG.lsp @@ -5,24 +5,8 @@ (DEFPARAMETER |AssociationListAggregate;AL| 'NIL) -(DEFUN |AssociationListAggregate| (&REST #0=#:G1399 &AUX #1=#:G1397) - (DSETQ #1# #0#) - (LET (#2=#:G1398) - (COND - ((SETQ #2# - (|assoc| (|devaluateList| #1#) - |AssociationListAggregate;AL|)) - (CDR #2#)) - (T (SETQ |AssociationListAggregate;AL| - (|cons5| (CONS (|devaluateList| #1#) - (SETQ #2# - (APPLY - #'|AssociationListAggregate;| #1#))) - |AssociationListAggregate;AL|)) - #2#)))) - (DEFUN |AssociationListAggregate;| (|t#1| |t#2|) - (PROG (#0=#:G1396) + (PROG (#0=#:G1399) (RETURN (PROG1 (LETT #0# (|sublisV| @@ -30,7 +14,7 @@ (LIST (|devaluate| |t#1|) (|devaluate| |t#2|))) (|sublisV| - (PAIR '(#1=#:G1395) + (PAIR '(#1=#:G1398) (LIST '(|Record| (|:| |key| |t#1|) (|:| |entry| |t#2|)))) (COND @@ -54,6 +38,22 @@ (LIST '|AssociationListAggregate| (|devaluate| |t#1|) (|devaluate| |t#2|))))))) +(DEFUN |AssociationListAggregate| (&REST #0=#:G1402 &AUX #1=#:G1400) + (DSETQ #1# #0#) + (LET (#2=#:G1401) + (COND + ((SETQ #2# + (|assoc| (|devaluateList| #1#) + |AssociationListAggregate;AL|)) + (CDR #2#)) + (T (SETQ |AssociationListAggregate;AL| + (|cons5| (CONS (|devaluateList| #1#) + (SETQ #2# + (APPLY + #'|AssociationListAggregate;| #1#))) + |AssociationListAggregate;AL|)) + #2#)))) + (SETQ |$CategoryFrame| (|put| '|AssociationListAggregate| '|isCategory| T (|addModemap| '|AssociationListAggregate| |