aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/strap/SINT.lsp
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/strap/SINT.lsp')
-rw-r--r--src/algebra/strap/SINT.lsp14
1 files changed, 7 insertions, 7 deletions
diff --git a/src/algebra/strap/SINT.lsp b/src/algebra/strap/SINT.lsp
index 634d0e12..1aa715eb 100644
--- a/src/algebra/strap/SINT.lsp
+++ b/src/algebra/strap/SINT.lsp
@@ -247,7 +247,8 @@
(DECLAIM (FTYPE (FUNCTION (|%Short| |%Shell|) |%Boolean|)
|SINT;negative?;$B;53|))
-(PUT '|SINT;negative?;$B;53| '|SPADreplace| 'QSMINUSP)
+(PUT '|SINT;negative?;$B;53| '|SPADreplace|
+ '(XLAM (|x|) (|%ilt| |x| 0)))
(DECLAIM (FTYPE (FUNCTION (|%Shell|) (|%IntegerSection| 0))
|SINT;size;Nni;54|))
@@ -291,7 +292,7 @@
(DEFUN |SINT;writeOMSingleInt| (|dev| |x| $)
(SEQ (COND
- ((QSMINUSP |x|)
+ ((MINUSP |x|)
(SEQ (SPADCALL |dev| (|getShellEntry| $ 11))
(SPADCALL |dev| "arith1" "unaryminus"
(|getShellEntry| $ 13))
@@ -469,7 +470,7 @@
(DEFUN |SINT;negative?;$B;53| (|x| $)
(DECLARE (IGNORE $))
- (QSMINUSP |x|))
+ (MINUSP |x|))
(DEFUN |SINT;size;Nni;54| ($)
(DECLARE (IGNORE $))
@@ -490,8 +491,7 @@
(DEFUN |SINT;positiveRemainder;3$;58| (|x| |n| $)
(LET ((|r| (REM |x| |n|)))
(COND
- ((QSMINUSP |r|)
- (COND ((QSMINUSP |n|) (- |x| |n|)) (T (+ |r| |n|))))
+ ((MINUSP |r|) (COND ((MINUSP |n|) (- |x| |n|)) (T (+ |r| |n|))))
(T |r|))))
(DEFUN |SINT;coerce;I$;59| (|x| $)
@@ -505,11 +505,11 @@
(DEFUN |SINT;random;2$;61| (|n| $) (DECLARE (IGNORE $)) (RANDOM |n|))
(DEFUN |SINT;unitNormal;$R;62| (|x| $)
- (COND ((QSMINUSP |x|) (VECTOR -1 (- |x|) -1)) (T (VECTOR 1 |x| 1))))
+ (COND ((MINUSP |x|) (VECTOR -1 (- |x|) -1)) (T (VECTOR 1 |x| 1))))
(DEFUN |SingleInteger| ()
(DECLARE (SPECIAL |$ConstructorCache|))
- (PROG (#0=#:G1474)
+ (PROG (#0=#:G1478)
(RETURN
(COND
((SETQ #0# (HGET |$ConstructorCache| '|SingleInteger|))