diff options
Diffstat (limited to 'src/algebra/strap/ABELGRP-.lsp')
| -rw-r--r-- | src/algebra/strap/ABELGRP-.lsp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/strap/ABELGRP-.lsp b/src/algebra/strap/ABELGRP-.lsp index b25c65a5..c07f070e 100644 --- a/src/algebra/strap/ABELGRP-.lsp +++ b/src/algebra/strap/ABELGRP-.lsp @@ -27,7 +27,7 @@ (DEFUN |ABELGRP-;*;I2S;4| (|n| |x| $) (COND ((ZEROP |n|) (|spadConstant| $ 19)) - ((< 0 |n|) (SPADCALL |n| |x| (|getShellEntry| $ 24))) + ((> |n| 0) (SPADCALL |n| |x| (|getShellEntry| $ 24))) ('T (SPADCALL (- |n|) (SPADCALL |x| (|getShellEntry| $ 7)) (|getShellEntry| $ 24))))) @@ -56,7 +56,7 @@ |ABELGRP-;-;3S;1| (11 . -) (|Union| $ '"failed") |ABELGRP-;subtractIfCan;2SU;2| (|Integer|) (17 . *) (|NonNegativeInteger|) |ABELGRP-;*;Nni2S;3| (|Boolean|) - (23 . |zero?|) (28 . |Zero|) (32 . |Zero|) (36 . <) + (23 . |zero?|) (28 . |Zero|) (32 . |Zero|) (36 . >) (|PositiveInteger|) (|RepeatedDoubling| 6) (42 . |double|) (48 . -) (53 . *)) '#(|subtractIfCan| 59 - 65 * 71) 'NIL |