From ad7cf3f5d7ae1735c80fb98616cd870b64c80fdd Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 31 Jan 2011 23:30:54 +0000
Subject: 	* interp/g-opt.boot (optQSMINUS): Remove. 	*
 algebra/data.spad.pamphlet: Tidy. 	* algebra/plot.spad.pamphlet:
 Likewise. 	* algebra/plot3d.spad.pamphlet: Likewise. 	*
 algebra/si.spad.pamphlet: Likewise. 	* algebra/syntax.spad.pamphlet:
 Likewise. 	* algebra/list.spad.pamphlet: Remove use of NULL$Lisp.

---
 src/algebra/strap/SINT.lsp | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'src/algebra/strap')

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|))
-- 
cgit v1.2.3