From 2504b96ac76f31c60ab32979509e6f3b4b7a8b10 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 4 Jun 2010 02:43:19 +0000
Subject: 	* interp/buildom.boot: Clean up QEQCAR uses.

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

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

diff --git a/src/algebra/strap/RNS-.lsp b/src/algebra/strap/RNS-.lsp
index d0c985f5..de5580c1 100644
--- a/src/algebra/strap/RNS-.lsp
+++ b/src/algebra/strap/RNS-.lsp
@@ -122,12 +122,12 @@
               (SEQ (LETT |r| (SPADCALL |p| (|getShellEntry| $ 51))
                          |RNS-;patternMatch;SP2Pmr;10|)
                    (EXIT (COND
-                           ((QEQCAR |r| 0)
+                           ((EQL (CAR |r|) 0)
                             (COND
                               ((SPADCALL
                                    (SPADCALL |x|
                                     (|getShellEntry| $ 33))
-                                   (QCDR |r|) (|getShellEntry| $ 52))
+                                   (CDR |r|) (|getShellEntry| $ 52))
                                |l|)
                               ('T (SPADCALL (|getShellEntry| $ 53)))))
                            ('T (SPADCALL (|getShellEntry| $ 53)))))))
-- 
cgit v1.2.3