1 files changed, 0 insertions, 81 deletions
diff --git a/src/algebra/strap/CHAR.lsp b/src/algebra/strap/CHAR.lsp
index f6d4583e..b04e065f 100644
--- a/src/algebra/strap/CHAR.lsp
+++ b/src/algebra/strap/CHAR.lsp
@@ -236,85 +236,4 @@
                                   0 1 2 0 6 0 0 8)))))
           '|lookupComplete|)) 
 
-(SETQ |$CategoryFrame|
-      (|put| '|Character| '|isFunctor|
-             '(((|alphanumeric?| ((|Boolean|) $)) T (ELT $ 36))
-               ((|lowerCase?| ((|Boolean|) $)) T (ELT $ 32))
-               ((|upperCase?| ((|Boolean|) $)) T (ELT $ 30))
-               ((|alphabetic?| ((|Boolean|) $)) T (ELT $ 34))
-               ((|hexDigit?| ((|Boolean|) $)) T (ELT $ 28))
-               ((|digit?| ((|Boolean|) $)) T (ELT $ 26))
-               ((|lowerCase| ($ $)) T (ELT $ 44))
-               ((|upperCase| ($ $)) T (ELT $ 43))
-               ((|escape| ($)) T (ELT $ 19))
-               ((|quote| ($)) T (ELT $ 18))
-               ((|space| ($)) T (ELT $ 17))
-               ((|char| ($ (|String|))) T (ELT $ 42))
-               ((|char| ($ (|NonNegativeInteger|))) T (ELT $ 11))
-               ((|ord| ((|NonNegativeInteger|) $)) T (ELT $ 14))
-               ((|size| ((|NonNegativeInteger|))) T (ELT $ 10))
-               ((|index| ($ (|PositiveInteger|))) T (ELT $ 13))
-               ((|lookup| ((|PositiveInteger|) $)) T (ELT $ 15))
-               ((|random| ($)) T (ELT $ 16))
-               ((|min| ($ $ $)) T (ELT $ NIL))
-               ((|max| ($ $ $)) T (ELT $ NIL))
-               ((<= ((|Boolean|) $ $)) T (ELT $ NIL))
-               ((>= ((|Boolean|) $ $)) T (ELT $ NIL))
-               ((> ((|Boolean|) $ $)) T (ELT $ NIL))
-               ((< ((|Boolean|) $ $)) T (ELT $ 8))
-               ((|latex| ((|String|) $)) T (ELT $ 38))
-               ((|hash| ((|SingleInteger|) $)) T (ELT $ NIL))
-               ((|coerce| ((|OutputForm|) $)) T (ELT $ 21))
-               ((= ((|Boolean|) $ $)) T (ELT $ 7))
-               ((~= ((|Boolean|) $ $)) T (ELT $ NIL)))
-             (|addModemap| '|Character| '(|Character|)
-                 '((|Join| (|OrderedFinite|)
-                           (CATEGORY |domain|
-                               (SIGNATURE |ord|
-                                   ((|NonNegativeInteger|) $))
-                               (SIGNATURE |char|
-                                   ($ (|NonNegativeInteger|)))
-                               (SIGNATURE |char| ($ (|String|)))
-                               (SIGNATURE |space| ($))
-                               (SIGNATURE |quote| ($))
-                               (SIGNATURE |escape| ($))
-                               (SIGNATURE |upperCase| ($ $))
-                               (SIGNATURE |lowerCase| ($ $))
-                               (SIGNATURE |digit?| ((|Boolean|) $))
-                               (SIGNATURE |hexDigit?| ((|Boolean|) $))
-                               (SIGNATURE |alphabetic?|
-                                   ((|Boolean|) $))
-                               (SIGNATURE |upperCase?| ((|Boolean|) $))
-                               (SIGNATURE |lowerCase?| ((|Boolean|) $))
-                               (SIGNATURE |alphanumeric?|
-                                   ((|Boolean|) $)))))
-                 T '|Character|
-                 (|put| '|Character| '|mode|
-                        '(|Mapping|
-                             (|Join| (|OrderedFinite|)
-                                     (CATEGORY |domain|
-                                      (SIGNATURE |ord|
-                                       ((|NonNegativeInteger|) $))
-                                      (SIGNATURE |char|
-                                       ($ (|NonNegativeInteger|)))
-                                      (SIGNATURE |char| ($ (|String|)))
-                                      (SIGNATURE |space| ($))
-                                      (SIGNATURE |quote| ($))
-                                      (SIGNATURE |escape| ($))
-                                      (SIGNATURE |upperCase| ($ $))
-                                      (SIGNATURE |lowerCase| ($ $))
-                                      (SIGNATURE |digit?|
-                                       ((|Boolean|) $))
-                                      (SIGNATURE |hexDigit?|
-                                       ((|Boolean|) $))
-                                      (SIGNATURE |alphabetic?|
-                                       ((|Boolean|) $))
-                                      (SIGNATURE |upperCase?|
-                                       ((|Boolean|) $))
-                                      (SIGNATURE |lowerCase?|
-                                       ((|Boolean|) $))
-                                      (SIGNATURE |alphanumeric?|
-                                       ((|Boolean|) $)))))
-                        |$CategoryFrame|)))) 
-
 (MAKEPROP '|Character| 'NILADIC T)