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/NNI.lsp | 27 +++++++++++++--------------
 1 file changed, 13 insertions(+), 14 deletions(-)

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

diff --git a/src/algebra/strap/NNI.lsp b/src/algebra/strap/NNI.lsp
index dbe1dda2..b355751f 100644
--- a/src/algebra/strap/NNI.lsp
+++ b/src/algebra/strap/NNI.lsp
@@ -34,10 +34,9 @@
   (LET ((|c| (- |x| |y|)))
     (COND
       ((MINUSP |c|) (CONS 1 "failed"))
-      ('T
-       (CONS 0
-             (|check-subtype| (NOT (MINUSP |c|))
-                 '(|NonNegativeInteger|) |c|)))))) 
+      (T (CONS 0
+               (|check-subtype| (NOT (MINUSP |c|))
+                   '(|NonNegativeInteger|) |c|)))))) 
 
 (DEFUN |NonNegativeInteger| ()
   (DECLARE (SPECIAL |$ConstructorCache|))
@@ -46,16 +45,16 @@
       (COND
         ((SETQ #0# (HGET |$ConstructorCache| '|NonNegativeInteger|))
          (|CDRwithIncrement| (CDAR #0#)))
-        ('T
-         (UNWIND-PROTECT
-           (PROG1 (CDDAR (HPUT |$ConstructorCache|
-                               '|NonNegativeInteger|
-                               (LIST (CONS NIL
-                                      (CONS 1 (|NonNegativeInteger;|))))))
-             (SETQ #0# T))
-           (COND
-             ((NOT #0#)
-              (HREM |$ConstructorCache| '|NonNegativeInteger|))))))))) 
+        (T (UNWIND-PROTECT
+             (PROG1 (CDDAR (HPUT |$ConstructorCache|
+                                 '|NonNegativeInteger|
+                                 (LIST (CONS NIL
+                                        (CONS 1
+                                         (|NonNegativeInteger;|))))))
+               (SETQ #0# T))
+             (COND
+               ((NOT #0#)
+                (HREM |$ConstructorCache| '|NonNegativeInteger|))))))))) 
 
 (DEFUN |NonNegativeInteger;| ()
   (LET ((|dv$| (LIST '|NonNegativeInteger|)) ($ (|newShell| 22))
-- 
cgit v1.2.3