diff options
Diffstat (limited to 'src/algebra/strap/HOAGG.lsp')
-rw-r--r-- | src/algebra/strap/HOAGG.lsp | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/src/algebra/strap/HOAGG.lsp b/src/algebra/strap/HOAGG.lsp index baccec79..7e2bb119 100644 --- a/src/algebra/strap/HOAGG.lsp +++ b/src/algebra/strap/HOAGG.lsp @@ -97,8 +97,8 @@ (|List| |t#1|)) NIL)) . #1=(|HomogeneousAggregate|))))) . #1#) - (SETELT #0# 0 - (LIST '|HomogeneousAggregate| (|devaluate| |t#1|))))))) + (|setShellEntry| #0# 0 + (LIST '|HomogeneousAggregate| (|devaluate| |t#1|))))))) (DEFUN |HomogeneousAggregate| (#0=#:G1399) (LET (#1=#:G1400) @@ -110,10 +110,3 @@ (SETQ #1# (|HomogeneousAggregate;| #0#))) |HomogeneousAggregate;AL|)) #1#)))) - -(SETQ |$CategoryFrame| - (|put| '|HomogeneousAggregate| '|isCategory| T - (|addModemap| '|HomogeneousAggregate| - '(|HomogeneousAggregate| |#1|) - '((|Category|) (|Type|)) T '|HomogeneousAggregate| - |$CategoryFrame|))) |