diff options
Diffstat (limited to 'src/algebra/strap/LNAGG.lsp')
-rw-r--r-- | src/algebra/strap/LNAGG.lsp | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/algebra/strap/LNAGG.lsp b/src/algebra/strap/LNAGG.lsp index 4f274319..42e509b5 100644 --- a/src/algebra/strap/LNAGG.lsp +++ b/src/algebra/strap/LNAGG.lsp @@ -15,7 +15,7 @@ (COND (|LinearAggregate;CAT|) ('T - (LETT |LinearAggregate;CAT| + (SETQ |LinearAggregate;CAT| (|Join| (|IndexedAggregate| '#1# '|t#1|) (|Collection| '|t#1|) (|Eltable| '#2# '$) @@ -59,8 +59,7 @@ (|Integer|)) (|Integer|) (|List| $) (|NonNegativeInteger|)) - NIL)) - |LinearAggregate|))))))) + NIL))))))))) (|setShellEntry| #0# 0 (LIST '|LinearAggregate| (|devaluate| |t#1|))) #0#)) |