From 5687e549faf2a00133c91dd21b48d876e0e2c449 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 11 Oct 2008 21:16:28 +0000
Subject: Update algebra bootstrap cache.

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

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

diff --git a/src/algebra/strap/RING.lsp b/src/algebra/strap/RING.lsp
index de80c4c5..016a3ee0 100644
--- a/src/algebra/strap/RING.lsp
+++ b/src/algebra/strap/RING.lsp
@@ -3,11 +3,8 @@
 
 (DEFPARAMETER |Ring;AL| 'NIL) 
 
-(DEFUN |Ring| ()
-  (LET (#:G1396) (COND (|Ring;AL|) (T (SETQ |Ring;AL| (|Ring;|)))))) 
-
 (DEFUN |Ring;| ()
-  (PROG (#0=#:G1394)
+  (PROG (#0=#:G1397)
     (RETURN
       (PROG1 (LETT #0#
                    (|Join| (|Rng|) (|Monoid|) (|LeftModule| '$)
@@ -22,6 +19,9 @@
                    |Ring|)
         (SETELT #0# 0 '(|Ring|)))))) 
 
+(DEFUN |Ring| ()
+  (LET () (COND (|Ring;AL|) (T (SETQ |Ring;AL| (|Ring;|)))))) 
+
 (SETQ |$CategoryFrame|
       (|put| '|Ring| '|isCategory| T
              (|addModemap| '|Ring| '(|Ring|) '((|Category|)) T '|Ring|
-- 
cgit v1.2.3