diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-04-14 02:49:24 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-04-14 02:49:24 +0000 |
| commit | d04a3262a6f4493bd65c45ff73b4d1b8243f47a0 (patch) | |
| tree | 8b3f5df0e9c1e2474b39073e9785b407597d7285 /src/algebra/aggcat.spad.pamphlet | |
| parent | 1d44d2feb01bc10dcc8690c4f71a3157b07502bc (diff) | |
| download | open-axiom-d04a3262a6f4493bd65c45ff73b4d1b8243f47a0.tar.gz | |
Update cached Lisp translation.
Diffstat (limited to 'src/algebra/aggcat.spad.pamphlet')
| -rw-r--r-- | src/algebra/aggcat.spad.pamphlet | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/algebra/aggcat.spad.pamphlet b/src/algebra/aggcat.spad.pamphlet index e36fc72f..a308f1e6 100644 --- a/src/algebra/aggcat.spad.pamphlet +++ b/src/algebra/aggcat.spad.pamphlet @@ -5594,9 +5594,9 @@ Note that this code is not included in the generated catdef.spad file. (DEFPARAMETER |AssociationListAggregate;AL| 'NIL) -(DEFUN |AssociationListAggregate| (&REST #0=#:G1402 &AUX #1=#:G1400) +(DEFUN |AssociationListAggregate| (&REST #0=#:G1397 &AUX #1=#:G1395) (DSETQ #1# #0#) - (LET (#2=#:G1401) + (LET (#2=#:G1396) (COND ((SETQ #2# (|assoc| (|devaluateList| #1#) @@ -5611,7 +5611,7 @@ Note that this code is not included in the generated catdef.spad file. #2#)))) (DEFUN |AssociationListAggregate;| (|t#1| |t#2|) - (PROG (#0=#:G1399) + (PROG (#0=#:G1394) (RETURN (PROG1 (LETT #0# (|sublisV| @@ -5619,7 +5619,7 @@ Note that this code is not included in the generated catdef.spad file. (LIST (|devaluate| |t#1|) (|devaluate| |t#2|))) (|sublisV| - (PAIR '(#1=#:G1398) + (PAIR '(#1=#:G1393) (LIST '(|Record| (|:| |key| |t#1|) (|:| |entry| |t#2|)))) (COND |