From 024f4b2055594e528ec98e733bd50684b2366db0 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 22 Jul 2010 21:44:34 +0000
Subject: 	* interp/g-util.boot (expandIeq): New expander for %ieq. 
 * interp/g-opt.boot (optIeq): New. 	(optIadd): Likewise. 	(optIsub):
 Likewise. 	(optImul): Likewise. 	(optIneg): Likewise. 	(lispize):
 Remove.

---
 src/algebra/strap/RNS-.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/algebra/strap/RNS-.lsp b/src/algebra/strap/RNS-.lsp
index 18ebf104..e7be74cf 100644
--- a/src/algebra/strap/RNS-.lsp
+++ b/src/algebra/strap/RNS-.lsp
@@ -110,7 +110,7 @@
               (SEQ (LETT |r| (SPADCALL |p| (|getShellEntry| $ 51))
                          |RNS-;patternMatch;SP2Pmr;10|)
                    (EXIT (COND
-                           ((EQL (CAR |r|) 0)
+                           ((ZEROP (CAR |r|))
                             (COND
                               ((SPADCALL
                                    (SPADCALL |x|
-- 
cgit v1.2.3