From df02d2410007b60d0ee057da174552847c0005f0 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 26 Feb 2011 22:32:20 +0000 Subject: * interp/g-opt.boot (optCond): Recognize conjunction and disjunction forms. --- src/algebra/strap/LSAGG-.lsp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src/algebra/strap/LSAGG-.lsp') diff --git a/src/algebra/strap/LSAGG-.lsp b/src/algebra/strap/LSAGG-.lsp index 2373264b..288e5efb 100644 --- a/src/algebra/strap/LSAGG-.lsp +++ b/src/algebra/strap/LSAGG-.lsp @@ -614,10 +614,8 @@ (T (SEQ (SETQ |x| (SPADCALL |x| (|shellEntry| $ 17))) (EXIT (SETQ |y| (SPADCALL |y| (|shellEntry| $ 17)))))))))) - (EXIT (COND - ((SPADCALL |x| (|shellEntry| $ 16)) - (NOT (SPADCALL |y| (|shellEntry| $ 16)))) - (T NIL))))) + (EXIT (AND (SPADCALL |x| (|shellEntry| $ 16)) + (NOT (SPADCALL |y| (|shellEntry| $ 16))))))) (DEFUN |ListAggregate&| (|#1| |#2|) (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$2| (|devaluate| |#2|)) -- cgit v1.2.3