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/SETCAT.lsp | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

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

diff --git a/src/algebra/strap/SETCAT.lsp b/src/algebra/strap/SETCAT.lsp
index 3f239b87..2ea735a4 100644
--- a/src/algebra/strap/SETCAT.lsp
+++ b/src/algebra/strap/SETCAT.lsp
@@ -3,18 +3,12 @@
 
 (DEFPARAMETER |SetCategory;AL| 'NIL) 
 
-(DEFUN |SetCategory| ()
-  (LET (#:G1397)
-    (COND
-      (|SetCategory;AL|)
-      (T (SETQ |SetCategory;AL| (|SetCategory;|)))))) 
-
 (DEFUN |SetCategory;| ()
-  (PROG (#0=#:G1395)
+  (PROG (#0=#:G1398)
     (RETURN
       (PROG1 (LETT #0#
                    (|sublisV|
-                       (PAIR '(#1=#:G1394) (LIST '(|OutputForm|)))
+                       (PAIR '(#1=#:G1397) (LIST '(|OutputForm|)))
                        (|Join| (|BasicType|) (|CoercibleTo| '#1#)
                                (|mkCategory| '|domain|
                                    '(((|hash| ((|SingleInteger|) $)) T)
@@ -24,6 +18,12 @@
                    |SetCategory|)
         (SETELT #0# 0 '(|SetCategory|)))))) 
 
+(DEFUN |SetCategory| ()
+  (LET ()
+    (COND
+      (|SetCategory;AL|)
+      (T (SETQ |SetCategory;AL| (|SetCategory;|)))))) 
+
 (SETQ |$CategoryFrame|
       (|put| '|SetCategory| '|isCategory| T
              (|addModemap| '|SetCategory| '(|SetCategory|)
-- 
cgit v1.2.3