diff options
Diffstat (limited to 'src/algebra/strap/SETAGG-.lsp')
-rw-r--r-- | src/algebra/strap/SETAGG-.lsp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/algebra/strap/SETAGG-.lsp b/src/algebra/strap/SETAGG-.lsp index 51617c5b..23a77815 100644 --- a/src/algebra/strap/SETAGG-.lsp +++ b/src/algebra/strap/SETAGG-.lsp @@ -33,11 +33,11 @@ (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$2| (|devaluate| |#2|)) (|dv$| (LIST '|SetAggregate&| |dv$1| |dv$2|)) ($ (|newShell| 16)) (|pv$| (|buildPredVector| 0 0 NIL))) - (|setShellEntry| $ 0 |dv$|) - (|setShellEntry| $ 3 |pv$|) + (SETF (|shellEntry| $ 0) |dv$|) + (SETF (|shellEntry| $ 3) |pv$|) (|stuffDomainSlots| $) - (|setShellEntry| $ 6 |#1|) - (|setShellEntry| $ 7 |#2|) + (SETF (|shellEntry| $ 6) |#1|) + (SETF (|shellEntry| $ 7) |#2|) $)) (MAKEPROP '|SetAggregate&| '|infovec| |