From 510c2f70ce377d60eed221e46294767f7f548f5d Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 22 Jul 2010 16:15:30 +0000 Subject: * interp/g-opt.boot (simplifyVMForm): New. (optRetract): Simplify the predicate when possible. (optNot): New transformer. (optAnd): Likewise. (optOr): Likewise. (optIlt): Likewise. (optIle): Likewise. (optIgt): Likewise. (optIge): Likewise. --- src/algebra/strap/LNAGG-.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/algebra/strap/LNAGG-.lsp') diff --git a/src/algebra/strap/LNAGG-.lsp b/src/algebra/strap/LNAGG-.lsp index 71915a22..e0bd3c89 100644 --- a/src/algebra/strap/LNAGG-.lsp +++ b/src/algebra/strap/LNAGG-.lsp @@ -32,7 +32,7 @@ (DEFUN |LNAGG-;index?;IAB;2| (|i| |a| $) (COND - ((>= |i| (SPADCALL |a| (|getShellEntry| $ 9))) + ((NOT (< |i| (SPADCALL |a| (|getShellEntry| $ 9)))) (NOT (< (SPADCALL |a| (|getShellEntry| $ 10)) |i|))) ('T NIL))) -- cgit v1.2.3