From 5e504b6abaef6cf7e7c58c17e26bec33856b60c0 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 17 Aug 2008 08:59:26 +0000
Subject: 	* algebra/Makefile.pamphlet (all-algstrap): New. 	*
 algebra/strap: Update cached Lisp translation.

---
 src/algebra/strap/INS.lsp | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

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

diff --git a/src/algebra/strap/INS.lsp b/src/algebra/strap/INS.lsp
index c951d143..3d827807 100644
--- a/src/algebra/strap/INS.lsp
+++ b/src/algebra/strap/INS.lsp
@@ -4,18 +4,18 @@
 (DEFPARAMETER |IntegerNumberSystem;AL| 'NIL) 
 
 (DEFUN |IntegerNumberSystem| ()
-  (LET (#:G1403)
+  (LET (#:G1412)
     (COND
       (|IntegerNumberSystem;AL|)
       (T (SETQ |IntegerNumberSystem;AL| (|IntegerNumberSystem;|)))))) 
 
 (DEFUN |IntegerNumberSystem;| ()
-  (PROG (#0=#:G1401)
+  (PROG (#0=#:G1410)
     (RETURN
       (PROG1 (LETT #0#
                    (|sublisV|
-                       (PAIR '(#1=#:G1395 #2=#:G1396 #3=#:G1397
-                                  #4=#:G1398 #5=#:G1399 #6=#:G1400)
+                       (PAIR '(#1=#:G1404 #2=#:G1405 #3=#:G1406
+                                  #4=#:G1407 #5=#:G1408 #6=#:G1409)
                              (LIST '(|Integer|) '(|Integer|)
                                    '(|Integer|) '(|InputForm|)
                                    '(|Pattern| (|Integer|))
@@ -72,4 +72,10 @@
                    |IntegerNumberSystem|)
         (SETELT #0# 0 '(|IntegerNumberSystem|)))))) 
 
+(SETQ |$CategoryFrame|
+      (|put| '|IntegerNumberSystem| '|isCategory| T
+             (|addModemap| '|IntegerNumberSystem|
+                 '(|IntegerNumberSystem|) '((|Category|)) T
+                 '|IntegerNumberSystem| |$CategoryFrame|))) 
+
 (MAKEPROP '|IntegerNumberSystem| 'NILADIC T) 
-- 
cgit v1.2.3