From 5687e549faf2a00133c91dd21b48d876e0e2c449 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 11 Oct 2008 21:16:28 +0000
Subject: Update algebra bootstrap cache.

---
 src/algebra/strap/ALAGG.lsp | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

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

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|
-- 
cgit v1.2.3