From c39287d87b632b3582b0e179b08d44dc6c27510f Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 29 May 2009 19:09:54 +0000
Subject: 	* algebra/algext.spad.pamphlet: Qualify `characteristic'. 
 * algebra/clifford.spad.pamphlet: Likewise. 	*
 algebra/complet.spad.pamphlet: Likewise. 	*
 algebra/contfrac.spad.pamphlet: Likewise. 	* algebra/curve.spad.pamphlet:
 Likewise. 	* algebra/ddfact.spad.pamphlet: Likewise. 	*
 algebra/derham.spad.pamphlet: Likewise. 	*
 algebra/equation2.spad.pamphlet: Likewise. 	* algebra/ffcat.spad.pamphlet:
 Likewise. 	* algebra/ffcg.spad.pamphlet: Likewise. 	*
 algebra/fff.spad.pamphlet: Likewise. 	* algebra/ffnb.spad.pamphlet:
 Likewise. 	* algebra/ffp.spad.pamphlet: Likewise. 	*
 algebra/ffpoly.spad.pamphlet: Likewise. 	* algebra/ffx.spad.pamphlet:
 Likewise. 	* algebra/fmod.spad.pamphlet: Likewise. 	*
 algebra/fortmac.spad.pamphlet: Likewise. 	* algebra/fr.spad.pamphlet:
 Likewise. 	* algebra/fraction.spad.pamphlet: Likewise. 	*
 algebra/fspace.spad.pamphlet: Likewise. 	*
 algebra/gaussian.spad.pamphlet: Likewise. 	* algebra/gpol.spad.pamphlet:
 Likewise. 	* algebra/intclos.spad.pamphlet: Likewise. 	*
 algebra/interval.spad.pamphlet: Likewise. 	*
 algebra/laurent.spad.pamphlet: Likewise. 	*
 algebra/matrix.spad.pamphlet: Likewise. 	*
 algebra/modring.spad.pamphlet: Likewise. 	* algebra/oct.spad.pamphlet:
 Likewise. 	* algebra/opalg.spad.pamphlet: Likewise. 	*
 algebra/padic.spad.pamphlet: Likewise. 	*
 algebra/perman.spad.pamphlet: Likewise. 	* algebra/pf.spad.pamphlet:
 Likewise. 	* algebra/pfr.spad.pamphlet: Likewise. 	*
 algebra/poly.spad.pamphlet: Likewise. 	* algebra/polycat.spad.pamphlet:
 Likewise. 	* algebra/puiseux.spad.pamphlet: Likewise. 	*
 algebra/quat.spad.pamphlet: Likewise. 	* algebra/radix.spad.pamphlet:
 Likewise. 	* algebra/reclos.spad.pamphlet: Likewise. 	*
 algebra/resring.spad.pamphlet: Likewise. 	* algebra/sf.spad.pamphlet:
 Likewise. 	* algebra/si.spad.pamphlet: Likewise. 	*
 algebra/solvefor.spad.pamphlet: Likewise. 	* algebra/sups.spad.pamphlet:
 Likewise. 	* algebra/taylor.spad.pamphlet: Likewise. 	*
 algebra/vector.spad.pamphlet: Likewise. 	* algebra/xpoly.spad.pamphlet:
 Likewise.

---
 src/algebra/strap/URAGG-.lsp | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'src/algebra/strap/URAGG-.lsp')

diff --git a/src/algebra/strap/URAGG-.lsp b/src/algebra/strap/URAGG-.lsp
index 6679030e..5d4e9577 100644
--- a/src/algebra/strap/URAGG-.lsp
+++ b/src/algebra/strap/URAGG-.lsp
@@ -452,8 +452,7 @@
                         (SPADCALL |x|
                             (PROG1 (LETT #0# (- |m| |n|)
                                     |URAGG-;last;ANniA;22|)
-                              (|check-subtype|
-                                  (COND ((< #0# 0) 'NIL) ('T 'T))
+                              (|check-subtype| (NOT (< #0# 0))
                                   '(|NonNegativeInteger|) #0#))
                             (|getShellEntry| $ 62))
                         (|getShellEntry| $ 63))))))))) 
@@ -590,8 +589,7 @@
                          (SPADCALL |p|
                              (PROG1 (LETT #0# (- |n| 1)
                                      |URAGG-;split!;AIA;32|)
-                               (|check-subtype|
-                                   (COND ((< #0# 0) 'NIL) ('T 'T))
+                               (|check-subtype| (NOT (< #0# 0))
                                    '(|NonNegativeInteger|) #0#))
                              (|getShellEntry| $ 62))
                          |URAGG-;split!;AIA;32|)
-- 
cgit v1.2.3