From 90dee68c255cd77c5e72fb78da8a02d07e3c1c49 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 20 Nov 2008 07:57:14 +0000
Subject: 	* algebra/coerce.spad.pamphlet (CoercibleFrom): New. 
 (ConvertibleFrom): Likewise. 	(RetractableTo): Use it. 	*
 algebra/Makefile.pamphlet (axiom_algebra_layer_0): Include 	KRCFROM and
 KVTFROM. 	* share/algebra/: Update databases.

---
 src/algebra/strap/ALAGG.lsp | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)

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

diff --git a/src/algebra/strap/ALAGG.lsp b/src/algebra/strap/ALAGG.lsp
index 16c80bd0..8d0f1fea 100644
--- a/src/algebra/strap/ALAGG.lsp
+++ b/src/algebra/strap/ALAGG.lsp
@@ -34,9 +34,9 @@
                                          T))
                                       NIL 'NIL NIL))
                                     . #2=(|AssociationListAggregate|)))))) . #2#)
-        (SETELT #0# 0
-                (LIST '|AssociationListAggregate| (|devaluate| |t#1|)
-                      (|devaluate| |t#2|))))))) 
+        (|setShellEntry| #0# 0
+            (LIST '|AssociationListAggregate| (|devaluate| |t#1|)
+                  (|devaluate| |t#2|))))))) 
 
 (DEFUN |AssociationListAggregate| (&REST #0=#:G1402 &AUX #1=#:G1400)
   (DSETQ #1# #0#)
@@ -53,10 +53,3 @@
                                      #'|AssociationListAggregate;| #1#)))
                         |AssociationListAggregate;AL|))
          #2#)))) 
-
-(SETQ |$CategoryFrame|
-      (|put| '|AssociationListAggregate| '|isCategory| T
-             (|addModemap| '|AssociationListAggregate|
-                 '(|AssociationListAggregate| |#1| |#2|)
-                 '((|Category|) (|SetCategory|) (|SetCategory|)) T
-                 '|AssociationListAggregate| |$CategoryFrame|))) 
-- 
cgit v1.2.3