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/INS.lsp | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

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

diff --git a/src/algebra/strap/INS.lsp b/src/algebra/strap/INS.lsp
index 5759f408..af5969d3 100644
--- a/src/algebra/strap/INS.lsp
+++ b/src/algebra/strap/INS.lsp
@@ -3,19 +3,13 @@
 
 (DEFPARAMETER |IntegerNumberSystem;AL| 'NIL) 
 
-(DEFUN |IntegerNumberSystem| ()
-  (LET (#:G1412)
-    (COND
-      (|IntegerNumberSystem;AL|)
-      (T (SETQ |IntegerNumberSystem;AL| (|IntegerNumberSystem;|)))))) 
-
 (DEFUN |IntegerNumberSystem;| ()
-  (PROG (#0=#:G1410)
+  (PROG (#0=#:G1413)
     (RETURN
       (PROG1 (LETT #0#
                    (|sublisV|
-                       (PAIR '(#1=#:G1404 #2=#:G1405 #3=#:G1406
-                                  #4=#:G1407 #5=#:G1408 #6=#:G1409)
+                       (PAIR '(#1=#:G1407 #2=#:G1408 #3=#:G1409
+                                  #4=#:G1410 #5=#:G1411 #6=#:G1412)
                              (LIST '(|Integer|) '(|Integer|)
                                    '(|Integer|) '(|InputForm|)
                                    '(|Pattern| (|Integer|))
@@ -71,6 +65,12 @@
                    |IntegerNumberSystem|)
         (SETELT #0# 0 '(|IntegerNumberSystem|)))))) 
 
+(DEFUN |IntegerNumberSystem| ()
+  (LET ()
+    (COND
+      (|IntegerNumberSystem;AL|)
+      (T (SETQ |IntegerNumberSystem;AL| (|IntegerNumberSystem;|)))))) 
+
 (SETQ |$CategoryFrame|
       (|put| '|IntegerNumberSystem| '|isCategory| T
              (|addModemap| '|IntegerNumberSystem|
-- 
cgit v1.2.3