aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/strap/ALAGG.lsp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-08-17 08:59:26 +0000
committerdos-reis <gdr@axiomatics.org>2008-08-17 08:59:26 +0000
commit5e504b6abaef6cf7e7c58c17e26bec33856b60c0 (patch)
treefc93b37d696d3c1ca38437a5ad9a815a85fe46b7 /src/algebra/strap/ALAGG.lsp
parentffb91646c6f11e84fa886aa5abc2de61ba291cc1 (diff)
downloadopen-axiom-5e504b6abaef6cf7e7c58c17e26bec33856b60c0.tar.gz
* algebra/Makefile.pamphlet (all-algstrap): New.
* algebra/strap: Update cached Lisp translation.
Diffstat (limited to 'src/algebra/strap/ALAGG.lsp')
-rw-r--r--src/algebra/strap/ALAGG.lsp15
1 files changed, 11 insertions, 4 deletions
diff --git a/src/algebra/strap/ALAGG.lsp b/src/algebra/strap/ALAGG.lsp
index e42de7db..e0bdfbf1 100644
--- a/src/algebra/strap/ALAGG.lsp
+++ b/src/algebra/strap/ALAGG.lsp
@@ -5,9 +5,9 @@
(DEFPARAMETER |AssociationListAggregate;AL| 'NIL)
-(DEFUN |AssociationListAggregate| (&REST #0=#:G1397 &AUX #1=#:G1395)
+(DEFUN |AssociationListAggregate| (&REST #0=#:G1399 &AUX #1=#:G1397)
(DSETQ #1# #0#)
- (LET (#2=#:G1396)
+ (LET (#2=#:G1398)
(COND
((SETQ #2#
(|assoc| (|devaluateList| #1#)
@@ -22,7 +22,7 @@
#2#))))
(DEFUN |AssociationListAggregate;| (|t#1| |t#2|)
- (PROG (#0=#:G1394)
+ (PROG (#0=#:G1396)
(RETURN
(PROG1 (LETT #0#
(|sublisV|
@@ -30,7 +30,7 @@
(LIST (|devaluate| |t#1|)
(|devaluate| |t#2|)))
(|sublisV|
- (PAIR '(#1=#:G1393)
+ (PAIR '(#1=#:G1395)
(LIST '(|Record| (|:| |key| |t#1|)
(|:| |entry| |t#2|))))
(COND
@@ -53,3 +53,10 @@
(SETELT #0# 0
(LIST '|AssociationListAggregate| (|devaluate| |t#1|)
(|devaluate| |t#2|)))))))
+
+(SETQ |$CategoryFrame|
+ (|put| '|AssociationListAggregate| '|isCategory| T
+ (|addModemap| '|AssociationListAggregate|
+ '(|AssociationListAggregate| |#1| |#2|)
+ '((|Category|) (|SetCategory|) (|SetCategory|)) T
+ '|AssociationListAggregate| |$CategoryFrame|)))