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/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 1b94a4b0..56acba33 100644
--- a/src/algebra/strap/SYMBOL.lsp
+++ b/src/algebra/strap/SYMBOL.lsp
@@ -491,8 +491,8 @@
                                 (|getShellEntry| $ 124))
                             |SYMBOL;new;2$;28|)
                       (EXIT (COND
-                              ((QEQCAR |u| 1) 0)
-                              ('T (+ (QCDR |u|) 1)))))
+                              ((EQL (CAR |u|) 1) 0)
+                              ('T (+ (CDR |u|) 1)))))
                  |SYMBOL;new;2$;28|)
            (SPADCALL (|getShellEntry| $ 13) |x| |n|
                (|getShellEntry| $ 127))
-- 
cgit v1.2.3