From 8e0d0dbfa31e6a035ec5e954c192742ade763dda Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 27 Jan 2011 17:08:27 +0000
Subject: 	* interp/nruncomp.boot (NRTputInHead): Tidy.

---
 src/algebra/strap/POLYCAT-.lsp | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

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

diff --git a/src/algebra/strap/POLYCAT-.lsp b/src/algebra/strap/POLYCAT-.lsp
index 9ad42dc5..a02ca0c4 100644
--- a/src/algebra/strap/POLYCAT-.lsp
+++ b/src/algebra/strap/POLYCAT-.lsp
@@ -306,8 +306,7 @@
 
 (DEFUN |POLYCAT-;retract;SVarSet;9| (|p| $)
   (LET ((|q| (LET ((#0=#:G1453 (SPADCALL |p| (|getShellEntry| $ 53))))
-               (|check-union| (ZEROP (CAR #0#)) (|getShellEntry| $ 9)
-                   #0#)
+               (|check-union| (ZEROP (CAR #0#)) (SVREF $ 9) #0#)
                (CDR #0#))))
     (COND
       ((SPADCALL (SPADCALL |q| (|getShellEntry| $ 72)) |p|
@@ -360,7 +359,7 @@
                                       (SPADCALL |p|
                                        (|getShellEntry| $ 53))))
                                  (|check-union| (ZEROP (CAR #0#))
-                                     (|getShellEntry| $ 9) #0#)
+                                     (SVREF $ 9) #0#)
                                  (CDR #0#))
                                (|getShellEntry| $ 59))
                            |POLYCAT-;totalDegree;SNni;13|)
@@ -397,7 +396,7 @@
                                         (SPADCALL |p|
                                          (|getShellEntry| $ 53))))
                                        (|check-union| (ZEROP (CAR #0#))
-                                        (|getShellEntry| $ 9) #0#)
+                                        (SVREF $ 9) #0#)
                                        (CDR #0#))
                                      |POLYCAT-;totalDegree;SLNni;14|)
                                (|getShellEntry| $ 59))
@@ -1041,8 +1040,7 @@
                        (SPADCALL |p|
                            (SPADCALL |p| (|getShellEntry| $ 206))
                            (|getShellEntry| $ 207))))
-               (|check-union| (ZEROP (CAR #0#)) (|getShellEntry| $ 6)
-                   #0#)
+               (|check-union| (ZEROP (CAR #0#)) (SVREF $ 6) #0#)
                (CDR #0#))
              (|getShellEntry| $ 209))
          1)) 
@@ -1053,8 +1051,7 @@
                        (SPADCALL |p|
                            (SPADCALL |p| |v| (|getShellEntry| $ 211))
                            (|getShellEntry| $ 212))))
-               (|check-union| (ZEROP (CAR #0#)) (|getShellEntry| $ 6)
-                   #0#)
+               (|check-union| (ZEROP (CAR #0#)) (SVREF $ 6) #0#)
                (CDR #0#))
              (|getShellEntry| $ 209))
          1)) 
-- 
cgit v1.2.3