From af3ebc0d983434f91686d8e2ba7bcb21d5083a30 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 18 Apr 2009 17:57:00 +0000 Subject: * algebra/mkfunc.spad.pamphlet (InputForm): Remove assignment to Rep. (convert): Use per and rep operators. * algebra/stap: Updated cached Lisp translation. --- src/algebra/strap/PSETCAT-.lsp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/algebra/strap/PSETCAT-.lsp') diff --git a/src/algebra/strap/PSETCAT-.lsp b/src/algebra/strap/PSETCAT-.lsp index 0168ae69..d4723490 100644 --- a/src/algebra/strap/PSETCAT-.lsp +++ b/src/algebra/strap/PSETCAT-.lsp @@ -214,8 +214,8 @@ (LETT |lp| (CDR |lp|) |PSETCAT-;collectUpper;SVarSetS;8|) (EXIT (COND - ((NULL (SPADCALL |p| - (|getShellEntry| $ 24))) + ((NOT (SPADCALL |p| + (|getShellEntry| $ 24))) (COND ((SPADCALL |v| (SPADCALL |p| @@ -238,8 +238,8 @@ (LETT |lp| (CDR |lp|) |PSETCAT-;collect;SVarSetS;9|) (EXIT (COND - ((NULL (SPADCALL |p| - (|getShellEntry| $ 24))) + ((NOT (SPADCALL |p| + (|getShellEntry| $ 24))) (COND ((SPADCALL (SPADCALL |p| @@ -704,7 +704,7 @@ |PSETCAT-;rewriteIdealWithHeadRemainder;LSL;25|) (EXIT (COND - ((NULL + ((NOT (SPADCALL |p| (|getShellEntry| $ 47))) (COND @@ -767,7 +767,7 @@ |PSETCAT-;rewriteIdealWithRemainder;LSL;26|) (EXIT (COND - ((NULL + ((NOT (SPADCALL |p| (|getShellEntry| $ 47))) (COND -- cgit v1.2.3