From 5c81f5a89627a71d4e0054730eea47cc99a9cef2 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 23 Jun 2010 12:57:00 +0000
Subject: 	* interp/nruncomp.boot (optDeltaEntry): Don't optimize current
 	domain modemap references here. 	* interp/g-opt.boot
 ($VMsideEffectFreeOperators): Include more 	floating point operators. 
 ($simpleVMoperators): Move FUNCALL here. 	(isVMConstantForm): Tidy. 
 * interp/g-util.boot: Expand more floating point insns. 	*
 interp/c-util.boot (replaceSimpleFunctions): Replace more 	constants. 
 * algebra/integer.spad.pamphlet (Integer): More cleanup.  Use 	builtin
 functions. 	* algebra/sf.spad.pamphlet: Likewise.

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

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

diff --git a/src/algebra/strap/SYMBOL.lsp b/src/algebra/strap/SYMBOL.lsp
index 7aca9e5f..e5372535 100644
--- a/src/algebra/strap/SYMBOL.lsp
+++ b/src/algebra/strap/SYMBOL.lsp
@@ -278,7 +278,7 @@
     (RETURN
       (LET ((|s| (PNAME (SPADCALL |e| (|getShellEntry| $ 100)))))
         (SEQ (COND
-               ((> (QCSIZE |s|) 1)
+               ((< 1 (QCSIZE |s|))
                 (COND
                   ((SPADCALL (SPADCALL |s| 1 (|getShellEntry| $ 106))
                        (SPADCALL "\\" (|getShellEntry| $ 43))
@@ -607,7 +607,7 @@
 
 (DEFUN |SYMBOL;istring| (|n| $)
   (COND
-    ((> |n| 9) (|error| "Can have at most 9 scripts of each kind"))
+    ((< 9 |n|) (|error| "Can have at most 9 scripts of each kind"))
     ('T (|getSimpleArrayEntry| (|getShellEntry| $ 18) (+ |n| 0))))) 
 
 (DEFUN |SYMBOL;list;$L;34| (|sy| $)
-- 
cgit v1.2.3