From 90dee68c255cd77c5e72fb78da8a02d07e3c1c49 Mon Sep 17 00:00:00 2001 From: dos-reis 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/RCAGG.lsp | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'src/algebra/strap/RCAGG.lsp') diff --git a/src/algebra/strap/RCAGG.lsp b/src/algebra/strap/RCAGG.lsp index c03c9f27..46649f33 100644 --- a/src/algebra/strap/RCAGG.lsp +++ b/src/algebra/strap/RCAGG.lsp @@ -60,7 +60,8 @@ (|Integer|) (|List| |t#1|)) NIL)) . #1=(|RecursiveAggregate|))))) . #1#) - (SETELT #0# 0 (LIST '|RecursiveAggregate| (|devaluate| |t#1|))))))) + (|setShellEntry| #0# 0 + (LIST '|RecursiveAggregate| (|devaluate| |t#1|))))))) (DEFUN |RecursiveAggregate| (#0=#:G1398) (LET (#1=#:G1399) @@ -72,9 +73,3 @@ (SETQ #1# (|RecursiveAggregate;| #0#))) |RecursiveAggregate;AL|)) #1#)))) - -(SETQ |$CategoryFrame| - (|put| '|RecursiveAggregate| '|isCategory| T - (|addModemap| '|RecursiveAggregate| - '(|RecursiveAggregate| |#1|) '((|Category|) (|Type|)) - T '|RecursiveAggregate| |$CategoryFrame|))) -- cgit v1.2.3