diff options
Diffstat (limited to 'src/algebra/strap/SETAGG.lsp')
-rw-r--r-- | src/algebra/strap/SETAGG.lsp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/algebra/strap/SETAGG.lsp b/src/algebra/strap/SETAGG.lsp index ed7c4128..3c8ad618 100644 --- a/src/algebra/strap/SETAGG.lsp +++ b/src/algebra/strap/SETAGG.lsp @@ -30,7 +30,8 @@ ((|union| ($ |t#1| $)) T)) '((|partiallyOrderedSet| T)) '((|Boolean|) (|List| |t#1|)) NIL)))))))) - (|setShellEntry| #0# 0 (LIST '|SetAggregate| (|devaluate| |t#1|))) + (SETF (|shellEntry| #0# 0) + (LIST '|SetAggregate| (|devaluate| |t#1|))) #0#)) (DEFUN |SetAggregate| (#0=#:G1373) |