From f5181e8acaf34cb5a26a30bd3901a19485933c6d Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 25 Jul 2010 00:12:57 +0000
Subject: 	* interp/cattable.boot: Use %true for truth value in VM
 expressions. 	* interp/clam.boot: Likewise. 	* interp/define.boot:
 Likewise. 	* interp/format.boot: Likewise. 	* interp/functor.boot:
 Likewise. 	* interp/g-opt.boot: Likewise. 	* interp/mark.boot: Likewise. 
 * interp/pspad1.boot: Likewise. 	* interp/pspad2.boot: Likewise. 
 * interp/slam.boot: Likewise. 	* interp/wi1.boot: Likewise. 	*
 interp/wi2.boot: Likewise. 	* interp/sys-constants.boot: Remove $true and
 $false as unused.

---
 src/algebra/strap/SINT.lsp | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

(limited to 'src/algebra/strap/SINT.lsp')

diff --git a/src/algebra/strap/SINT.lsp b/src/algebra/strap/SINT.lsp
index d5afc6c2..44f7224c 100644
--- a/src/algebra/strap/SINT.lsp
+++ b/src/algebra/strap/SINT.lsp
@@ -294,7 +294,7 @@
                    (|getShellEntry| $ 15))
                (SPADCALL |dev| (QSMINUS |x|) (|getShellEntry| $ 18))
                (EXIT (SPADCALL |dev| (|getShellEntry| $ 19)))))
-         ('T (SPADCALL |dev| |x| (|getShellEntry| $ 18)))))) 
+         (T (SPADCALL |dev| |x| (|getShellEntry| $ 18)))))) 
 
 (DEFUN |SINT;OMwrite;$S;2| (|x| $)
   (LET* ((|s| "") (|sp| (OM-STRINGTOSTRINGPTR |s|))
@@ -499,8 +499,8 @@
       ((QSMINUSP |r|)
        (COND
          ((QSMINUSP |n|) (QSDIFFERENCE |x| |n|))
-         ('T (QSPLUS |r| |n|))))
-      ('T |r|)))) 
+         (T (QSPLUS |r| |n|))))
+      (T |r|)))) 
 
 (DEFUN |SINT;coerce;I$;59| (|x| $)
   (|check-subtype| (SMINTP |x|) '(|SingleInteger|) |x|)) 
@@ -516,7 +516,7 @@
 (DEFUN |SINT;unitNormal;$R;62| (|x| $)
   (COND
     ((QSLESSP |x| 0) (VECTOR (QSMINUS 1) (QSMINUS |x|) (QSMINUS 1)))
-    ('T (VECTOR 1 |x| 1)))) 
+    (T (VECTOR 1 |x| 1)))) 
 
 (DEFUN |SingleInteger| ()
   (DECLARE (SPECIAL |$ConstructorCache|))
@@ -525,14 +525,13 @@
       (COND
         ((SETQ #0# (HGET |$ConstructorCache| '|SingleInteger|))
          (|CDRwithIncrement| (CDAR #0#)))
-        ('T
-         (UNWIND-PROTECT
-           (PROG1 (CDDAR (HPUT |$ConstructorCache| '|SingleInteger|
-                               (LIST (CONS NIL
-                                      (CONS 1 (|SingleInteger;|))))))
-             (SETQ #0# T))
-           (COND
-             ((NOT #0#) (HREM |$ConstructorCache| '|SingleInteger|))))))))) 
+        (T (UNWIND-PROTECT
+             (PROG1 (CDDAR (HPUT |$ConstructorCache| '|SingleInteger|
+                                 (LIST (CONS NIL
+                                        (CONS 1 (|SingleInteger;|))))))
+               (SETQ #0# T))
+             (COND
+               ((NOT #0#) (HREM |$ConstructorCache| '|SingleInteger|))))))))) 
 
 (DEFUN |SingleInteger;| ()
   (LET ((|dv$| (LIST '|SingleInteger|)) ($ (|newShell| 116))
-- 
cgit v1.2.3