diff options
Diffstat (limited to 'src/algebra/strap/SETAGG-.lsp')
| -rw-r--r-- | src/algebra/strap/SETAGG-.lsp | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/algebra/strap/SETAGG-.lsp b/src/algebra/strap/SETAGG-.lsp index 23a77815..18c5bc2b 100644 --- a/src/algebra/strap/SETAGG-.lsp +++ b/src/algebra/strap/SETAGG-.lsp @@ -14,20 +14,20 @@ |SETAGG-;difference;ASA;4|)) (DEFUN |SETAGG-;symmetricDifference;3A;1| (|x| |y| $) - (SPADCALL (SPADCALL |x| |y| (|getShellEntry| $ 8)) - (SPADCALL |y| |x| (|getShellEntry| $ 8)) (|getShellEntry| $ 9))) + (SPADCALL (SPADCALL |x| |y| (|shellEntry| $ 8)) + (SPADCALL |y| |x| (|shellEntry| $ 8)) (|shellEntry| $ 9))) (DEFUN |SETAGG-;union;ASA;2| (|s| |x| $) - (SPADCALL |s| (SPADCALL (LIST |x|) (|getShellEntry| $ 12)) - (|getShellEntry| $ 9))) + (SPADCALL |s| (SPADCALL (LIST |x|) (|shellEntry| $ 12)) + (|shellEntry| $ 9))) (DEFUN |SETAGG-;union;S2A;3| (|x| |s| $) - (SPADCALL |s| (SPADCALL (LIST |x|) (|getShellEntry| $ 12)) - (|getShellEntry| $ 9))) + (SPADCALL |s| (SPADCALL (LIST |x|) (|shellEntry| $ 12)) + (|shellEntry| $ 9))) (DEFUN |SETAGG-;difference;ASA;4| (|s| |x| $) - (SPADCALL |s| (SPADCALL (LIST |x|) (|getShellEntry| $ 12)) - (|getShellEntry| $ 8))) + (SPADCALL |s| (SPADCALL (LIST |x|) (|shellEntry| $ 12)) + (|shellEntry| $ 8))) (DEFUN |SetAggregate&| (|#1| |#2|) (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$2| (|devaluate| |#2|)) |