From d04a3262a6f4493bd65c45ff73b4d1b8243f47a0 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 14 Apr 2008 02:49:24 +0000 Subject: Update cached Lisp translation. --- src/algebra/aggcat.spad.pamphlet | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/algebra/aggcat.spad.pamphlet') 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 -- cgit v1.2.3