diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-11-20 07:57:14 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-11-20 07:57:14 +0000 |
| commit | 90dee68c255cd77c5e72fb78da8a02d07e3c1c49 (patch) | |
| tree | f1bda1d35b9549660a6275890865894e87ebaf44 /src/algebra/strap | |
| parent | 29c64f74f12bbeebb82045b08db420d2d2b60cf7 (diff) | |
| download | open-axiom-90dee68c255cd77c5e72fb78da8a02d07e3c1c49.tar.gz | |
* algebra/coerce.spad.pamphlet (CoercibleFrom): New.
(ConvertibleFrom): Likewise.
(RetractableTo): Use it.
* algebra/Makefile.pamphlet (axiom_algebra_layer_0): Include
KRCFROM and KVTFROM.
* share/algebra/: Update databases.
Diffstat (limited to 'src/algebra/strap')
85 files changed, 197 insertions, 6757 deletions
diff --git a/src/algebra/strap/ABELGRP-.lsp b/src/algebra/strap/ABELGRP-.lsp index 2fdeec9b..dc10e8f6 100644 --- a/src/algebra/strap/ABELGRP-.lsp +++ b/src/algebra/strap/ABELGRP-.lsp @@ -68,38 +68,3 @@ 0 0 13 0 21 2 0 11 0 0 12 2 0 0 0 0 9 2 0 0 13 0 21 2 0 0 15 0 16))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|AbelianGroup&| '|isFunctor| - '(((* ($ (|Integer|) $)) T (ELT $ 21)) - ((- ($ $ $)) T (ELT $ 9)) ((- ($ $)) T (ELT $ NIL)) - ((|subtractIfCan| ((|Union| $ "failed") $ $)) T - (ELT $ 12)) - ((* ($ (|NonNegativeInteger|) $)) T (ELT $ 16)) - ((* ($ (|PositiveInteger|) $)) T (ELT $ NIL))) - (|addModemap| '|AbelianGroup&| '(|AbelianGroup&| |#1|) - '((CATEGORY |domain| - (SIGNATURE * (|#1| (|Integer|) |#1|)) - (SIGNATURE - (|#1| |#1| |#1|)) - (SIGNATURE - (|#1| |#1|)) - (SIGNATURE |subtractIfCan| - ((|Union| |#1| "failed") |#1| |#1|)) - (SIGNATURE * (|#1| (|NonNegativeInteger|) |#1|)) - (SIGNATURE * (|#1| (|PositiveInteger|) |#1|))) - (|AbelianGroup|)) - T '|AbelianGroup&| - (|put| '|AbelianGroup&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE * (|#1| (|Integer|) |#1|)) - (SIGNATURE - (|#1| |#1| |#1|)) - (SIGNATURE - (|#1| |#1|)) - (SIGNATURE |subtractIfCan| - ((|Union| |#1| "failed") |#1| - |#1|)) - (SIGNATURE * - (|#1| (|NonNegativeInteger|) |#1|)) - (SIGNATURE * - (|#1| (|PositiveInteger|) |#1|))) - (|AbelianGroup|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/ABELGRP.lsp b/src/algebra/strap/ABELGRP.lsp index dd8da1ef..e2f7daf4 100644 --- a/src/algebra/strap/ABELGRP.lsp +++ b/src/algebra/strap/ABELGRP.lsp @@ -13,7 +13,7 @@ ((* ($ (|Integer|) $)) T)) NIL '((|Integer|)) NIL)) |AbelianGroup|) - (SETELT #0# 0 '(|AbelianGroup|)))))) + (|setShellEntry| #0# 0 '(|AbelianGroup|)))))) (DEFUN |AbelianGroup| () (LET () @@ -21,9 +21,4 @@ (|AbelianGroup;AL|) (T (SETQ |AbelianGroup;AL| (|AbelianGroup;|)))))) -(SETQ |$CategoryFrame| - (|put| '|AbelianGroup| '|isCategory| T - (|addModemap| '|AbelianGroup| '(|AbelianGroup|) - '((|Category|)) T '|AbelianGroup| |$CategoryFrame|))) - (MAKEPROP '|AbelianGroup| 'NILADIC T) diff --git a/src/algebra/strap/ABELMON-.lsp b/src/algebra/strap/ABELMON-.lsp index 1c1cdd43..bfdc7eee 100644 --- a/src/algebra/strap/ABELMON-.lsp +++ b/src/algebra/strap/ABELMON-.lsp @@ -61,29 +61,3 @@ 16 6 13 6 17 2 0 0 11 0 18 1 0 8 0 10 0 0 0 15 2 0 0 11 0 18 2 0 0 13 0 14))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|AbelianMonoid&| '|isFunctor| - '(((* ($ (|NonNegativeInteger|) $)) T (ELT $ 18)) - ((|zero?| ((|Boolean|) $)) T (ELT $ 10)) - ((|sample| ($)) T (ELT $ 15)) - ((* ($ (|PositiveInteger|) $)) T (ELT $ 14))) - (|addModemap| '|AbelianMonoid&| '(|AbelianMonoid&| |#1|) - '((CATEGORY |domain| - (SIGNATURE * (|#1| (|NonNegativeInteger|) |#1|)) - (SIGNATURE |zero?| ((|Boolean|) |#1|)) - (SIGNATURE |sample| (|#1|)) - (SIGNATURE * (|#1| (|PositiveInteger|) |#1|))) - (|AbelianMonoid|)) - T '|AbelianMonoid&| - (|put| '|AbelianMonoid&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE * - (|#1| (|NonNegativeInteger|) |#1|)) - (SIGNATURE |zero?| ((|Boolean|) |#1|)) - (SIGNATURE |sample| (|#1|)) - (SIGNATURE * - (|#1| (|PositiveInteger|) |#1|))) - (|AbelianMonoid|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/ABELMON.lsp b/src/algebra/strap/ABELMON.lsp index f0eaa266..af28662b 100644 --- a/src/algebra/strap/ABELMON.lsp +++ b/src/algebra/strap/ABELMON.lsp @@ -17,7 +17,7 @@ '((|NonNegativeInteger|) (|Boolean|)) NIL)) |AbelianMonoid|) - (SETELT #0# 0 '(|AbelianMonoid|)))))) + (|setShellEntry| #0# 0 '(|AbelianMonoid|)))))) (DEFUN |AbelianMonoid| () (LET () @@ -25,9 +25,4 @@ (|AbelianMonoid;AL|) (T (SETQ |AbelianMonoid;AL| (|AbelianMonoid;|)))))) -(SETQ |$CategoryFrame| - (|put| '|AbelianMonoid| '|isCategory| T - (|addModemap| '|AbelianMonoid| '(|AbelianMonoid|) - '((|Category|)) T '|AbelianMonoid| |$CategoryFrame|))) - (MAKEPROP '|AbelianMonoid| 'NILADIC T) diff --git a/src/algebra/strap/ABELSG-.lsp b/src/algebra/strap/ABELSG-.lsp index a248d398..9391dd77 100644 --- a/src/algebra/strap/ABELSG-.lsp +++ b/src/algebra/strap/ABELSG-.lsp @@ -38,20 +38,3 @@ '(2 8 6 7 6 9 2 0 0 7 0 10 2 0 0 7 0 10))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|AbelianSemiGroup&| '|isFunctor| - '(((* ($ (|PositiveInteger|) $)) T (ELT $ 10))) - (|addModemap| '|AbelianSemiGroup&| - '(|AbelianSemiGroup&| |#1|) - '((CATEGORY |domain| - (SIGNATURE * (|#1| (|PositiveInteger|) |#1|))) - (|AbelianSemiGroup|)) - T '|AbelianSemiGroup&| - (|put| '|AbelianSemiGroup&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE * - (|#1| (|PositiveInteger|) |#1|))) - (|AbelianSemiGroup|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/ABELSG.lsp b/src/algebra/strap/ABELSG.lsp index 7c2a2a7d..062071e2 100644 --- a/src/algebra/strap/ABELSG.lsp +++ b/src/algebra/strap/ABELSG.lsp @@ -13,7 +13,7 @@ ((* ($ (|PositiveInteger|) $)) T)) NIL '((|PositiveInteger|)) NIL)) |AbelianSemiGroup|) - (SETELT #0# 0 '(|AbelianSemiGroup|)))))) + (|setShellEntry| #0# 0 '(|AbelianSemiGroup|)))))) (DEFUN |AbelianSemiGroup| () (LET () @@ -21,10 +21,4 @@ (|AbelianSemiGroup;AL|) (T (SETQ |AbelianSemiGroup;AL| (|AbelianSemiGroup;|)))))) -(SETQ |$CategoryFrame| - (|put| '|AbelianSemiGroup| '|isCategory| T - (|addModemap| '|AbelianSemiGroup| '(|AbelianSemiGroup|) - '((|Category|)) T '|AbelianSemiGroup| - |$CategoryFrame|))) - (MAKEPROP '|AbelianSemiGroup| 'NILADIC T) diff --git a/src/algebra/strap/ALAGG.lsp b/src/algebra/strap/ALAGG.lsp index 16c80bd0..8d0f1fea 100644 --- a/src/algebra/strap/ALAGG.lsp +++ b/src/algebra/strap/ALAGG.lsp @@ -34,9 +34,9 @@ T)) NIL 'NIL NIL)) . #2=(|AssociationListAggregate|)))))) . #2#) - (SETELT #0# 0 - (LIST '|AssociationListAggregate| (|devaluate| |t#1|) - (|devaluate| |t#2|))))))) + (|setShellEntry| #0# 0 + (LIST '|AssociationListAggregate| (|devaluate| |t#1|) + (|devaluate| |t#2|))))))) (DEFUN |AssociationListAggregate| (&REST #0=#:G1402 &AUX #1=#:G1400) (DSETQ #1# #0#) @@ -53,10 +53,3 @@ #'|AssociationListAggregate;| #1#))) |AssociationListAggregate;AL|)) #2#)))) - -(SETQ |$CategoryFrame| - (|put| '|AssociationListAggregate| '|isCategory| T - (|addModemap| '|AssociationListAggregate| - '(|AssociationListAggregate| |#1| |#2|) - '((|Category|) (|SetCategory|) (|SetCategory|)) T - '|AssociationListAggregate| |$CategoryFrame|))) diff --git a/src/algebra/strap/BOOLEAN.lsp b/src/algebra/strap/BOOLEAN.lsp index 693fc054..1e367244 100644 --- a/src/algebra/strap/BOOLEAN.lsp +++ b/src/algebra/strap/BOOLEAN.lsp @@ -220,62 +220,4 @@ 0 0 1 2 0 18 0 0 22 2 0 0 0 0 12))))) '|lookupComplete|)) -(SETQ |$CategoryFrame| - (|put| '|Boolean| '|isFunctor| - '(((|test| ($ $)) T (ELT $ 6)) - ((|nor| ($ $ $)) T (ELT $ 16)) - ((|nand| ($ $ $)) T (ELT $ 17)) - ((|xor| ($ $ $)) T (ELT $ 15)) - ((|false| ($)) T (CONST $ 8)) - ((|true| ($)) T (CONST $ 7)) - ((|convert| ((|InputForm|) $)) T (ELT $ 36)) - ((|not| ($ $)) T (ELT $ 9)) - ((|and| ($ $ $)) T (ELT $ 11)) - ((|or| ($ $ $)) T (ELT $ 13)) - ((|implies| ($ $ $)) T (ELT $ 20)) - ((|equiv| ($ $ $)) T (ELT $ 21)) - ((~ ($ $)) T (ELT $ 10)) ((|/\\| ($ $ $)) T (ELT $ 12)) - ((|\\/| ($ $ $)) T (ELT $ 14)) - ((|size| ((|NonNegativeInteger|))) T (ELT $ 24)) - ((|index| ($ (|PositiveInteger|))) T (ELT $ 28)) - ((|lookup| ((|PositiveInteger|) $)) T (ELT $ 29)) - ((|random| ($)) T (ELT $ 30)) - ((|min| ($ $ $)) T (ELT $ NIL)) - ((|max| ($ $ $)) T (ELT $ NIL)) - ((<= ((|Boolean|) $ $)) T (ELT $ NIL)) - ((>= ((|Boolean|) $ $)) T (ELT $ NIL)) - ((> ((|Boolean|) $ $)) T (ELT $ NIL)) - ((< ((|Boolean|) $ $)) T (ELT $ 22)) - ((|latex| ((|String|) $)) T (ELT $ NIL)) - ((|hash| ((|SingleInteger|) $)) T (ELT $ NIL)) - ((|coerce| ((|OutputForm|) $)) T (ELT $ 39)) - ((= ((|Boolean|) $ $)) T (ELT $ 19)) - ((~= ((|Boolean|) $ $)) T (ELT $ NIL))) - (|addModemap| '|Boolean| '(|Boolean|) - '((|Join| (|OrderedFinite|) (|Logic|) - (|PropositionalLogic|) - (|ConvertibleTo| (|InputForm|)) - (CATEGORY |domain| - (SIGNATURE |true| ($) |constant|) - (SIGNATURE |false| ($) |constant|) - (SIGNATURE |xor| ($ $ $)) - (SIGNATURE |nand| ($ $ $)) - (SIGNATURE |nor| ($ $ $)) - (SIGNATURE |test| ($ $))))) - T '|Boolean| - (|put| '|Boolean| '|mode| - '(|Mapping| - (|Join| (|OrderedFinite|) (|Logic|) - (|PropositionalLogic|) - (|ConvertibleTo| (|InputForm|)) - (CATEGORY |domain| - (SIGNATURE |true| ($) |constant|) - (SIGNATURE |false| ($) - |constant|) - (SIGNATURE |xor| ($ $ $)) - (SIGNATURE |nand| ($ $ $)) - (SIGNATURE |nor| ($ $ $)) - (SIGNATURE |test| ($ $))))) - |$CategoryFrame|)))) - (MAKEPROP '|Boolean| 'NILADIC T) diff --git a/src/algebra/strap/CABMON.lsp b/src/algebra/strap/CABMON.lsp index a95397c0..11a8f26a 100644 --- a/src/algebra/strap/CABMON.lsp +++ b/src/algebra/strap/CABMON.lsp @@ -14,7 +14,7 @@ T)) NIL 'NIL NIL)) |CancellationAbelianMonoid|) - (SETELT #0# 0 '(|CancellationAbelianMonoid|)))))) + (|setShellEntry| #0# 0 '(|CancellationAbelianMonoid|)))))) (DEFUN |CancellationAbelianMonoid| () (LET () @@ -23,10 +23,4 @@ (T (SETQ |CancellationAbelianMonoid;AL| (|CancellationAbelianMonoid;|)))))) -(SETQ |$CategoryFrame| - (|put| '|CancellationAbelianMonoid| '|isCategory| T - (|addModemap| '|CancellationAbelianMonoid| - '(|CancellationAbelianMonoid|) '((|Category|)) T - '|CancellationAbelianMonoid| |$CategoryFrame|))) - (MAKEPROP '|CancellationAbelianMonoid| 'NILADIC T) 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) diff --git a/src/algebra/strap/CLAGG-.lsp b/src/algebra/strap/CLAGG-.lsp index 4b61a7db..09d47ce4 100644 --- a/src/algebra/strap/CLAGG-.lsp +++ b/src/algebra/strap/CLAGG-.lsp @@ -268,107 +268,3 @@ 13 0 16 2 0 10 13 0 14 2 0 12 13 0 15 1 0 10 0 11))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|Collection&| '|isFunctor| - '(((|removeDuplicates| ($ $)) T (ELT $ 36)) - ((|remove| ($ |#2| $)) T (ELT $ 32)) - ((|reduce| - (|#2| (|Mapping| |#2| |#2| |#2|) $ |#2| |#2|)) - T (ELT $ 34)) - ((|select| ($ (|Mapping| (|Boolean|) |#2|) $)) T - (ELT $ 29)) - ((|remove| ($ (|Mapping| (|Boolean|) |#2|) $)) T - (ELT $ 27)) - ((|reduce| (|#2| (|Mapping| |#2| |#2| |#2|) $ |#2|)) T - (ELT $ 24)) - ((|reduce| (|#2| (|Mapping| |#2| |#2| |#2|) $)) T - (ELT $ 22)) - ((|find| ((|Union| |#2| "failed") - (|Mapping| (|Boolean|) |#2|) $)) - T (ELT $ 19)) - ((|count| ((|NonNegativeInteger|) |#2| $)) T - (ELT $ NIL)) - ((|count| ((|NonNegativeInteger|) - (|Mapping| (|Boolean|) |#2|) $)) - T (ELT $ 14)) - ((|every?| ((|Boolean|) (|Mapping| (|Boolean|) |#2|) $)) - T (ELT $ 16)) - ((|any?| ((|Boolean|) (|Mapping| (|Boolean|) |#2|) $)) T - (ELT $ 15)) - ((|#| ((|NonNegativeInteger|) $)) T (ELT $ 11))) - (|addModemap| '|Collection&| '(|Collection&| |#1| |#2|) - '((CATEGORY |domain| - (SIGNATURE |removeDuplicates| (|#1| |#1|)) - (SIGNATURE |remove| (|#1| |#2| |#1|)) - (SIGNATURE |reduce| - (|#2| (|Mapping| |#2| |#2| |#2|) |#1| |#2| - |#2|)) - (SIGNATURE |select| - (|#1| (|Mapping| (|Boolean|) |#2|) |#1|)) - (SIGNATURE |remove| - (|#1| (|Mapping| (|Boolean|) |#2|) |#1|)) - (SIGNATURE |reduce| - (|#2| (|Mapping| |#2| |#2| |#2|) |#1| |#2|)) - (SIGNATURE |reduce| - (|#2| (|Mapping| |#2| |#2| |#2|) |#1|)) - (SIGNATURE |find| - ((|Union| |#2| "failed") - (|Mapping| (|Boolean|) |#2|) |#1|)) - (SIGNATURE |count| - ((|NonNegativeInteger|) |#2| |#1|)) - (SIGNATURE |count| - ((|NonNegativeInteger|) - (|Mapping| (|Boolean|) |#2|) |#1|)) - (SIGNATURE |every?| - ((|Boolean|) (|Mapping| (|Boolean|) |#2|) - |#1|)) - (SIGNATURE |any?| - ((|Boolean|) (|Mapping| (|Boolean|) |#2|) - |#1|)) - (SIGNATURE |#| ((|NonNegativeInteger|) |#1|))) - (|Collection| |#2|) (|Type|)) - T '|Collection&| - (|put| '|Collection&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |removeDuplicates| - (|#1| |#1|)) - (SIGNATURE |remove| (|#1| |#2| |#1|)) - (SIGNATURE |reduce| - (|#2| (|Mapping| |#2| |#2| |#2|) - |#1| |#2| |#2|)) - (SIGNATURE |select| - (|#1| (|Mapping| (|Boolean|) |#2|) - |#1|)) - (SIGNATURE |remove| - (|#1| (|Mapping| (|Boolean|) |#2|) - |#1|)) - (SIGNATURE |reduce| - (|#2| (|Mapping| |#2| |#2| |#2|) - |#1| |#2|)) - (SIGNATURE |reduce| - (|#2| (|Mapping| |#2| |#2| |#2|) - |#1|)) - (SIGNATURE |find| - ((|Union| |#2| "failed") - (|Mapping| (|Boolean|) |#2|) - |#1|)) - (SIGNATURE |count| - ((|NonNegativeInteger|) |#2| |#1|)) - (SIGNATURE |count| - ((|NonNegativeInteger|) - (|Mapping| (|Boolean|) |#2|) - |#1|)) - (SIGNATURE |every?| - ((|Boolean|) - (|Mapping| (|Boolean|) |#2|) - |#1|)) - (SIGNATURE |any?| - ((|Boolean|) - (|Mapping| (|Boolean|) |#2|) - |#1|)) - (SIGNATURE |#| - ((|NonNegativeInteger|) |#1|))) - (|Collection| |#2|) (|Type|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/CLAGG.lsp b/src/algebra/strap/CLAGG.lsp index 6ec49d46..a7cff743 100644 --- a/src/algebra/strap/CLAGG.lsp +++ b/src/algebra/strap/CLAGG.lsp @@ -90,7 +90,8 @@ (|InputForm|))))) '((|List| |t#1|)) NIL)) . #1=(|Collection|))))) . #1#) - (SETELT #0# 0 (LIST '|Collection| (|devaluate| |t#1|))))))) + (|setShellEntry| #0# 0 + (LIST '|Collection| (|devaluate| |t#1|))))))) (DEFUN |Collection| (#0=#:G1398) (LET (#1=#:G1399) @@ -102,9 +103,3 @@ (SETQ #1# (|Collection;| #0#))) |Collection;AL|)) #1#)))) - -(SETQ |$CategoryFrame| - (|put| '|Collection| '|isCategory| T - (|addModemap| '|Collection| '(|Collection| |#1|) - '((|Category|) (|Type|)) T '|Collection| - |$CategoryFrame|))) diff --git a/src/algebra/strap/COMRING.lsp b/src/algebra/strap/COMRING.lsp index 6bf0118a..01ad8233 100644 --- a/src/algebra/strap/COMRING.lsp +++ b/src/algebra/strap/COMRING.lsp @@ -11,7 +11,7 @@ (|mkCategory| '|package| NIL '(((|commutative| "*") T)) 'NIL NIL)) |CommutativeRing|) - (SETELT #0# 0 '(|CommutativeRing|)))))) + (|setShellEntry| #0# 0 '(|CommutativeRing|)))))) (DEFUN |CommutativeRing| () (LET () @@ -19,9 +19,4 @@ (|CommutativeRing;AL|) (T (SETQ |CommutativeRing;AL| (|CommutativeRing;|)))))) -(SETQ |$CategoryFrame| - (|put| '|CommutativeRing| '|isCategory| T - (|addModemap| '|CommutativeRing| '(|CommutativeRing|) - '((|Category|)) T '|CommutativeRing| |$CategoryFrame|))) - (MAKEPROP '|CommutativeRing| 'NILADIC T) diff --git a/src/algebra/strap/DFLOAT.lsp b/src/algebra/strap/DFLOAT.lsp index 1123d4d0..57f96e29 100644 --- a/src/algebra/strap/DFLOAT.lsp +++ b/src/algebra/strap/DFLOAT.lsp @@ -696,9 +696,8 @@ (GO #0#)))) (LETT |me| (MANEXP |x|) |DFLOAT;manexp|) (LETT |two53| - (SPADCALL (FLOAT-RADIX 0.0) - (FLOAT-DIGITS 0.0) - (|getShellEntry| $ 117)) + (EXPT (FLOAT-RADIX 0.0) + (FLOAT-DIGITS 0.0)) |DFLOAT;manexp|) (EXIT (CONS (* |s| (FIX (* |two53| (QCAR |me|)))) @@ -706,9 +705,9 @@ #0# (EXIT #0#))))) (DEFUN |DFLOAT;rationalApproximation;$2NniF;83| (|f| |d| |b| $) - (PROG (|#G102| |nu| |ex| BASE #0=#:G1525 |de| |tol| |#G103| |q| |r| - |p2| |q2| #1=#:G1541 |#G104| |#G105| |p0| |p1| |#G106| - |#G107| |q0| |q1| |#G108| |#G109| |s| |t| #2=#:G1539) + (PROG (|#G102| |nu| |ex| BASE #0=#:G1526 |de| |tol| |#G103| |q| |r| + |p2| |q2| #1=#:G1544 |#G104| |#G105| |p0| |p1| |#G106| + |#G107| |q0| |q1| |#G108| |#G109| |s| |t| #2=#:G1542) (RETURN (SEQ (EXIT (SEQ (PROGN (LETT |#G102| (|DFLOAT;manexp| |f| $) @@ -776,14 +775,14 @@ (- (* |nu| |q2|) (* |de| |p2|))) (|getShellEntry| $ - 120)) + 119)) (* |de| (ABS |p2|)))) (EXIT (PROGN (LETT #1# (SPADCALL |p2| |q2| (|getShellEntry| $ - 119)) + 118)) |DFLOAT;rationalApproximation;$2NniF;83|) (GO #1#))))) (PROGN @@ -825,36 +824,36 @@ |DFLOAT;rationalApproximation;$2NniF;83|) (|check-subtype| (>= #2# 0) '(|NonNegativeInteger|) #2#)))) - (|getShellEntry| $ 121))))))) + (|getShellEntry| $ 120))))))) #1# (EXIT #1#))))) (DEFUN |DFLOAT;**;$F$;84| (|x| |r| $) - (PROG (|n| |d| #0=#:G1550) + (PROG (|n| |d| #0=#:G1553) (RETURN (SEQ (EXIT (COND ((ZEROP |x|) (COND - ((SPADCALL |r| (|getShellEntry| $ 122)) + ((SPADCALL |r| (|getShellEntry| $ 121)) (|error| "0**0 is undefined")) - ((SPADCALL |r| (|getShellEntry| $ 123)) + ((SPADCALL |r| (|getShellEntry| $ 122)) (|error| "division by 0")) ('T 0.0))) - ((OR (SPADCALL |r| (|getShellEntry| $ 122)) + ((OR (SPADCALL |r| (|getShellEntry| $ 121)) (= |x| 1.0)) 1.0) ('T (COND - ((SPADCALL |r| (|spadConstant| $ 124) - (|getShellEntry| $ 125)) + ((SPADCALL |r| (|spadConstant| $ 123) + (|getShellEntry| $ 124)) |x|) ('T (SEQ (LETT |n| (SPADCALL |r| - (|getShellEntry| $ 126)) + (|getShellEntry| $ 125)) |DFLOAT;**;$F$;84|) (LETT |d| (SPADCALL |r| - (|getShellEntry| $ 127)) + (|getShellEntry| $ 126)) |DFLOAT;**;$F$;84|) (EXIT (COND ((MINUSP |x|) @@ -893,7 +892,7 @@ (DEFUN |DoubleFloat| () (PROG () (RETURN - (PROG (#0=#:G1563) + (PROG (#0=#:G1566) (RETURN (COND ((LETT #0# (HGET |$ConstructorCache| '|DoubleFloat|) @@ -914,7 +913,7 @@ (RETURN (PROGN (LETT |dv$| '(|DoubleFloat|) . #0=(|DoubleFloat|)) - (LETT $ (|newShell| 141) . #0#) + (LETT $ (|newShell| 140) . #0#) (|setShellEntry| $ 0 |dv$|) (|setShellEntry| $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#)) @@ -975,45 +974,45 @@ (|Union| 104 '"failed") |DFLOAT;retractIfCan;$U;77| |DFLOAT;retract;$I;78| (|Union| 24 '"failed") |DFLOAT;retractIfCan;$U;79| |DFLOAT;sign;$I;80| - |DFLOAT;abs;2$;81| (63 . **) (69 . |Zero|) (73 . /) - (79 . *) (85 . |coerce|) (90 . |zero?|) (95 . |negative?|) - (100 . |One|) (104 . =) (110 . |numer|) (115 . |denom|) + |DFLOAT;abs;2$;81| (63 . |Zero|) (67 . /) (73 . *) + (79 . |coerce|) (84 . |zero?|) (89 . |negative?|) + (94 . |One|) (98 . =) (104 . |numer|) (109 . |denom|) |DFLOAT;**;$F$;84| (|PatternMatchResult| 101 $) (|Pattern| 101) (|Factored| $) (|Record| (|:| |coef1| $) (|:| |coef2| $)) - (|Union| 132 '"failed") (|List| $) (|Union| 134 '"failed") + (|Union| 131 '"failed") (|List| $) (|Union| 133 '"failed") (|Record| (|:| |coef1| $) (|:| |coef2| $) (|:| |generator| $)) (|Record| (|:| |quotient| $) (|:| |remainder| $)) (|SparseUnivariatePolynomial| $) - (|Record| (|:| |coef| 134) (|:| |generator| $)) + (|Record| (|:| |coef| 133) (|:| |generator| $)) (|Record| (|:| |unit| $) (|:| |canonical| $) (|:| |associate| $))) - '#(~= 120 |zero?| 126 |wholePart| 131 |unitNormal| 136 - |unitCanonical| 141 |unit?| 146 |truncate| 151 |tanh| 156 - |tan| 161 |subtractIfCan| 166 |squareFreePart| 172 - |squareFree| 177 |sqrt| 182 |sizeLess?| 187 |sinh| 193 - |sin| 198 |sign| 203 |sech| 208 |sec| 213 |sample| 218 - |round| 222 |retractIfCan| 227 |retract| 237 |rem| 247 - |recip| 253 |rationalApproximation| 258 |quo| 271 - |principalIdeal| 277 |prime?| 282 |precision| 287 - |positive?| 291 |pi| 296 |patternMatch| 300 |order| 307 - |one?| 312 |nthRoot| 317 |norm| 323 |negative?| 328 - |multiEuclidean| 333 |min| 339 |max| 349 |mantissa| 359 - |log2| 364 |log10| 369 |log| 374 |lcm| 379 |latex| 390 - |inv| 395 |hash| 400 |gcdPolynomial| 405 |gcd| 411 - |fractionPart| 422 |floor| 427 |float| 432 |factor| 445 - |extendedEuclidean| 450 |exquo| 463 |expressIdealMember| - 469 |exponent| 475 |exp1| 480 |exp| 484 |euclideanSize| - 489 |divide| 494 |digits| 500 |differentiate| 504 |csch| - 515 |csc| 520 |coth| 525 |cot| 530 |cosh| 535 |cos| 540 - |convert| 545 |coerce| 565 |characteristic| 595 |ceiling| - 599 |bits| 604 |base| 608 |atanh| 612 |atan| 617 - |associates?| 628 |asinh| 634 |asin| 639 |asech| 644 - |asec| 649 |acsch| 654 |acsc| 659 |acoth| 664 |acot| 669 - |acosh| 674 |acos| 679 |abs| 684 |Zero| 689 |One| 693 - |OMwrite| 697 |Gamma| 721 D 726 |Beta| 737 >= 743 > 749 = - 755 <= 761 < 767 / 773 - 785 + 796 ** 802 * 832) + '#(~= 114 |zero?| 120 |wholePart| 125 |unitNormal| 130 + |unitCanonical| 135 |unit?| 140 |truncate| 145 |tanh| 150 + |tan| 155 |subtractIfCan| 160 |squareFreePart| 166 + |squareFree| 171 |sqrt| 176 |sizeLess?| 181 |sinh| 187 + |sin| 192 |sign| 197 |sech| 202 |sec| 207 |sample| 212 + |round| 216 |retractIfCan| 221 |retract| 231 |rem| 241 + |recip| 247 |rationalApproximation| 252 |quo| 265 + |principalIdeal| 271 |prime?| 276 |precision| 281 + |positive?| 285 |pi| 290 |patternMatch| 294 |order| 301 + |one?| 306 |nthRoot| 311 |norm| 317 |negative?| 322 + |multiEuclidean| 327 |min| 333 |max| 343 |mantissa| 353 + |log2| 358 |log10| 363 |log| 368 |lcm| 373 |latex| 384 + |inv| 389 |hash| 394 |gcdPolynomial| 399 |gcd| 405 + |fractionPart| 416 |floor| 421 |float| 426 |factor| 439 + |extendedEuclidean| 444 |exquo| 457 |expressIdealMember| + 463 |exponent| 469 |exp1| 474 |exp| 478 |euclideanSize| + 483 |divide| 488 |digits| 494 |differentiate| 498 |csch| + 509 |csc| 514 |coth| 519 |cot| 524 |cosh| 529 |cos| 534 + |convert| 539 |coerce| 559 |characteristic| 589 |ceiling| + 593 |bits| 598 |base| 602 |atanh| 606 |atan| 611 + |associates?| 622 |asinh| 628 |asin| 633 |asech| 638 + |asec| 643 |acsch| 648 |acsc| 653 |acoth| 658 |acot| 663 + |acosh| 668 |acos| 673 |abs| 678 |Zero| 683 |One| 687 + |OMwrite| 691 |Gamma| 715 D 720 |Beta| 731 >= 737 > 743 = + 749 <= 755 < 761 / 767 - 779 + 790 ** 796 * 826) '((|approximate| . 0) (|canonicalsClosed| . 0) (|canonicalUnitNormal| . 0) (|noZeroDivisors| . 0) ((|commutative| "*") . 0) (|rightUnitary| . 0) @@ -1021,7 +1020,7 @@ (CONS (|makeByteWordVec2| 1 '(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0)) + 0 0 0 0 0 0 0 0)) (CONS '#(|FloatingPointSystem&| |RealNumberSystem&| |Field&| |EuclideanDomain&| NIL |UniqueFactorizationDomain&| |GcdDomain&| @@ -1038,8 +1037,8 @@ |HyperbolicFunctionCategory&| |ArcTrigonometricFunctionCategory&| |TrigonometricFunctionCategory&| NIL NIL - |RadicalCategory&| |RetractableTo&| - |RetractableTo&| NIL NIL |BasicType&| NIL) + |RadicalCategory&| |RetractableTo&| NIL + |RetractableTo&| NIL NIL NIL |BasicType&| NIL) (CONS '#((|FloatingPointSystem|) (|RealNumberSystem|) (|Field|) (|EuclideanDomain|) @@ -1072,321 +1071,71 @@ (|HyperbolicFunctionCategory|) (|ArcTrigonometricFunctionCategory|) (|TrigonometricFunctionCategory|) - (|OpenMath|) (|ConvertibleTo| 130) + (|OpenMath|) (|ConvertibleTo| 129) (|RadicalCategory|) (|RetractableTo| 104) + (|CoercibleFrom| 104) (|RetractableTo| 24) + (|CoercibleFrom| 24) (|ConvertibleTo| 101) (|ConvertibleTo| 13) (|BasicType|) (|CoercibleTo| 38)) - (|makeByteWordVec2| 140 + (|makeByteWordVec2| 139 '(0 6 0 7 2 9 0 8 6 10 1 9 11 0 12 2 9 11 0 13 14 1 9 11 0 15 1 9 11 0 16 2 0 0 22 0 29 1 38 0 13 39 1 41 0 13 42 1 93 13 13 94 2 93 13 13 13 96 1 101 - 0 13 102 2 24 0 0 22 117 0 104 0 118 - 2 104 0 24 24 119 2 24 0 105 0 120 1 - 104 0 24 121 1 104 18 0 122 1 104 18 - 0 123 0 104 0 124 2 104 18 0 0 125 1 - 104 24 0 126 1 104 24 0 127 2 0 18 0 - 0 1 1 0 18 0 87 1 0 24 0 98 1 0 140 0 - 1 1 0 0 0 1 1 0 18 0 1 1 0 0 0 1 1 0 - 0 0 75 1 0 0 0 63 2 0 90 0 0 1 1 0 0 - 0 1 1 0 131 0 1 1 0 0 0 54 2 0 18 0 0 - 1 1 0 0 0 73 1 0 0 0 61 1 0 24 0 115 - 1 0 0 0 78 1 0 0 0 65 0 0 0 1 1 0 0 0 - 1 1 0 110 0 111 1 0 113 0 114 1 0 104 - 0 109 1 0 24 0 112 2 0 0 0 0 1 1 0 90 - 0 91 2 0 104 0 105 107 3 0 104 0 105 - 105 106 2 0 0 0 0 1 1 0 139 134 1 1 0 - 18 0 1 0 0 22 27 1 0 18 0 1 0 0 0 37 - 3 0 129 0 130 129 1 1 0 24 0 33 1 0 - 18 0 1 2 0 0 0 24 1 1 0 0 0 1 1 0 18 - 0 86 2 0 135 134 0 1 0 0 0 32 2 0 0 0 - 0 51 0 0 0 31 2 0 0 0 0 50 1 0 24 0 - 25 1 0 0 0 28 1 0 0 0 55 1 0 0 0 60 2 - 0 0 0 0 1 1 0 0 134 1 1 0 8 0 1 1 0 0 - 0 1 1 0 88 0 89 2 0 138 138 138 1 1 0 - 0 134 1 2 0 0 0 0 1 1 0 0 0 1 1 0 0 0 - 1 3 0 0 24 24 22 99 2 0 0 24 24 1 1 0 - 131 0 1 3 0 133 0 0 0 1 2 0 136 0 0 1 - 2 0 90 0 0 1 2 0 135 134 0 1 1 0 24 0 - 26 0 0 0 36 1 0 0 0 59 1 0 105 0 1 2 - 0 137 0 0 1 0 0 22 1 1 0 0 0 92 2 0 0 - 0 105 1 1 0 0 0 76 1 0 0 0 66 1 0 0 0 - 77 1 0 0 0 64 1 0 0 0 74 1 0 0 0 62 1 - 0 41 0 43 1 0 130 0 1 1 0 101 0 103 1 - 0 13 0 100 1 0 0 104 1 1 0 0 24 58 1 - 0 0 104 1 1 0 0 24 58 1 0 0 0 1 1 0 - 38 0 40 0 0 105 1 1 0 0 0 1 0 0 22 30 - 0 0 22 23 1 0 0 0 81 2 0 0 0 0 108 1 - 0 0 0 69 2 0 18 0 0 1 1 0 0 0 79 1 0 - 0 0 67 1 0 0 0 84 1 0 0 0 72 1 0 0 0 - 82 1 0 0 0 70 1 0 0 0 83 1 0 0 0 71 1 - 0 0 0 80 1 0 0 0 68 1 0 0 0 116 0 0 0 - 34 0 0 0 35 2 0 11 9 0 20 3 0 11 9 0 - 18 21 1 0 8 0 17 2 0 8 0 18 19 1 0 0 - 0 95 1 0 0 0 1 2 0 0 0 105 1 2 0 0 0 - 0 97 2 0 18 0 0 1 2 0 18 0 0 1 2 0 18 - 0 0 52 2 0 18 0 0 1 2 0 18 0 0 44 2 0 - 0 0 24 53 2 0 0 0 0 85 2 0 0 0 0 47 1 - 0 0 0 45 2 0 0 0 0 46 2 0 0 0 0 57 2 - 0 0 0 104 128 2 0 0 0 24 56 2 0 0 0 - 105 1 2 0 0 0 22 1 2 0 0 104 0 1 2 0 - 0 0 104 1 2 0 0 0 0 48 2 0 0 24 0 49 - 2 0 0 105 0 1 2 0 0 22 0 29))))) + 0 13 102 0 104 0 117 2 104 0 24 24 + 118 2 24 0 105 0 119 1 104 0 24 120 1 + 104 18 0 121 1 104 18 0 122 0 104 0 + 123 2 104 18 0 0 124 1 104 24 0 125 1 + 104 24 0 126 2 0 18 0 0 1 1 0 18 0 87 + 1 0 24 0 98 1 0 139 0 1 1 0 0 0 1 1 0 + 18 0 1 1 0 0 0 1 1 0 0 0 75 1 0 0 0 + 63 2 0 90 0 0 1 1 0 0 0 1 1 0 130 0 1 + 1 0 0 0 54 2 0 18 0 0 1 1 0 0 0 73 1 + 0 0 0 61 1 0 24 0 115 1 0 0 0 78 1 0 + 0 0 65 0 0 0 1 1 0 0 0 1 1 0 110 0 + 111 1 0 113 0 114 1 0 104 0 109 1 0 + 24 0 112 2 0 0 0 0 1 1 0 90 0 91 2 0 + 104 0 105 107 3 0 104 0 105 105 106 2 + 0 0 0 0 1 1 0 138 133 1 1 0 18 0 1 0 + 0 22 27 1 0 18 0 1 0 0 0 37 3 0 128 0 + 129 128 1 1 0 24 0 33 1 0 18 0 1 2 0 + 0 0 24 1 1 0 0 0 1 1 0 18 0 86 2 0 + 134 133 0 1 0 0 0 32 2 0 0 0 0 51 0 0 + 0 31 2 0 0 0 0 50 1 0 24 0 25 1 0 0 0 + 28 1 0 0 0 55 1 0 0 0 60 2 0 0 0 0 1 + 1 0 0 133 1 1 0 8 0 1 1 0 0 0 1 1 0 + 88 0 89 2 0 137 137 137 1 1 0 0 133 1 + 2 0 0 0 0 1 1 0 0 0 1 1 0 0 0 1 3 0 0 + 24 24 22 99 2 0 0 24 24 1 1 0 130 0 1 + 3 0 132 0 0 0 1 2 0 135 0 0 1 2 0 90 + 0 0 1 2 0 134 133 0 1 1 0 24 0 26 0 0 + 0 36 1 0 0 0 59 1 0 105 0 1 2 0 136 0 + 0 1 0 0 22 1 1 0 0 0 92 2 0 0 0 105 1 + 1 0 0 0 76 1 0 0 0 66 1 0 0 0 77 1 0 + 0 0 64 1 0 0 0 74 1 0 0 0 62 1 0 41 0 + 43 1 0 129 0 1 1 0 101 0 103 1 0 13 0 + 100 1 0 0 104 1 1 0 0 24 58 1 0 0 104 + 1 1 0 0 24 58 1 0 0 0 1 1 0 38 0 40 0 + 0 105 1 1 0 0 0 1 0 0 22 30 0 0 22 23 + 1 0 0 0 81 2 0 0 0 0 108 1 0 0 0 69 2 + 0 18 0 0 1 1 0 0 0 79 1 0 0 0 67 1 0 + 0 0 84 1 0 0 0 72 1 0 0 0 82 1 0 0 0 + 70 1 0 0 0 83 1 0 0 0 71 1 0 0 0 80 1 + 0 0 0 68 1 0 0 0 116 0 0 0 34 0 0 0 + 35 2 0 11 9 0 20 3 0 11 9 0 18 21 1 0 + 8 0 17 2 0 8 0 18 19 1 0 0 0 95 1 0 0 + 0 1 2 0 0 0 105 1 2 0 0 0 0 97 2 0 18 + 0 0 1 2 0 18 0 0 1 2 0 18 0 0 52 2 0 + 18 0 0 1 2 0 18 0 0 44 2 0 0 0 24 53 + 2 0 0 0 0 85 2 0 0 0 0 47 1 0 0 0 45 + 2 0 0 0 0 46 2 0 0 0 0 57 2 0 0 0 104 + 127 2 0 0 0 24 56 2 0 0 0 105 1 2 0 0 + 0 22 1 2 0 0 104 0 1 2 0 0 0 104 1 2 + 0 0 0 0 48 2 0 0 24 0 49 2 0 0 105 0 + 1 2 0 0 22 0 29))))) '|lookupComplete|)) -(SETQ |$CategoryFrame| - (|put| '|DoubleFloat| '|isFunctor| - '(((|rationalApproximation| - ((|Fraction| (|Integer|)) $ (|NonNegativeInteger|) - (|NonNegativeInteger|))) - T (ELT $ 106)) - ((|rationalApproximation| - ((|Fraction| (|Integer|)) $ (|NonNegativeInteger|))) - T (ELT $ 107)) - ((|Beta| ($ $ $)) T (ELT $ 97)) - ((|Gamma| ($ $)) T (ELT $ 95)) - ((|atan| ($ $ $)) T (ELT $ 108)) - ((|log10| ($ $)) T (ELT $ 55)) - ((|log2| ($ $)) T (ELT $ 28)) - ((|exp1| ($)) T (ELT $ 36)) - ((/ ($ $ (|Integer|))) T (ELT $ 53)) - ((|convert| ((|InputForm|) $)) T (ELT $ 43)) - ((|tan| ($ $)) T (ELT $ 63)) - ((|sin| ($ $)) T (ELT $ 61)) - ((|sec| ($ $)) T (ELT $ 65)) - ((|csc| ($ $)) T (ELT $ 66)) - ((|cot| ($ $)) T (ELT $ 64)) - ((|cos| ($ $)) T (ELT $ 62)) - ((|acos| ($ $)) T (ELT $ 68)) - ((|acot| ($ $)) T (ELT $ 71)) - ((|acsc| ($ $)) T (ELT $ 70)) - ((|asec| ($ $)) T (ELT $ 72)) - ((|asin| ($ $)) T (ELT $ 67)) - ((|atan| ($ $)) T (ELT $ 69)) - ((|cosh| ($ $)) T (ELT $ 74)) - ((|coth| ($ $)) T (ELT $ 77)) - ((|csch| ($ $)) T (ELT $ 76)) - ((|sech| ($ $)) T (ELT $ 78)) - ((|sinh| ($ $)) T (ELT $ 73)) - ((|tanh| ($ $)) T (ELT $ 75)) - ((|acosh| ($ $)) T (ELT $ 80)) - ((|acoth| ($ $)) T (ELT $ 83)) - ((|acsch| ($ $)) T (ELT $ 82)) - ((|asech| ($ $)) T (ELT $ 84)) - ((|asinh| ($ $)) T (ELT $ 79)) - ((|atanh| ($ $)) T (ELT $ 81)) - ((|log| ($ $)) T (ELT $ 60)) - ((|exp| ($ $)) T (ELT $ 59)) ((** ($ $ $)) T (ELT $ 57)) - ((|pi| ($)) T (ELT $ 37)) - ((|OMwrite| ((|Void|) (|OpenMathDevice|) $ (|Boolean|))) - T (ELT $ 21)) - ((|OMwrite| ((|Void|) (|OpenMathDevice|) $)) T - (ELT $ 20)) - ((|OMwrite| ((|String|) $ (|Boolean|))) T (ELT $ 19)) - ((|OMwrite| ((|String|) $)) T (ELT $ 17)) - ((|differentiate| ($ $)) T (ELT $ 92)) - ((D ($ $)) T (ELT $ NIL)) - ((|differentiate| ($ $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((D ($ $ (|NonNegativeInteger|))) T (ELT $ NIL)) - ((|max| ($)) - (AND (|not| (|has| $ (ATTRIBUTE |arbitraryExponent|))) - (|not| (|has| $ (ATTRIBUTE |arbitraryPrecision|)))) - (ELT $ 31)) - ((|min| ($)) - (AND (|not| (|has| $ (ATTRIBUTE |arbitraryExponent|))) - (|not| (|has| $ (ATTRIBUTE |arbitraryPrecision|)))) - (ELT $ 32)) - ((|decreasePrecision| ((|PositiveInteger|) (|Integer|))) - (|has| $ (ATTRIBUTE |arbitraryPrecision|)) (ELT $ NIL)) - ((|increasePrecision| ((|PositiveInteger|) (|Integer|))) - (|has| $ (ATTRIBUTE |arbitraryPrecision|)) (ELT $ NIL)) - ((|precision| ((|PositiveInteger|) (|PositiveInteger|))) - (|has| $ (ATTRIBUTE |arbitraryPrecision|)) (ELT $ NIL)) - ((|digits| ((|PositiveInteger|) (|PositiveInteger|))) - (|has| $ (ATTRIBUTE |arbitraryPrecision|)) (ELT $ NIL)) - ((|bits| ((|PositiveInteger|) (|PositiveInteger|))) - (|has| $ (ATTRIBUTE |arbitraryPrecision|)) (ELT $ NIL)) - ((|precision| ((|PositiveInteger|))) T (ELT $ 27)) - ((|digits| ((|PositiveInteger|))) T (ELT $ NIL)) - ((|bits| ((|PositiveInteger|))) T (ELT $ 30)) - ((|mantissa| ((|Integer|) $)) T (ELT $ 25)) - ((|exponent| ((|Integer|) $)) T (ELT $ 26)) - ((|base| ((|PositiveInteger|))) T (ELT $ 23)) - ((|order| ((|Integer|) $)) T (ELT $ 33)) - ((|float| ($ (|Integer|) (|Integer|) - (|PositiveInteger|))) - T (ELT $ 99)) - ((|float| ($ (|Integer|) (|Integer|))) T (ELT $ NIL)) - ((|round| ($ $)) T (ELT $ NIL)) - ((|truncate| ($ $)) T (ELT $ NIL)) - ((|fractionPart| ($ $)) T (ELT $ NIL)) - ((|wholePart| ((|Integer|) $)) T (ELT $ 98)) - ((|floor| ($ $)) T (ELT $ NIL)) - ((|ceiling| ($ $)) T (ELT $ NIL)) - ((|norm| ($ $)) T (ELT $ NIL)) - ((|patternMatch| - ((|PatternMatchResult| (|Float|) $) $ - (|Pattern| (|Float|)) - (|PatternMatchResult| (|Float|) $))) - T (ELT $ NIL)) - ((|convert| ((|Pattern| (|Float|)) $)) T (ELT $ NIL)) - ((** ($ $ (|Fraction| (|Integer|)))) T (ELT $ 128)) - ((|nthRoot| ($ $ (|Integer|))) T (ELT $ NIL)) - ((|sqrt| ($ $)) T (ELT $ 54)) - ((|retract| ((|Fraction| (|Integer|)) $)) T (ELT $ 109)) - ((|retractIfCan| - ((|Union| (|Fraction| (|Integer|)) "failed") $)) - T (ELT $ 111)) - ((|coerce| ($ (|Fraction| (|Integer|)))) T (ELT $ NIL)) - ((|retract| ((|Integer|) $)) T (ELT $ 112)) - ((|retractIfCan| ((|Union| (|Integer|) "failed") $)) T - (ELT $ 114)) - ((|coerce| ($ (|Integer|))) T (ELT $ 58)) - ((|convert| ((|DoubleFloat|) $)) T (ELT $ 100)) - ((|convert| ((|Float|) $)) T (ELT $ 103)) - ((< ((|Boolean|) $ $)) T (ELT $ 44)) - ((> ((|Boolean|) $ $)) T (ELT $ NIL)) - ((>= ((|Boolean|) $ $)) T (ELT $ NIL)) - ((<= ((|Boolean|) $ $)) T (ELT $ NIL)) - ((|max| ($ $ $)) T (ELT $ 50)) - ((|min| ($ $ $)) T (ELT $ 51)) - ((|positive?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|negative?| ((|Boolean|) $)) T (ELT $ 86)) - ((|sign| ((|Integer|) $)) T (ELT $ 115)) - ((|abs| ($ $)) T (ELT $ 116)) ((/ ($ $ $)) T (ELT $ 85)) - ((|coerce| ($ (|Fraction| (|Integer|)))) T (ELT $ NIL)) - ((* ($ (|Fraction| (|Integer|)) $)) T (ELT $ NIL)) - ((* ($ $ (|Fraction| (|Integer|)))) T (ELT $ NIL)) - ((** ($ $ (|Integer|))) T (ELT $ 56)) - ((|inv| ($ $)) T (ELT $ NIL)) - ((|prime?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|squareFree| ((|Factored| $) $)) T (ELT $ NIL)) - ((|squareFreePart| ($ $)) T (ELT $ NIL)) - ((|factor| ((|Factored| $) $)) T (ELT $ NIL)) - ((|multiEuclidean| - ((|Union| (|List| $) "failed") (|List| $) $)) - T (ELT $ NIL)) - ((|extendedEuclidean| - ((|Union| (|Record| (|:| |coef1| $) - (|:| |coef2| $)) - "failed") - $ $ $)) - T (ELT $ NIL)) - ((|extendedEuclidean| - ((|Record| (|:| |coef1| $) (|:| |coef2| $) - (|:| |generator| $)) - $ $)) - T (ELT $ NIL)) - ((|rem| ($ $ $)) T (ELT $ NIL)) - ((|quo| ($ $ $)) T (ELT $ NIL)) - ((|divide| - ((|Record| (|:| |quotient| $) (|:| |remainder| $)) - $ $)) - T (ELT $ NIL)) - ((|euclideanSize| ((|NonNegativeInteger|) $)) T - (ELT $ NIL)) - ((|sizeLess?| ((|Boolean|) $ $)) T (ELT $ NIL)) - ((|expressIdealMember| - ((|Union| (|List| $) "failed") (|List| $) $)) - T (ELT $ NIL)) - ((|principalIdeal| - ((|Record| (|:| |coef| (|List| $)) - (|:| |generator| $)) - (|List| $))) - T (ELT $ NIL)) - ((|gcdPolynomial| - ((|SparseUnivariatePolynomial| $) - (|SparseUnivariatePolynomial| $) - (|SparseUnivariatePolynomial| $))) - T (ELT $ NIL)) - ((|lcm| ($ (|List| $))) T (ELT $ NIL)) - ((|lcm| ($ $ $)) T (ELT $ NIL)) - ((|gcd| ($ (|List| $))) T (ELT $ NIL)) - ((|gcd| ($ $ $)) T (ELT $ NIL)) - ((|unit?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|associates?| ((|Boolean|) $ $)) T (ELT $ NIL)) - ((|unitCanonical| ($ $)) T (ELT $ NIL)) - ((|unitNormal| - ((|Record| (|:| |unit| $) (|:| |canonical| $) - (|:| |associate| $)) - $)) - T (ELT $ NIL)) - ((|exquo| ((|Union| $ "failed") $ $)) T (ELT $ NIL)) - ((|coerce| ($ $)) T (ELT $ NIL)) - ((|coerce| ($ (|Integer|))) T (ELT $ 58)) - ((|characteristic| ((|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|One| ($)) T (CONST $ 35)) - ((|one?| ((|Boolean|) $)) T (ELT $ NIL)) - ((** ($ $ (|NonNegativeInteger|))) T (ELT $ NIL)) - ((|recip| ((|Union| $ "failed") $)) T (ELT $ 91)) - ((* ($ $ $)) T (ELT $ 48)) - ((** ($ $ (|PositiveInteger|))) T (ELT $ NIL)) - ((* ($ (|Integer|) $)) T (ELT $ 49)) - ((- ($ $ $)) T (ELT $ 47)) ((- ($ $)) T (ELT $ 45)) - ((|subtractIfCan| ((|Union| $ "failed") $ $)) T - (ELT $ NIL)) - ((* ($ (|NonNegativeInteger|) $)) T (ELT $ NIL)) - ((|zero?| ((|Boolean|) $)) T (ELT $ 87)) - ((|sample| ($)) T (CONST $ NIL)) - ((|Zero| ($)) T (CONST $ 34)) - ((* ($ (|PositiveInteger|) $)) T (ELT $ 29)) - ((+ ($ $ $)) T (ELT $ 46)) - ((|latex| ((|String|) $)) T (ELT $ NIL)) - ((|hash| ((|SingleInteger|) $)) T (ELT $ 89)) - ((|coerce| ((|OutputForm|) $)) T (ELT $ 40)) - ((= ((|Boolean|) $ $)) T (ELT $ 52)) - ((~= ((|Boolean|) $ $)) T (ELT $ NIL))) - (|addModemap| '|DoubleFloat| '(|DoubleFloat|) - '((|Join| (|FloatingPointSystem|) (|DifferentialRing|) - (|OpenMath|) - (|TranscendentalFunctionCategory|) - (|ConvertibleTo| (|InputForm|)) - (CATEGORY |domain| - (SIGNATURE / ($ $ (|Integer|))) - (SIGNATURE ** ($ $ $)) - (SIGNATURE |exp1| ($)) - (SIGNATURE |log2| ($ $)) - (SIGNATURE |log10| ($ $)) - (SIGNATURE |atan| ($ $ $)) - (SIGNATURE |Gamma| ($ $)) - (SIGNATURE |Beta| ($ $ $)) - (SIGNATURE |rationalApproximation| - ((|Fraction| (|Integer|)) $ - (|NonNegativeInteger|))) - (SIGNATURE |rationalApproximation| - ((|Fraction| (|Integer|)) $ - (|NonNegativeInteger|) - (|NonNegativeInteger|)))))) - T '|DoubleFloat| - (|put| '|DoubleFloat| '|mode| - '(|Mapping| - (|Join| (|FloatingPointSystem|) - (|DifferentialRing|) (|OpenMath|) - (|TranscendentalFunctionCategory|) - (|ConvertibleTo| (|InputForm|)) - (CATEGORY |domain| - (SIGNATURE / ($ $ (|Integer|))) - (SIGNATURE ** ($ $ $)) - (SIGNATURE |exp1| ($)) - (SIGNATURE |log2| ($ $)) - (SIGNATURE |log10| ($ $)) - (SIGNATURE |atan| ($ $ $)) - (SIGNATURE |Gamma| ($ $)) - (SIGNATURE |Beta| ($ $ $)) - (SIGNATURE - |rationalApproximation| - ((|Fraction| (|Integer|)) $ - (|NonNegativeInteger|))) - (SIGNATURE - |rationalApproximation| - ((|Fraction| (|Integer|)) $ - (|NonNegativeInteger|) - (|NonNegativeInteger|)))))) - |$CategoryFrame|)))) - (MAKEPROP '|DoubleFloat| 'NILADIC T) diff --git a/src/algebra/strap/DIFRING-.lsp b/src/algebra/strap/DIFRING-.lsp index 0c2afaf6..1c9f8444 100644 --- a/src/algebra/strap/DIFRING-.lsp +++ b/src/algebra/strap/DIFRING-.lsp @@ -57,33 +57,3 @@ '(1 6 0 0 7 2 6 0 0 9 11 2 0 0 0 9 10 2 0 0 0 9 12 1 0 0 0 8))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|DifferentialRing&| '|isFunctor| - '(((D ($ $ (|NonNegativeInteger|))) T (ELT $ 12)) - ((|differentiate| ($ $ (|NonNegativeInteger|))) T - (ELT $ 10)) - ((D ($ $)) T (ELT $ 8)) - ((|differentiate| ($ $)) T (ELT $ NIL))) - (|addModemap| '|DifferentialRing&| - '(|DifferentialRing&| |#1|) - '((CATEGORY |domain| - (SIGNATURE D (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE D (|#1| |#1|)) - (SIGNATURE |differentiate| (|#1| |#1|))) - (|DifferentialRing|)) - T '|DifferentialRing&| - (|put| '|DifferentialRing&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE D - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE D (|#1| |#1|)) - (SIGNATURE |differentiate| - (|#1| |#1|))) - (|DifferentialRing|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/DIFRING.lsp b/src/algebra/strap/DIFRING.lsp index 63e3b4fd..89e91f31 100644 --- a/src/algebra/strap/DIFRING.lsp +++ b/src/algebra/strap/DIFRING.lsp @@ -17,7 +17,7 @@ ((D ($ $ (|NonNegativeInteger|))) T)) NIL '((|NonNegativeInteger|)) NIL)) |DifferentialRing|) - (SETELT #0# 0 '(|DifferentialRing|)))))) + (|setShellEntry| #0# 0 '(|DifferentialRing|)))))) (DEFUN |DifferentialRing| () (LET () @@ -25,10 +25,4 @@ (|DifferentialRing;AL|) (T (SETQ |DifferentialRing;AL| (|DifferentialRing;|)))))) -(SETQ |$CategoryFrame| - (|put| '|DifferentialRing| '|isCategory| T - (|addModemap| '|DifferentialRing| '(|DifferentialRing|) - '((|Category|)) T '|DifferentialRing| - |$CategoryFrame|))) - (MAKEPROP '|DifferentialRing| 'NILADIC T) diff --git a/src/algebra/strap/DIVRING-.lsp b/src/algebra/strap/DIVRING-.lsp index b8b219ec..4a61885c 100644 --- a/src/algebra/strap/DIVRING-.lsp +++ b/src/algebra/strap/DIVRING-.lsp @@ -58,53 +58,3 @@ 19 1 6 0 15 20 2 6 0 15 0 21 2 6 0 0 0 22 2 0 0 0 15 16 2 0 0 17 0 23))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|DivisionRing&| '|isFunctor| - '(((** ($ $ (|Integer|))) T (ELT $ 16)) - ((* ($ $ (|Fraction| (|Integer|)))) T (ELT $ NIL)) - ((* ($ (|Fraction| (|Integer|)) $)) T (ELT $ 23)) - ((** ($ $ (|NonNegativeInteger|))) T (ELT $ NIL)) - ((* ($ $ $)) T (ELT $ NIL)) - ((** ($ $ (|PositiveInteger|))) T (ELT $ NIL)) - ((* ($ (|Integer|) $)) T (ELT $ NIL)) - ((* ($ (|NonNegativeInteger|) $)) T (ELT $ NIL)) - ((* ($ (|PositiveInteger|) $)) T (ELT $ NIL))) - (|addModemap| '|DivisionRing&| '(|DivisionRing&| |#1|) - '((CATEGORY |domain| - (SIGNATURE ** (|#1| |#1| (|Integer|))) - (SIGNATURE * - (|#1| |#1| (|Fraction| (|Integer|)))) - (SIGNATURE * - (|#1| (|Fraction| (|Integer|)) |#1|)) - (SIGNATURE ** - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE * (|#1| |#1| |#1|)) - (SIGNATURE ** (|#1| |#1| (|PositiveInteger|))) - (SIGNATURE * (|#1| (|Integer|) |#1|)) - (SIGNATURE * (|#1| (|NonNegativeInteger|) |#1|)) - (SIGNATURE * (|#1| (|PositiveInteger|) |#1|))) - (|DivisionRing|)) - T '|DivisionRing&| - (|put| '|DivisionRing&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE ** (|#1| |#1| (|Integer|))) - (SIGNATURE * - (|#1| |#1| - (|Fraction| (|Integer|)))) - (SIGNATURE * - (|#1| (|Fraction| (|Integer|)) - |#1|)) - (SIGNATURE ** - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE * (|#1| |#1| |#1|)) - (SIGNATURE ** - (|#1| |#1| (|PositiveInteger|))) - (SIGNATURE * (|#1| (|Integer|) |#1|)) - (SIGNATURE * - (|#1| (|NonNegativeInteger|) |#1|)) - (SIGNATURE * - (|#1| (|PositiveInteger|) |#1|))) - (|DivisionRing|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/DIVRING.lsp b/src/algebra/strap/DIVRING.lsp index e72ef347..ce6499f5 100644 --- a/src/algebra/strap/DIVRING.lsp +++ b/src/algebra/strap/DIVRING.lsp @@ -16,7 +16,7 @@ ((|inv| ($ $)) T)) NIL '((|Integer|)) NIL))) |DivisionRing|) - (SETELT #0# 0 '(|DivisionRing|)))))) + (|setShellEntry| #0# 0 '(|DivisionRing|)))))) (DEFUN |DivisionRing| () (LET () @@ -24,9 +24,4 @@ (|DivisionRing;AL|) (T (SETQ |DivisionRing;AL| (|DivisionRing;|)))))) -(SETQ |$CategoryFrame| - (|put| '|DivisionRing| '|isCategory| T - (|addModemap| '|DivisionRing| '(|DivisionRing|) - '((|Category|)) T '|DivisionRing| |$CategoryFrame|))) - (MAKEPROP '|DivisionRing| 'NILADIC T) diff --git a/src/algebra/strap/ENTIRER.lsp b/src/algebra/strap/ENTIRER.lsp index 9b89cfc9..d82918d3 100644 --- a/src/algebra/strap/ENTIRER.lsp +++ b/src/algebra/strap/ENTIRER.lsp @@ -11,7 +11,7 @@ (|mkCategory| '|package| NIL '((|noZeroDivisors| T)) 'NIL NIL)) |EntireRing|) - (SETELT #0# 0 '(|EntireRing|)))))) + (|setShellEntry| #0# 0 '(|EntireRing|)))))) (DEFUN |EntireRing| () (LET () @@ -19,9 +19,4 @@ (|EntireRing;AL|) (T (SETQ |EntireRing;AL| (|EntireRing;|)))))) -(SETQ |$CategoryFrame| - (|put| '|EntireRing| '|isCategory| T - (|addModemap| '|EntireRing| '(|EntireRing|) - '((|Category|)) T '|EntireRing| |$CategoryFrame|))) - (MAKEPROP '|EntireRing| 'NILADIC T) diff --git a/src/algebra/strap/ES-.lsp b/src/algebra/strap/ES-.lsp index 15d5ab4d..d17b7e1b 100644 --- a/src/algebra/strap/ES-.lsp +++ b/src/algebra/strap/ES-.lsp @@ -934,282 +934,3 @@ 53 1 0 0 15 55 1 0 0 0 17 1 0 20 10 22))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|ExpressionSpace&| '|isFunctor| - '(((|odd?| ((|Boolean|) $)) T (ELT $ 131)) - ((|even?| ((|Boolean|) $)) T (ELT $ 129)) - ((|eval| ($ $ (|BasicOperator|) (|Mapping| $ $))) T - (ELT $ 77)) - ((|eval| ($ $ (|BasicOperator|) - (|Mapping| $ (|List| $)))) - T (ELT $ 71)) - ((|eval| ($ $ (|List| (|BasicOperator|)) - (|List| (|Mapping| $ (|List| $))))) - T (ELT $ 85)) - ((|eval| ($ $ (|List| (|BasicOperator|)) - (|List| (|Mapping| $ $)))) - T (ELT $ 83)) - ((|eval| ($ $ (|Symbol|) (|Mapping| $ $))) T (ELT $ 75)) - ((|eval| ($ $ (|Symbol|) (|Mapping| $ (|List| $)))) T - (ELT $ 69)) - ((|eval| ($ $ (|List| (|Symbol|)) - (|List| (|Mapping| $ (|List| $))))) - T (ELT $ NIL)) - ((|eval| ($ $ (|List| (|Symbol|)) - (|List| (|Mapping| $ $)))) - T (ELT $ 84)) - ((|freeOf?| ((|Boolean|) $ (|Symbol|))) T (ELT $ 51)) - ((|freeOf?| ((|Boolean|) $ $)) T (ELT $ 59)) - ((|map| ($ (|Mapping| $ $) (|Kernel| $))) T (ELT $ 89)) - ((|kernel| ($ (|BasicOperator|) (|List| $))) T - (ELT $ 100)) - ((|kernel| ($ (|BasicOperator|) $)) T (ELT $ 61)) - ((|is?| ((|Boolean|) $ (|Symbol|))) T (ELT $ 116)) - ((|is?| ((|Boolean|) $ (|BasicOperator|))) T - (ELT $ 117)) - ((|belong?| ((|Boolean|) (|BasicOperator|))) T - (ELT $ 22)) - ((|operator| ((|BasicOperator|) (|BasicOperator|))) T - (ELT $ 91)) - ((|operators| ((|List| (|BasicOperator|)) $)) T - (ELT $ 38)) - ((|tower| ((|List| (|Kernel| $)) $)) T (ELT $ 30)) - ((|mainKernel| ((|Union| (|Kernel| $) "failed") $)) T - (ELT $ 93)) - ((|height| ((|NonNegativeInteger|) $)) T (ELT $ 46)) - ((|distribute| ($ $ $)) T (ELT $ 119)) - ((|distribute| ($ $)) T (ELT $ 53)) - ((|paren| ($ (|List| $))) T (ELT $ 56)) - ((|paren| ($ $)) T (ELT $ 19)) - ((|box| ($ (|List| $))) T (ELT $ 55)) - ((|box| ($ $)) T (ELT $ 17)) - ((|subst| ($ $ (|List| (|Kernel| $)) (|List| $))) T - (ELT $ NIL)) - ((|subst| ($ $ (|List| (|Equation| $)))) T (ELT $ 123)) - ((|subst| ($ $ (|Equation| $))) T (ELT $ 81)) - ((|elt| ($ (|BasicOperator|) (|List| $))) T (ELT $ 109)) - ((|elt| ($ (|BasicOperator|) $ $ $ $)) T (ELT $ 65)) - ((|elt| ($ (|BasicOperator|) $ $ $)) T (ELT $ 64)) - ((|elt| ($ (|BasicOperator|) $ $)) T (ELT $ 63)) - ((|elt| ($ (|BasicOperator|) $)) T (ELT $ 62)) - ((|eval| ($ $ (|List| $) (|List| $))) T (ELT $ NIL)) - ((|eval| ($ $ $ $)) T (ELT $ NIL)) - ((|eval| ($ $ (|Equation| $))) T (ELT $ NIL)) - ((|eval| ($ $ (|List| (|Equation| $)))) T (ELT $ 121)) - ((|eval| ($ $ (|List| (|Kernel| $)) (|List| $))) T - (ELT $ NIL)) - ((|eval| ($ $ (|Kernel| $) $)) T (ELT $ NIL)) - ((|retract| ((|Kernel| $) $)) T (ELT $ 112)) - ((|retractIfCan| ((|Union| (|Kernel| $) "failed") $)) T - (ELT $ 113))) - (|addModemap| '|ExpressionSpace&| - '(|ExpressionSpace&| |#1|) - '((CATEGORY |domain| - (SIGNATURE |odd?| ((|Boolean|) |#1|)) - (SIGNATURE |even?| ((|Boolean|) |#1|)) - (SIGNATURE |eval| - (|#1| |#1| (|BasicOperator|) - (|Mapping| |#1| |#1|))) - (SIGNATURE |eval| - (|#1| |#1| (|BasicOperator|) - (|Mapping| |#1| (|List| |#1|)))) - (SIGNATURE |eval| - (|#1| |#1| (|List| (|BasicOperator|)) - (|List| (|Mapping| |#1| (|List| |#1|))))) - (SIGNATURE |eval| - (|#1| |#1| (|List| (|BasicOperator|)) - (|List| (|Mapping| |#1| |#1|)))) - (SIGNATURE |eval| - (|#1| |#1| (|Symbol|) (|Mapping| |#1| |#1|))) - (SIGNATURE |eval| - (|#1| |#1| (|Symbol|) - (|Mapping| |#1| (|List| |#1|)))) - (SIGNATURE |eval| - (|#1| |#1| (|List| (|Symbol|)) - (|List| (|Mapping| |#1| (|List| |#1|))))) - (SIGNATURE |eval| - (|#1| |#1| (|List| (|Symbol|)) - (|List| (|Mapping| |#1| |#1|)))) - (SIGNATURE |freeOf?| - ((|Boolean|) |#1| (|Symbol|))) - (SIGNATURE |freeOf?| ((|Boolean|) |#1| |#1|)) - (SIGNATURE |map| - (|#1| (|Mapping| |#1| |#1|) (|Kernel| |#1|))) - (SIGNATURE |kernel| - (|#1| (|BasicOperator|) (|List| |#1|))) - (SIGNATURE |kernel| - (|#1| (|BasicOperator|) |#1|)) - (SIGNATURE |is?| ((|Boolean|) |#1| (|Symbol|))) - (SIGNATURE |is?| - ((|Boolean|) |#1| (|BasicOperator|))) - (SIGNATURE |belong?| - ((|Boolean|) (|BasicOperator|))) - (SIGNATURE |operator| - ((|BasicOperator|) (|BasicOperator|))) - (SIGNATURE |operators| - ((|List| (|BasicOperator|)) |#1|)) - (SIGNATURE |tower| - ((|List| (|Kernel| |#1|)) |#1|)) - (SIGNATURE |mainKernel| - ((|Union| (|Kernel| |#1|) "failed") |#1|)) - (SIGNATURE |height| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |distribute| (|#1| |#1| |#1|)) - (SIGNATURE |distribute| (|#1| |#1|)) - (SIGNATURE |paren| (|#1| (|List| |#1|))) - (SIGNATURE |paren| (|#1| |#1|)) - (SIGNATURE |box| (|#1| (|List| |#1|))) - (SIGNATURE |box| (|#1| |#1|)) - (SIGNATURE |subst| - (|#1| |#1| (|List| (|Kernel| |#1|)) - (|List| |#1|))) - (SIGNATURE |subst| - (|#1| |#1| (|List| (|Equation| |#1|)))) - (SIGNATURE |subst| - (|#1| |#1| (|Equation| |#1|))) - (SIGNATURE |elt| - (|#1| (|BasicOperator|) (|List| |#1|))) - (SIGNATURE |elt| - (|#1| (|BasicOperator|) |#1| |#1| |#1| |#1|)) - (SIGNATURE |elt| - (|#1| (|BasicOperator|) |#1| |#1| - |#1|)) - (SIGNATURE |elt| - (|#1| (|BasicOperator|) |#1| |#1|)) - (SIGNATURE |elt| (|#1| (|BasicOperator|) |#1|)) - (SIGNATURE |eval| - (|#1| |#1| (|List| |#1|) (|List| |#1|))) - (SIGNATURE |eval| (|#1| |#1| |#1| |#1|)) - (SIGNATURE |eval| (|#1| |#1| (|Equation| |#1|))) - (SIGNATURE |eval| - (|#1| |#1| (|List| (|Equation| |#1|)))) - (SIGNATURE |eval| - (|#1| |#1| (|List| (|Kernel| |#1|)) - (|List| |#1|))) - (SIGNATURE |eval| - (|#1| |#1| (|Kernel| |#1|) |#1|)) - (SIGNATURE |retract| ((|Kernel| |#1|) |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| (|Kernel| |#1|) "failed") |#1|))) - (|ExpressionSpace|)) - T '|ExpressionSpace&| - (|put| '|ExpressionSpace&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |odd?| ((|Boolean|) |#1|)) - (SIGNATURE |even?| ((|Boolean|) |#1|)) - (SIGNATURE |eval| - (|#1| |#1| (|BasicOperator|) - (|Mapping| |#1| |#1|))) - (SIGNATURE |eval| - (|#1| |#1| (|BasicOperator|) - (|Mapping| |#1| (|List| |#1|)))) - (SIGNATURE |eval| - (|#1| |#1| - (|List| (|BasicOperator|)) - (|List| - (|Mapping| |#1| (|List| |#1|))))) - (SIGNATURE |eval| - (|#1| |#1| - (|List| (|BasicOperator|)) - (|List| (|Mapping| |#1| |#1|)))) - (SIGNATURE |eval| - (|#1| |#1| (|Symbol|) - (|Mapping| |#1| |#1|))) - (SIGNATURE |eval| - (|#1| |#1| (|Symbol|) - (|Mapping| |#1| (|List| |#1|)))) - (SIGNATURE |eval| - (|#1| |#1| (|List| (|Symbol|)) - (|List| - (|Mapping| |#1| (|List| |#1|))))) - (SIGNATURE |eval| - (|#1| |#1| (|List| (|Symbol|)) - (|List| (|Mapping| |#1| |#1|)))) - (SIGNATURE |freeOf?| - ((|Boolean|) |#1| (|Symbol|))) - (SIGNATURE |freeOf?| - ((|Boolean|) |#1| |#1|)) - (SIGNATURE |map| - (|#1| (|Mapping| |#1| |#1|) - (|Kernel| |#1|))) - (SIGNATURE |kernel| - (|#1| (|BasicOperator|) - (|List| |#1|))) - (SIGNATURE |kernel| - (|#1| (|BasicOperator|) |#1|)) - (SIGNATURE |is?| - ((|Boolean|) |#1| (|Symbol|))) - (SIGNATURE |is?| - ((|Boolean|) |#1| - (|BasicOperator|))) - (SIGNATURE |belong?| - ((|Boolean|) (|BasicOperator|))) - (SIGNATURE |operator| - ((|BasicOperator|) - (|BasicOperator|))) - (SIGNATURE |operators| - ((|List| (|BasicOperator|)) |#1|)) - (SIGNATURE |tower| - ((|List| (|Kernel| |#1|)) |#1|)) - (SIGNATURE |mainKernel| - ((|Union| (|Kernel| |#1|) - "failed") - |#1|)) - (SIGNATURE |height| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |distribute| - (|#1| |#1| |#1|)) - (SIGNATURE |distribute| (|#1| |#1|)) - (SIGNATURE |paren| - (|#1| (|List| |#1|))) - (SIGNATURE |paren| (|#1| |#1|)) - (SIGNATURE |box| (|#1| (|List| |#1|))) - (SIGNATURE |box| (|#1| |#1|)) - (SIGNATURE |subst| - (|#1| |#1| - (|List| (|Kernel| |#1|)) - (|List| |#1|))) - (SIGNATURE |subst| - (|#1| |#1| - (|List| (|Equation| |#1|)))) - (SIGNATURE |subst| - (|#1| |#1| (|Equation| |#1|))) - (SIGNATURE |elt| - (|#1| (|BasicOperator|) - (|List| |#1|))) - (SIGNATURE |elt| - (|#1| (|BasicOperator|) |#1| |#1| - |#1| |#1|)) - (SIGNATURE |elt| - (|#1| (|BasicOperator|) |#1| |#1| - |#1|)) - (SIGNATURE |elt| - (|#1| (|BasicOperator|) |#1| |#1|)) - (SIGNATURE |elt| - (|#1| (|BasicOperator|) |#1|)) - (SIGNATURE |eval| - (|#1| |#1| (|List| |#1|) - (|List| |#1|))) - (SIGNATURE |eval| - (|#1| |#1| |#1| |#1|)) - (SIGNATURE |eval| - (|#1| |#1| (|Equation| |#1|))) - (SIGNATURE |eval| - (|#1| |#1| - (|List| (|Equation| |#1|)))) - (SIGNATURE |eval| - (|#1| |#1| - (|List| (|Kernel| |#1|)) - (|List| |#1|))) - (SIGNATURE |eval| - (|#1| |#1| (|Kernel| |#1|) |#1|)) - (SIGNATURE |retract| - ((|Kernel| |#1|) |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| (|Kernel| |#1|) - "failed") - |#1|))) - (|ExpressionSpace|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/ES.lsp b/src/algebra/strap/ES.lsp index 757ce9e6..5199b94c 100644 --- a/src/algebra/strap/ES.lsp +++ b/src/algebra/strap/ES.lsp @@ -144,7 +144,7 @@ (|Equation| $)) NIL))) |ExpressionSpace|) - (SETELT #0# 0 '(|ExpressionSpace|)))))) + (|setShellEntry| #0# 0 '(|ExpressionSpace|)))))) (DEFUN |ExpressionSpace| () (LET () @@ -152,9 +152,4 @@ (|ExpressionSpace;AL|) (T (SETQ |ExpressionSpace;AL| (|ExpressionSpace;|)))))) -(SETQ |$CategoryFrame| - (|put| '|ExpressionSpace| '|isCategory| T - (|addModemap| '|ExpressionSpace| '(|ExpressionSpace|) - '((|Category|)) T '|ExpressionSpace| |$CategoryFrame|))) - (MAKEPROP '|ExpressionSpace| 'NILADIC T) diff --git a/src/algebra/strap/EUCDOM-.lsp b/src/algebra/strap/EUCDOM-.lsp index f354c167..405da119 100644 --- a/src/algebra/strap/EUCDOM-.lsp +++ b/src/algebra/strap/EUCDOM-.lsp @@ -550,102 +550,3 @@ 0 0 0 0 21 3 0 36 0 0 0 37 2 0 31 0 0 32 2 0 16 0 0 17 2 0 45 41 0 46))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|EuclideanDomain&| '|isFunctor| - '(((|multiEuclidean| - ((|Union| (|List| $) "failed") (|List| $) $)) - T (ELT $ 53)) - ((|extendedEuclidean| - ((|Union| (|Record| (|:| |coef1| $) - (|:| |coef2| $)) - "failed") - $ $ $)) - T (ELT $ 37)) - ((|extendedEuclidean| - ((|Record| (|:| |coef1| $) (|:| |coef2| $) - (|:| |generator| $)) - $ $)) - T (ELT $ 32)) - ((|rem| ($ $ $)) T (ELT $ 15)) - ((|quo| ($ $ $)) T (ELT $ 14)) - ((|sizeLess?| ((|Boolean|) $ $)) T (ELT $ 11)) - ((|expressIdealMember| - ((|Union| (|List| $) "failed") (|List| $) $)) - T (ELT $ 46)) - ((|principalIdeal| - ((|Record| (|:| |coef| (|List| $)) - (|:| |generator| $)) - (|List| $))) - T (ELT $ 44)) - ((|gcd| ($ (|List| $))) T (ELT $ NIL)) - ((|gcd| ($ $ $)) T (ELT $ 21)) - ((|exquo| ((|Union| $ "failed") $ $)) T (ELT $ 17))) - (|addModemap| '|EuclideanDomain&| - '(|EuclideanDomain&| |#1|) - '((CATEGORY |domain| - (SIGNATURE |multiEuclidean| - ((|Union| (|List| |#1|) "failed") - (|List| |#1|) |#1|)) - (SIGNATURE |extendedEuclidean| - ((|Union| (|Record| (|:| |coef1| |#1|) - (|:| |coef2| |#1|)) - "failed") - |#1| |#1| |#1|)) - (SIGNATURE |extendedEuclidean| - ((|Record| (|:| |coef1| |#1|) - (|:| |coef2| |#1|) - (|:| |generator| |#1|)) - |#1| |#1|)) - (SIGNATURE |rem| (|#1| |#1| |#1|)) - (SIGNATURE |quo| (|#1| |#1| |#1|)) - (SIGNATURE |sizeLess?| ((|Boolean|) |#1| |#1|)) - (SIGNATURE |expressIdealMember| - ((|Union| (|List| |#1|) "failed") - (|List| |#1|) |#1|)) - (SIGNATURE |principalIdeal| - ((|Record| (|:| |coef| (|List| |#1|)) - (|:| |generator| |#1|)) - (|List| |#1|))) - (SIGNATURE |gcd| (|#1| (|List| |#1|))) - (SIGNATURE |gcd| (|#1| |#1| |#1|)) - (SIGNATURE |exquo| - ((|Union| |#1| "failed") |#1| |#1|))) - (|EuclideanDomain|)) - T '|EuclideanDomain&| - (|put| '|EuclideanDomain&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |multiEuclidean| - ((|Union| (|List| |#1|) "failed") - (|List| |#1|) |#1|)) - (SIGNATURE |extendedEuclidean| - ((|Union| - (|Record| (|:| |coef1| |#1|) - (|:| |coef2| |#1|)) - "failed") - |#1| |#1| |#1|)) - (SIGNATURE |extendedEuclidean| - ((|Record| (|:| |coef1| |#1|) - (|:| |coef2| |#1|) - (|:| |generator| |#1|)) - |#1| |#1|)) - (SIGNATURE |rem| (|#1| |#1| |#1|)) - (SIGNATURE |quo| (|#1| |#1| |#1|)) - (SIGNATURE |sizeLess?| - ((|Boolean|) |#1| |#1|)) - (SIGNATURE |expressIdealMember| - ((|Union| (|List| |#1|) "failed") - (|List| |#1|) |#1|)) - (SIGNATURE |principalIdeal| - ((|Record| - (|:| |coef| (|List| |#1|)) - (|:| |generator| |#1|)) - (|List| |#1|))) - (SIGNATURE |gcd| (|#1| (|List| |#1|))) - (SIGNATURE |gcd| (|#1| |#1| |#1|)) - (SIGNATURE |exquo| - ((|Union| |#1| "failed") |#1| - |#1|))) - (|EuclideanDomain|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/EUCDOM.lsp b/src/algebra/strap/EUCDOM.lsp index 7c101f7e..3c060c32 100644 --- a/src/algebra/strap/EUCDOM.lsp +++ b/src/algebra/strap/EUCDOM.lsp @@ -42,7 +42,7 @@ (|Boolean|)) NIL)) |EuclideanDomain|) - (SETELT #0# 0 '(|EuclideanDomain|)))))) + (|setShellEntry| #0# 0 '(|EuclideanDomain|)))))) (DEFUN |EuclideanDomain| () (LET () @@ -50,9 +50,4 @@ (|EuclideanDomain;AL|) (T (SETQ |EuclideanDomain;AL| (|EuclideanDomain;|)))))) -(SETQ |$CategoryFrame| - (|put| '|EuclideanDomain| '|isCategory| T - (|addModemap| '|EuclideanDomain| '(|EuclideanDomain|) - '((|Category|)) T '|EuclideanDomain| |$CategoryFrame|))) - (MAKEPROP '|EuclideanDomain| 'NILADIC T) diff --git a/src/algebra/strap/FFIELDC-.lsp b/src/algebra/strap/FFIELDC-.lsp index d0a70454..0f649439 100644 --- a/src/algebra/strap/FFIELDC-.lsp +++ b/src/algebra/strap/FFIELDC-.lsp @@ -650,105 +650,3 @@ 44 1 0 32 33 34 1 0 0 0 37 1 0 15 0 38))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|FiniteFieldCategory&| '|isFunctor| - '(((|order| ((|PositiveInteger|) $)) T (ELT $ 52)) - ((|discreteLog| ((|NonNegativeInteger|) $)) T - (ELT $ 60)) - ((|primitive?| ((|Boolean|) $)) T (ELT $ 51)) - ((|createPrimitiveElement| ($)) T (ELT $ 44)) - ((|conditionP| - ((|Union| (|Vector| $) "failed") (|Matrix| $))) - T (ELT $ 34)) - ((|charthRoot| ($ $)) T (ELT $ 37)) - ((|differentiate| ($ $)) T (ELT $ 8)) - ((|differentiate| ($ $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|init| ($)) T (ELT $ 9)) - ((|nextItem| ((|Union| $ "failed") $)) T (ELT $ 16)) - ((|discreteLog| - ((|Union| (|NonNegativeInteger|) "failed") $ $)) - T (ELT $ 71)) - ((|order| ((|OnePointCompletion| (|PositiveInteger|)) $)) - T (ELT $ 21)) - ((|charthRoot| ((|Union| $ "failed") $)) T (ELT $ 38)) - ((|gcdPolynomial| - ((|SparseUnivariatePolynomial| $) - (|SparseUnivariatePolynomial| $) - (|SparseUnivariatePolynomial| $))) - T (ELT $ 93))) - (|addModemap| '|FiniteFieldCategory&| - '(|FiniteFieldCategory&| |#1|) - '((CATEGORY |domain| - (SIGNATURE |order| ((|PositiveInteger|) |#1|)) - (SIGNATURE |discreteLog| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |primitive?| ((|Boolean|) |#1|)) - (SIGNATURE |createPrimitiveElement| (|#1|)) - (SIGNATURE |conditionP| - ((|Union| (|Vector| |#1|) "failed") - (|Matrix| |#1|))) - (SIGNATURE |charthRoot| (|#1| |#1|)) - (SIGNATURE |differentiate| (|#1| |#1|)) - (SIGNATURE |differentiate| - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE |init| (|#1|)) - (SIGNATURE |nextItem| - ((|Union| |#1| "failed") |#1|)) - (SIGNATURE |discreteLog| - ((|Union| (|NonNegativeInteger|) "failed") - |#1| |#1|)) - (SIGNATURE |order| - ((|OnePointCompletion| (|PositiveInteger|)) - |#1|)) - (SIGNATURE |charthRoot| - ((|Union| |#1| "failed") |#1|)) - (SIGNATURE |gcdPolynomial| - ((|SparseUnivariatePolynomial| |#1|) - (|SparseUnivariatePolynomial| |#1|) - (|SparseUnivariatePolynomial| |#1|)))) - (|FiniteFieldCategory|)) - T '|FiniteFieldCategory&| - (|put| '|FiniteFieldCategory&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |order| - ((|PositiveInteger|) |#1|)) - (SIGNATURE |discreteLog| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |primitive?| - ((|Boolean|) |#1|)) - (SIGNATURE |createPrimitiveElement| - (|#1|)) - (SIGNATURE |conditionP| - ((|Union| (|Vector| |#1|) - "failed") - (|Matrix| |#1|))) - (SIGNATURE |charthRoot| (|#1| |#1|)) - (SIGNATURE |differentiate| - (|#1| |#1|)) - (SIGNATURE |differentiate| - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE |init| (|#1|)) - (SIGNATURE |nextItem| - ((|Union| |#1| "failed") |#1|)) - (SIGNATURE |discreteLog| - ((|Union| (|NonNegativeInteger|) - "failed") - |#1| |#1|)) - (SIGNATURE |order| - ((|OnePointCompletion| - (|PositiveInteger|)) - |#1|)) - (SIGNATURE |charthRoot| - ((|Union| |#1| "failed") |#1|)) - (SIGNATURE |gcdPolynomial| - ((|SparseUnivariatePolynomial| - |#1|) - (|SparseUnivariatePolynomial| - |#1|) - (|SparseUnivariatePolynomial| - |#1|)))) - (|FiniteFieldCategory|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/FFIELDC.lsp b/src/algebra/strap/FFIELDC.lsp index 4bc08870..9f7cef9b 100644 --- a/src/algebra/strap/FFIELDC.lsp +++ b/src/algebra/strap/FFIELDC.lsp @@ -49,7 +49,7 @@ (|Matrix| $)) NIL)) |FiniteFieldCategory|) - (SETELT #0# 0 '(|FiniteFieldCategory|)))))) + (|setShellEntry| #0# 0 '(|FiniteFieldCategory|)))))) (DEFUN |FiniteFieldCategory| () (LET () @@ -57,10 +57,4 @@ (|FiniteFieldCategory;AL|) (T (SETQ |FiniteFieldCategory;AL| (|FiniteFieldCategory;|)))))) -(SETQ |$CategoryFrame| - (|put| '|FiniteFieldCategory| '|isCategory| T - (|addModemap| '|FiniteFieldCategory| - '(|FiniteFieldCategory|) '((|Category|)) T - '|FiniteFieldCategory| |$CategoryFrame|))) - (MAKEPROP '|FiniteFieldCategory| 'NILADIC T) diff --git a/src/algebra/strap/FPS-.lsp b/src/algebra/strap/FPS-.lsp index 312a0bbc..6cbb70df 100644 --- a/src/algebra/strap/FPS-.lsp +++ b/src/algebra/strap/FPS-.lsp @@ -55,41 +55,3 @@ 13 2 9 0 7 0 14 0 6 0 15 2 0 0 9 9 11 0 0 7 16))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|FloatingPointSystem&| '|isFunctor| - '(((|digits| ((|PositiveInteger|) (|PositiveInteger|))) T - (ELT $ NIL)) - ((|digits| ((|PositiveInteger|))) T (ELT $ 16)) - ((|float| ($ (|Integer|) (|Integer|) - (|PositiveInteger|))) - T (ELT $ NIL)) - ((|float| ($ (|Integer|) (|Integer|))) T (ELT $ 11))) - (|addModemap| '|FloatingPointSystem&| - '(|FloatingPointSystem&| |#1|) - '((CATEGORY |domain| - (SIGNATURE |digits| - ((|PositiveInteger|) (|PositiveInteger|))) - (SIGNATURE |digits| ((|PositiveInteger|))) - (SIGNATURE |float| - (|#1| (|Integer|) (|Integer|) - (|PositiveInteger|))) - (SIGNATURE |float| - (|#1| (|Integer|) (|Integer|)))) - (|FloatingPointSystem|)) - T '|FloatingPointSystem&| - (|put| '|FloatingPointSystem&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |digits| - ((|PositiveInteger|) - (|PositiveInteger|))) - (SIGNATURE |digits| - ((|PositiveInteger|))) - (SIGNATURE |float| - (|#1| (|Integer|) (|Integer|) - (|PositiveInteger|))) - (SIGNATURE |float| - (|#1| (|Integer|) (|Integer|)))) - (|FloatingPointSystem|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/FPS.lsp b/src/algebra/strap/FPS.lsp index f3935aa4..313baa93 100644 --- a/src/algebra/strap/FPS.lsp +++ b/src/algebra/strap/FPS.lsp @@ -70,7 +70,7 @@ '((|approximate| T)) '((|PositiveInteger|) (|Integer|)) NIL)) |FloatingPointSystem|) - (SETELT #0# 0 '(|FloatingPointSystem|)))))) + (|setShellEntry| #0# 0 '(|FloatingPointSystem|)))))) (DEFUN |FloatingPointSystem| () (LET () @@ -78,10 +78,4 @@ (|FloatingPointSystem;AL|) (T (SETQ |FloatingPointSystem;AL| (|FloatingPointSystem;|)))))) -(SETQ |$CategoryFrame| - (|put| '|FloatingPointSystem| '|isCategory| T - (|addModemap| '|FloatingPointSystem| - '(|FloatingPointSystem|) '((|Category|)) T - '|FloatingPointSystem| |$CategoryFrame|))) - (MAKEPROP '|FloatingPointSystem| 'NILADIC T) diff --git a/src/algebra/strap/GCDDOM-.lsp b/src/algebra/strap/GCDDOM-.lsp index 8e9a0e77..b3a3bbc5 100644 --- a/src/algebra/strap/GCDDOM-.lsp +++ b/src/algebra/strap/GCDDOM-.lsp @@ -233,43 +233,3 @@ 20 21 2 0 0 0 0 14 2 0 40 40 40 41 1 0 0 20 22))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|GcdDomain&| '|isFunctor| - '(((|gcdPolynomial| - ((|SparseUnivariatePolynomial| $) - (|SparseUnivariatePolynomial| $) - (|SparseUnivariatePolynomial| $))) - T (ELT $ 41)) - ((|lcm| ($ (|List| $))) T (ELT $ 21)) - ((|lcm| ($ $ $)) T (ELT $ 14)) - ((|gcd| ($ (|List| $))) T (ELT $ 22)) - ((|gcd| ($ $ $)) T (ELT $ NIL))) - (|addModemap| '|GcdDomain&| '(|GcdDomain&| |#1|) - '((CATEGORY |domain| - (SIGNATURE |gcdPolynomial| - ((|SparseUnivariatePolynomial| |#1|) - (|SparseUnivariatePolynomial| |#1|) - (|SparseUnivariatePolynomial| |#1|))) - (SIGNATURE |lcm| (|#1| (|List| |#1|))) - (SIGNATURE |lcm| (|#1| |#1| |#1|)) - (SIGNATURE |gcd| (|#1| (|List| |#1|))) - (SIGNATURE |gcd| (|#1| |#1| |#1|))) - (|GcdDomain|)) - T '|GcdDomain&| - (|put| '|GcdDomain&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |gcdPolynomial| - ((|SparseUnivariatePolynomial| - |#1|) - (|SparseUnivariatePolynomial| - |#1|) - (|SparseUnivariatePolynomial| - |#1|))) - (SIGNATURE |lcm| (|#1| (|List| |#1|))) - (SIGNATURE |lcm| (|#1| |#1| |#1|)) - (SIGNATURE |gcd| (|#1| (|List| |#1|))) - (SIGNATURE |gcd| (|#1| |#1| |#1|))) - (|GcdDomain|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/GCDDOM.lsp b/src/algebra/strap/GCDDOM.lsp index 313add96..8f4675a6 100644 --- a/src/algebra/strap/GCDDOM.lsp +++ b/src/algebra/strap/GCDDOM.lsp @@ -23,15 +23,10 @@ (|List| $)) NIL)) |GcdDomain|) - (SETELT #0# 0 '(|GcdDomain|)))))) + (|setShellEntry| #0# 0 '(|GcdDomain|)))))) (DEFUN |GcdDomain| () (LET () (COND (|GcdDomain;AL|) (T (SETQ |GcdDomain;AL| (|GcdDomain;|)))))) -(SETQ |$CategoryFrame| - (|put| '|GcdDomain| '|isCategory| T - (|addModemap| '|GcdDomain| '(|GcdDomain|) '((|Category|)) - T '|GcdDomain| |$CategoryFrame|))) - (MAKEPROP '|GcdDomain| 'NILADIC T) diff --git a/src/algebra/strap/HOAGG-.lsp b/src/algebra/strap/HOAGG-.lsp index 21abe57d..b1b57cdc 100644 --- a/src/algebra/strap/HOAGG-.lsp +++ b/src/algebra/strap/HOAGG-.lsp @@ -324,89 +324,3 @@ 0 32 0 37 2 0 18 19 0 20 2 0 18 0 0 31 1 0 16 0 17))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|HomogeneousAggregate&| '|isFunctor| - '(((|coerce| ((|OutputForm|) $)) T (ELT $ 37)) - ((= ((|Boolean|) $ $)) T (ELT $ 31)) - ((|eval| ($ $ (|List| |#2|) (|List| |#2|))) T - (ELT $ NIL)) - ((|eval| ($ $ |#2| |#2|)) T (ELT $ NIL)) - ((|eval| ($ $ (|Equation| |#2|))) T (ELT $ NIL)) - ((|eval| ($ $ (|List| (|Equation| |#2|)))) T (ELT $ 13)) - ((|member?| ((|Boolean|) |#2| $)) T (ELT $ 28)) - ((|count| ((|NonNegativeInteger|) |#2| $)) T (ELT $ 26)) - ((|members| ((|List| |#2|) $)) T (ELT $ 23)) - ((|count| ((|NonNegativeInteger|) - (|Mapping| (|Boolean|) |#2|) $)) - T (ELT $ 22)) - ((|every?| ((|Boolean|) (|Mapping| (|Boolean|) |#2|) $)) - T (ELT $ 21)) - ((|any?| ((|Boolean|) (|Mapping| (|Boolean|) |#2|) $)) T - (ELT $ 20)) - ((|#| ((|NonNegativeInteger|) $)) T (ELT $ 17))) - (|addModemap| '|HomogeneousAggregate&| - '(|HomogeneousAggregate&| |#1| |#2|) - '((CATEGORY |domain| - (SIGNATURE |coerce| ((|OutputForm|) |#1|)) - (SIGNATURE = ((|Boolean|) |#1| |#1|)) - (SIGNATURE |eval| - (|#1| |#1| (|List| |#2|) (|List| |#2|))) - (SIGNATURE |eval| (|#1| |#1| |#2| |#2|)) - (SIGNATURE |eval| (|#1| |#1| (|Equation| |#2|))) - (SIGNATURE |eval| - (|#1| |#1| (|List| (|Equation| |#2|)))) - (SIGNATURE |member?| ((|Boolean|) |#2| |#1|)) - (SIGNATURE |count| - ((|NonNegativeInteger|) |#2| |#1|)) - (SIGNATURE |members| ((|List| |#2|) |#1|)) - (SIGNATURE |count| - ((|NonNegativeInteger|) - (|Mapping| (|Boolean|) |#2|) |#1|)) - (SIGNATURE |every?| - ((|Boolean|) (|Mapping| (|Boolean|) |#2|) - |#1|)) - (SIGNATURE |any?| - ((|Boolean|) (|Mapping| (|Boolean|) |#2|) - |#1|)) - (SIGNATURE |#| ((|NonNegativeInteger|) |#1|))) - (|HomogeneousAggregate| |#2|) (|Type|)) - T '|HomogeneousAggregate&| - (|put| '|HomogeneousAggregate&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |coerce| - ((|OutputForm|) |#1|)) - (SIGNATURE = ((|Boolean|) |#1| |#1|)) - (SIGNATURE |eval| - (|#1| |#1| (|List| |#2|) - (|List| |#2|))) - (SIGNATURE |eval| - (|#1| |#1| |#2| |#2|)) - (SIGNATURE |eval| - (|#1| |#1| (|Equation| |#2|))) - (SIGNATURE |eval| - (|#1| |#1| - (|List| (|Equation| |#2|)))) - (SIGNATURE |member?| - ((|Boolean|) |#2| |#1|)) - (SIGNATURE |count| - ((|NonNegativeInteger|) |#2| |#1|)) - (SIGNATURE |members| - ((|List| |#2|) |#1|)) - (SIGNATURE |count| - ((|NonNegativeInteger|) - (|Mapping| (|Boolean|) |#2|) - |#1|)) - (SIGNATURE |every?| - ((|Boolean|) - (|Mapping| (|Boolean|) |#2|) - |#1|)) - (SIGNATURE |any?| - ((|Boolean|) - (|Mapping| (|Boolean|) |#2|) - |#1|)) - (SIGNATURE |#| - ((|NonNegativeInteger|) |#1|))) - (|HomogeneousAggregate| |#2|) (|Type|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/HOAGG.lsp b/src/algebra/strap/HOAGG.lsp index baccec79..7e2bb119 100644 --- a/src/algebra/strap/HOAGG.lsp +++ b/src/algebra/strap/HOAGG.lsp @@ -97,8 +97,8 @@ (|List| |t#1|)) NIL)) . #1=(|HomogeneousAggregate|))))) . #1#) - (SETELT #0# 0 - (LIST '|HomogeneousAggregate| (|devaluate| |t#1|))))))) + (|setShellEntry| #0# 0 + (LIST '|HomogeneousAggregate| (|devaluate| |t#1|))))))) (DEFUN |HomogeneousAggregate| (#0=#:G1399) (LET (#1=#:G1400) @@ -110,10 +110,3 @@ (SETQ #1# (|HomogeneousAggregate;| #0#))) |HomogeneousAggregate;AL|)) #1#)))) - -(SETQ |$CategoryFrame| - (|put| '|HomogeneousAggregate| '|isCategory| T - (|addModemap| '|HomogeneousAggregate| - '(|HomogeneousAggregate| |#1|) - '((|Category|) (|Type|)) T '|HomogeneousAggregate| - |$CategoryFrame|))) diff --git a/src/algebra/strap/ILIST.lsp b/src/algebra/strap/ILIST.lsp index 3bf0bc8d..39658b69 100644 --- a/src/algebra/strap/ILIST.lsp +++ b/src/algebra/strap/ILIST.lsp @@ -716,255 +716,3 @@ 0 0 1 2 5 11 0 0 1 2 7 11 0 0 48 2 5 11 0 0 1 2 5 11 0 0 1 1 0 8 0 9))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|IndexedList| '|isFunctor| - '(((|coerce| ((|OutputForm|) $)) - (|has| |#1| (|CoercibleTo| (|OutputForm|))) (ELT $ 46)) - ((~= ((|Boolean|) $ $)) (|has| |#1| (|SetCategory|)) - (ELT $ NIL)) - ((= ((|Boolean|) $ $)) (|has| |#1| (|SetCategory|)) - (ELT $ 48)) - ((|hash| ((|SingleInteger|) $)) - (|has| |#1| (|SetCategory|)) (ELT $ NIL)) - ((|latex| ((|String|) $)) (|has| |#1| (|SetCategory|)) - (ELT $ 51)) - ((|list| ($ |#1|)) T (ELT $ NIL)) - ((|concat!| ($ $ |#1|)) T (ELT $ NIL)) - ((|concat!| ($ $ $)) T (ELT $ 54)) - ((|delete!| ($ $ (|Integer|))) T (ELT $ NIL)) - ((|delete!| ($ $ (|UniversalSegment| (|Integer|)))) T - (ELT $ NIL)) - ((|remove!| ($ (|Mapping| (|Boolean|) |#1|) $)) T - (ELT $ NIL)) - ((|insert!| ($ |#1| $ (|Integer|))) T (ELT $ NIL)) - ((|insert!| ($ $ $ (|Integer|))) T (ELT $ NIL)) - ((|merge!| ($ (|Mapping| (|Boolean|) |#1| |#1|) $ $)) T - (ELT $ 58)) - ((|select!| ($ (|Mapping| (|Boolean|) |#1|) $)) T - (ELT $ NIL)) - ((|remove!| ($ |#1| $)) (|has| |#1| (|SetCategory|)) - (ELT $ NIL)) - ((|removeDuplicates!| ($ $)) - (|has| |#1| (|SetCategory|)) (ELT $ 55)) - ((|merge!| ($ $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((|merge| ($ (|Mapping| (|Boolean|) |#1| |#1|) $ $)) T - (ELT $ NIL)) - ((|reverse| ($ $)) T (ELT $ 29)) - ((|sort| ($ (|Mapping| (|Boolean|) |#1| |#1|) $)) T - (ELT $ NIL)) - ((|sorted?| - ((|Boolean|) (|Mapping| (|Boolean|) |#1| |#1|) $)) - T (ELT $ NIL)) - ((|position| - ((|Integer|) (|Mapping| (|Boolean|) |#1|) $)) - T (ELT $ NIL)) - ((|position| ((|Integer|) |#1| $)) - (|has| |#1| (|SetCategory|)) (ELT $ NIL)) - ((|position| ((|Integer|) |#1| $ (|Integer|))) - (|has| |#1| (|SetCategory|)) (ELT $ NIL)) - ((|merge| ($ $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((|sort| ($ $)) (|has| |#1| (|OrderedSet|)) (ELT $ NIL)) - ((|sorted?| ((|Boolean|) $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((|copyInto!| ($ $ $ (|Integer|))) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|reverse!| ($ $)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ 28)) - ((|sort!| ($ (|Mapping| (|Boolean|) |#1| |#1|) $)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ 57)) - ((|sort!| ($ $)) - (AND (|has| $ (ATTRIBUTE |shallowlyMutable|)) - (|has| |#1| (|OrderedSet|))) - (ELT $ NIL)) - ((|min| ($ $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((|max| ($ $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((<= ((|Boolean|) $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((>= ((|Boolean|) $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((> ((|Boolean|) $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((< ((|Boolean|) $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((|possiblyInfinite?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|explicitlyFinite?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|qsetelt!| (|#1| $ (|Integer|) |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|setelt| (|#1| $ (|Integer|) |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|qelt| (|#1| $ (|Integer|))) T (ELT $ NIL)) - ((|elt| (|#1| $ (|Integer|) |#1|)) T (ELT $ NIL)) - ((|elt| (|#1| $ (|Integer|))) T (ELT $ NIL)) - ((|entries| ((|List| |#1|) $)) T (ELT $ NIL)) - ((|index?| ((|Boolean|) (|Integer|) $)) T (ELT $ NIL)) - ((|indices| ((|List| (|Integer|)) $)) T (ELT $ NIL)) - ((|entry?| ((|Boolean|) |#1| $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|maxIndex| ((|Integer|) $)) - (|has| (|Integer|) (|OrderedSet|)) (ELT $ NIL)) - ((|minIndex| ((|Integer|) $)) - (|has| (|Integer|) (|OrderedSet|)) (ELT $ 31)) - ((|fill!| ($ $ |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|swap!| ((|Void|) $ (|Integer|) (|Integer|))) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|convert| ((|InputForm|) $)) - (|has| |#1| (|ConvertibleTo| (|InputForm|))) - (ELT $ NIL)) - ((|removeDuplicates| ($ $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|remove| ($ |#1| $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|reduce| - (|#1| (|Mapping| |#1| |#1| |#1|) $ |#1| |#1|)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|select| ($ (|Mapping| (|Boolean|) |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|remove| ($ (|Mapping| (|Boolean|) |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|reduce| (|#1| (|Mapping| |#1| |#1| |#1|) $ |#1|)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|reduce| (|#1| (|Mapping| |#1| |#1| |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|find| ((|Union| |#1| "failed") - (|Mapping| (|Boolean|) |#1|) $)) - T (ELT $ NIL)) - ((|construct| ($ (|List| |#1|))) T (ELT $ 26)) - ((|new| ($ (|NonNegativeInteger|) |#1|)) T (ELT $ NIL)) - ((|concat| ($ $ |#1|)) T (ELT $ NIL)) - ((|concat| ($ (|List| $))) T (ELT $ NIL)) - ((|map| ($ (|Mapping| |#1| |#1| |#1|) $ $)) T - (ELT $ NIL)) - ((|elt| ($ $ (|UniversalSegment| (|Integer|)))) T - (ELT $ NIL)) - ((|delete| ($ $ (|Integer|))) T (ELT $ NIL)) - ((|delete| ($ $ (|UniversalSegment| (|Integer|)))) T - (ELT $ NIL)) - ((|insert| ($ |#1| $ (|Integer|))) T (ELT $ NIL)) - ((|insert| ($ $ $ (|Integer|))) T (ELT $ NIL)) - ((|setelt| - (|#1| $ (|UniversalSegment| (|Integer|)) |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|split!| ($ $ (|Integer|))) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ 59)) - ((|setelt| (|#1| $ "last" |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|setlast!| (|#1| $ |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|setelt| ($ $ "rest" $)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ 24)) - ((|setrest!| ($ $ $)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ 23)) - ((|setelt| (|#1| $ "first" |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ 22)) - ((|setfirst!| (|#1| $ |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ 21)) - ((|cycleSplit!| ($ $)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|cycleTail| ($ $)) T (ELT $ NIL)) - ((|cycleLength| ((|NonNegativeInteger|) $)) T - (ELT $ NIL)) - ((|cycleEntry| ($ $)) T (ELT $ 36)) - ((|third| (|#1| $)) T (ELT $ NIL)) - ((|second| (|#1| $)) T (ELT $ NIL)) - ((|tail| ($ $)) T (ELT $ NIL)) - ((|last| ($ $ (|NonNegativeInteger|))) T (ELT $ NIL)) - ((|elt| (|#1| $ "last")) T (ELT $ NIL)) - ((|last| (|#1| $)) T (ELT $ NIL)) - ((|rest| ($ $ (|NonNegativeInteger|))) T (ELT $ 32)) - ((|elt| ($ $ "rest")) T (ELT $ 20)) - ((|rest| ($ $)) T (ELT $ 18)) - ((|first| ($ $ (|NonNegativeInteger|))) T (ELT $ NIL)) - ((|elt| (|#1| $ "first")) T (ELT $ 15)) - ((|first| (|#1| $)) T (ELT $ 13)) - ((|concat| ($ |#1| $)) T (ELT $ 10)) - ((|concat| ($ $ $)) T (ELT $ NIL)) - ((|setvalue!| (|#1| $ |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|setelt| (|#1| $ "value" |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|setchildren!| ($ $ (|List| $))) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|node?| ((|Boolean|) $ $)) - (|has| |#1| (|SetCategory|)) (ELT $ NIL)) - ((|child?| ((|Boolean|) $ $)) - (|has| |#1| (|SetCategory|)) (ELT $ NIL)) - ((|distance| ((|Integer|) $ $)) T (ELT $ NIL)) - ((|leaves| ((|List| |#1|) $)) T (ELT $ NIL)) - ((|cyclic?| ((|Boolean|) $)) T (ELT $ 34)) - ((|elt| (|#1| $ "value")) T (ELT $ NIL)) - ((|value| (|#1| $)) T (ELT $ NIL)) - ((|leaf?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|nodes| ((|List| $) $)) T (ELT $ NIL)) - ((|children| ((|List| $) $)) T (ELT $ NIL)) - ((|eval| ($ $ (|List| |#1|) (|List| |#1|))) - (AND (|has| |#1| (|Evalable| |#1|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|eval| ($ $ |#1| |#1|)) - (AND (|has| |#1| (|Evalable| |#1|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|eval| ($ $ (|Equation| |#1|))) - (AND (|has| |#1| (|Evalable| |#1|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|eval| ($ $ (|List| (|Equation| |#1|)))) - (AND (|has| |#1| (|Evalable| |#1|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|member?| ((|Boolean|) |#1| $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ 53)) - ((|count| ((|NonNegativeInteger|) |#1| $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|members| ((|List| |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|parts| ((|List| |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ 27)) - ((|count| ((|NonNegativeInteger|) - (|Mapping| (|Boolean|) |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|every?| ((|Boolean|) (|Mapping| (|Boolean|) |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|any?| ((|Boolean|) (|Mapping| (|Boolean|) |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|map!| ($ (|Mapping| |#1| |#1|) $)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|map| ($ (|Mapping| |#1| |#1|) $)) T (ELT $ NIL)) - ((|#| ((|NonNegativeInteger|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ 9)) - ((|sample| ($)) T (CONST $ NIL)) - ((|size?| ((|Boolean|) $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|more?| ((|Boolean|) $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|less?| ((|Boolean|) $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|empty?| ((|Boolean|) $)) T (ELT $ 17)) - ((|empty| ($)) T (ELT $ 16)) - ((|copy| ($ $)) T (ELT $ 35)) - ((|eq?| ((|Boolean|) $ $)) T (ELT $ 12))) - (|addModemap| '|IndexedList| '(|IndexedList| |#1| |#2|) - '((|ListAggregate| |#1|) (|Type|) (|Integer|)) T - '|IndexedList| - (|put| '|IndexedList| '|mode| - '(|Mapping| (|ListAggregate| |#1|) (|Type|) - (|Integer|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/INS-.lsp b/src/algebra/strap/INS-.lsp index b16fd75f..229a04fa 100644 --- a/src/algebra/strap/INS-.lsp +++ b/src/algebra/strap/INS-.lsp @@ -415,164 +415,3 @@ 36 0 0 7 8 2 0 11 0 0 20 2 0 0 0 0 55))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|IntegerNumberSystem&| '|isFunctor| - '(((|invmod| ($ $ $)) T (ELT $ 84)) - ((|powmod| ($ $ $ $)) T (ELT $ 86)) - ((|mask| ($ $)) T (ELT $ 23)) - ((|copy| ($ $)) T (ELT $ 17)) - ((|rationalIfCan| - ((|Union| (|Fraction| (|Integer|)) "failed") $)) - T (ELT $ 74)) - ((|rational| ((|Fraction| (|Integer|)) $)) T (ELT $ 72)) - ((|rational?| ((|Boolean|) $)) T (ELT $ 24)) - ((|symmetricRemainder| ($ $ $)) T (ELT $ 79)) - ((|bit?| ((|Boolean|) $ $)) T (ELT $ 20)) - ((|even?| ((|Boolean|) $)) T (ELT $ 14)) - ((|init| ($)) T (ELT $ 60)) - ((|nextItem| ((|Union| $ "failed") $)) T (ELT $ 64)) - ((|convert| ((|DoubleFloat|) $)) T (ELT $ 33)) - ((|convert| ((|Float|) $)) T (ELT $ 31)) - ((|permutation| ($ $ $)) T (ELT $ 57)) - ((|factorial| ($ $)) T (ELT $ 53)) - ((|binomial| ($ $ $)) T (ELT $ 55)) - ((|patternMatch| - ((|PatternMatchResult| (|Integer|) $) $ - (|Pattern| (|Integer|)) - (|PatternMatchResult| (|Integer|) $))) - T (ELT $ 69)) - ((|convert| ((|Pattern| (|Integer|)) $)) T (ELT $ 40)) - ((|convert| ((|InputForm|) $)) T (ELT $ 36)) - ((|retract| ((|Integer|) $)) T (ELT $ 37)) - ((|retractIfCan| ((|Union| (|Integer|) "failed") $)) T - (ELT $ 59)) - ((|convert| ((|Integer|) $)) T (ELT $ NIL)) - ((|differentiate| ($ $)) T (ELT $ 10)) - ((|differentiate| ($ $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|positive?| ((|Boolean|) $)) T (ELT $ 16)) - ((|euclideanSize| ((|NonNegativeInteger|) $)) T - (ELT $ 28)) - ((|factor| ((|Factored| $) $)) T (ELT $ 45)) - ((|squareFree| ((|Factored| $) $)) T (ELT $ 47)) - ((|prime?| ((|Boolean|) $)) T (ELT $ 50)) - ((|characteristic| ((|NonNegativeInteger|))) T - (ELT $ 8))) - (|addModemap| '|IntegerNumberSystem&| - '(|IntegerNumberSystem&| |#1|) - '((CATEGORY |domain| - (SIGNATURE |invmod| (|#1| |#1| |#1|)) - (SIGNATURE |powmod| (|#1| |#1| |#1| |#1|)) - (SIGNATURE |mask| (|#1| |#1|)) - (SIGNATURE |copy| (|#1| |#1|)) - (SIGNATURE |rationalIfCan| - ((|Union| (|Fraction| (|Integer|)) "failed") - |#1|)) - (SIGNATURE |rational| - ((|Fraction| (|Integer|)) |#1|)) - (SIGNATURE |rational?| ((|Boolean|) |#1|)) - (SIGNATURE |symmetricRemainder| - (|#1| |#1| |#1|)) - (SIGNATURE |bit?| ((|Boolean|) |#1| |#1|)) - (SIGNATURE |even?| ((|Boolean|) |#1|)) - (SIGNATURE |init| (|#1|)) - (SIGNATURE |nextItem| - ((|Union| |#1| "failed") |#1|)) - (SIGNATURE |convert| ((|DoubleFloat|) |#1|)) - (SIGNATURE |convert| ((|Float|) |#1|)) - (SIGNATURE |permutation| (|#1| |#1| |#1|)) - (SIGNATURE |factorial| (|#1| |#1|)) - (SIGNATURE |binomial| (|#1| |#1| |#1|)) - (SIGNATURE |patternMatch| - ((|PatternMatchResult| (|Integer|) |#1|) - |#1| (|Pattern| (|Integer|)) - (|PatternMatchResult| (|Integer|) |#1|))) - (SIGNATURE |convert| - ((|Pattern| (|Integer|)) |#1|)) - (SIGNATURE |convert| ((|InputForm|) |#1|)) - (SIGNATURE |retract| ((|Integer|) |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| (|Integer|) "failed") |#1|)) - (SIGNATURE |convert| ((|Integer|) |#1|)) - (SIGNATURE |differentiate| (|#1| |#1|)) - (SIGNATURE |differentiate| - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE |positive?| ((|Boolean|) |#1|)) - (SIGNATURE |euclideanSize| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |factor| ((|Factored| |#1|) |#1|)) - (SIGNATURE |squareFree| - ((|Factored| |#1|) |#1|)) - (SIGNATURE |prime?| ((|Boolean|) |#1|)) - (SIGNATURE |characteristic| - ((|NonNegativeInteger|)))) - (|IntegerNumberSystem|)) - T '|IntegerNumberSystem&| - (|put| '|IntegerNumberSystem&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |invmod| (|#1| |#1| |#1|)) - (SIGNATURE |powmod| - (|#1| |#1| |#1| |#1|)) - (SIGNATURE |mask| (|#1| |#1|)) - (SIGNATURE |copy| (|#1| |#1|)) - (SIGNATURE |rationalIfCan| - ((|Union| (|Fraction| (|Integer|)) - "failed") - |#1|)) - (SIGNATURE |rational| - ((|Fraction| (|Integer|)) |#1|)) - (SIGNATURE |rational?| - ((|Boolean|) |#1|)) - (SIGNATURE |symmetricRemainder| - (|#1| |#1| |#1|)) - (SIGNATURE |bit?| - ((|Boolean|) |#1| |#1|)) - (SIGNATURE |even?| ((|Boolean|) |#1|)) - (SIGNATURE |init| (|#1|)) - (SIGNATURE |nextItem| - ((|Union| |#1| "failed") |#1|)) - (SIGNATURE |convert| - ((|DoubleFloat|) |#1|)) - (SIGNATURE |convert| ((|Float|) |#1|)) - (SIGNATURE |permutation| - (|#1| |#1| |#1|)) - (SIGNATURE |factorial| (|#1| |#1|)) - (SIGNATURE |binomial| - (|#1| |#1| |#1|)) - (SIGNATURE |patternMatch| - ((|PatternMatchResult| (|Integer|) - |#1|) - |#1| (|Pattern| (|Integer|)) - (|PatternMatchResult| (|Integer|) - |#1|))) - (SIGNATURE |convert| - ((|Pattern| (|Integer|)) |#1|)) - (SIGNATURE |convert| - ((|InputForm|) |#1|)) - (SIGNATURE |retract| - ((|Integer|) |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| (|Integer|) "failed") - |#1|)) - (SIGNATURE |convert| - ((|Integer|) |#1|)) - (SIGNATURE |differentiate| - (|#1| |#1|)) - (SIGNATURE |differentiate| - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE |positive?| - ((|Boolean|) |#1|)) - (SIGNATURE |euclideanSize| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |factor| - ((|Factored| |#1|) |#1|)) - (SIGNATURE |squareFree| - ((|Factored| |#1|) |#1|)) - (SIGNATURE |prime?| - ((|Boolean|) |#1|)) - (SIGNATURE |characteristic| - ((|NonNegativeInteger|)))) - (|IntegerNumberSystem|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/INS.lsp b/src/algebra/strap/INS.lsp index af5969d3..ef6261ca 100644 --- a/src/algebra/strap/INS.lsp +++ b/src/algebra/strap/INS.lsp @@ -63,7 +63,7 @@ (|Boolean|)) NIL))) |IntegerNumberSystem|) - (SETELT #0# 0 '(|IntegerNumberSystem|)))))) + (|setShellEntry| #0# 0 '(|IntegerNumberSystem|)))))) (DEFUN |IntegerNumberSystem| () (LET () @@ -71,10 +71,4 @@ (|IntegerNumberSystem;AL|) (T (SETQ |IntegerNumberSystem;AL| (|IntegerNumberSystem;|)))))) -(SETQ |$CategoryFrame| - (|put| '|IntegerNumberSystem| '|isCategory| T - (|addModemap| '|IntegerNumberSystem| - '(|IntegerNumberSystem|) '((|Category|)) T - '|IntegerNumberSystem| |$CategoryFrame|))) - (MAKEPROP '|IntegerNumberSystem| 'NILADIC T) diff --git a/src/algebra/strap/INT.lsp b/src/algebra/strap/INT.lsp index 7fa42593..0e57fde8 100644 --- a/src/algebra/strap/INT.lsp +++ b/src/algebra/strap/INT.lsp @@ -628,7 +628,7 @@ (|unitsKnown| . 0)) (CONS (|makeByteWordVec2| 1 '(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)) + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)) (CONS '#(|IntegerNumberSystem&| |EuclideanDomain&| |UniqueFactorizationDomain&| NIL NIL |GcdDomain&| |IntegralDomain&| |Algebra&| NIL @@ -638,7 +638,7 @@ |Monoid&| NIL NIL |OrderedSet&| |AbelianSemiGroup&| |SemiGroup&| NIL |SetCategory&| NIL NIL NIL NIL NIL NIL NIL - |RetractableTo&| NIL |BasicType&| NIL) + |RetractableTo&| NIL NIL |BasicType&| NIL) (CONS '#((|IntegerNumberSystem|) (|EuclideanDomain|) (|UniqueFactorizationDomain|) @@ -669,6 +669,7 @@ (|ConvertibleTo| 123) (|ConvertibleTo| 50) (|RetractableTo| 11) + (|CoercibleFrom| 11) (|ConvertibleTo| 11) (|BasicType|) (|CoercibleTo| 36)) (|makeByteWordVec2| 131 @@ -719,180 +720,4 @@ 2 0 0 131 0 1))))) '|lookupComplete|)) -(SETQ |$CategoryFrame| - (|put| '|Integer| '|isFunctor| - '(((|OMwrite| ((|Void|) (|OpenMathDevice|) $ (|Boolean|))) - T (ELT $ 24)) - ((|OMwrite| ((|Void|) (|OpenMathDevice|) $)) T - (ELT $ 23)) - ((|OMwrite| ((|String|) $ (|Boolean|))) T (ELT $ 22)) - ((|OMwrite| ((|String|) $)) T (ELT $ 20)) - ((|convert| ((|String|) $)) T (ELT $ 53)) - ((|invmod| ($ $ $)) T (ELT $ NIL)) - ((|powmod| ($ $ $ $)) T (ELT $ NIL)) - ((|mulmod| ($ $ $ $)) T (ELT $ 44)) - ((|submod| ($ $ $ $)) T (ELT $ 43)) - ((|addmod| ($ $ $ $)) T (ELT $ 42)) - ((|mask| ($ $)) T (ELT $ NIL)) - ((|dec| ($ $)) T (ELT $ 32)) - ((|inc| ($ $)) T (ELT $ 31)) - ((|copy| ($ $)) T (ELT $ 30)) - ((|random| ($ $)) T (ELT $ 65)) - ((|random| ($)) T (ELT $ 64)) - ((|rationalIfCan| - ((|Union| (|Fraction| (|Integer|)) "failed") $)) - T (ELT $ NIL)) - ((|rational| ((|Fraction| (|Integer|)) $)) T - (ELT $ NIL)) - ((|rational?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|symmetricRemainder| ($ $ $)) T (ELT $ NIL)) - ((|positiveRemainder| ($ $ $)) T (ELT $ 55)) - ((|bit?| ((|Boolean|) $ $)) T (ELT $ NIL)) - ((|shift| ($ $ $)) T (ELT $ 82)) - ((|length| ($ $)) T (ELT $ 41)) - ((|base| ($)) T (ELT $ 29)) - ((|even?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|odd?| ((|Boolean|) $)) T (ELT $ 75)) - ((|init| ($)) T (CONST $ NIL)) - ((|nextItem| ((|Union| $ "failed") $)) T (ELT $ NIL)) - ((|convert| ((|DoubleFloat|) $)) T (ELT $ 49)) - ((|convert| ((|Float|) $)) T (ELT $ 47)) - ((|permutation| ($ $ $)) T (ELT $ NIL)) - ((|factorial| ($ $)) T (ELT $ NIL)) - ((|binomial| ($ $ $)) T (ELT $ NIL)) - ((|patternMatch| - ((|PatternMatchResult| (|Integer|) $) $ - (|Pattern| (|Integer|)) - (|PatternMatchResult| (|Integer|) $))) - T (ELT $ NIL)) - ((|convert| ((|Pattern| (|Integer|)) $)) T (ELT $ NIL)) - ((|convert| ((|InputForm|) $)) T (ELT $ 52)) - ((|reducedSystem| ((|Matrix| (|Integer|)) (|Matrix| $))) - T (ELT $ 58)) - ((|reducedSystem| - ((|Record| (|:| |mat| (|Matrix| (|Integer|))) - (|:| |vec| (|Vector| (|Integer|)))) - (|Matrix| $) (|Vector| $))) - T (ELT $ 62)) - ((|retract| ((|Integer|) $)) T (ELT $ NIL)) - ((|retractIfCan| ((|Union| (|Integer|) "failed") $)) T - (ELT $ NIL)) - ((|coerce| ($ (|Integer|))) T (ELT $ 39)) - ((|convert| ((|Integer|) $)) T (ELT $ 40)) - ((|differentiate| ($ $)) T (ELT $ NIL)) - ((D ($ $)) T (ELT $ NIL)) - ((|differentiate| ($ $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((D ($ $ (|NonNegativeInteger|))) T (ELT $ NIL)) - ((|abs| ($ $)) T (ELT $ 63)) - ((|sign| ((|Integer|) $)) T (ELT $ NIL)) - ((|negative?| ((|Boolean|) $)) T (ELT $ 35)) - ((|positive?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|min| ($ $ $)) T (ELT $ 77)) - ((|max| ($ $ $)) T (ELT $ 76)) - ((<= ((|Boolean|) $ $)) T (ELT $ NIL)) - ((>= ((|Boolean|) $ $)) T (ELT $ NIL)) - ((> ((|Boolean|) $ $)) T (ELT $ NIL)) - ((< ((|Boolean|) $ $)) T (ELT $ 67)) - ((|principalIdeal| - ((|Record| (|:| |coef| (|List| $)) - (|:| |generator| $)) - (|List| $))) - T (ELT $ NIL)) - ((|expressIdealMember| - ((|Union| (|List| $) "failed") (|List| $) $)) - T (ELT $ NIL)) - ((|sizeLess?| ((|Boolean|) $ $)) T (ELT $ NIL)) - ((|euclideanSize| ((|NonNegativeInteger|) $)) T - (ELT $ NIL)) - ((|divide| - ((|Record| (|:| |quotient| $) (|:| |remainder| $)) - $ $)) - T (ELT $ 79)) - ((|quo| ($ $ $)) T (ELT $ 80)) - ((|rem| ($ $ $)) T (ELT $ 81)) - ((|extendedEuclidean| - ((|Record| (|:| |coef1| $) (|:| |coef2| $) - (|:| |generator| $)) - $ $)) - T (ELT $ NIL)) - ((|extendedEuclidean| - ((|Union| (|Record| (|:| |coef1| $) - (|:| |coef2| $)) - "failed") - $ $ $)) - T (ELT $ NIL)) - ((|multiEuclidean| - ((|Union| (|List| $) "failed") (|List| $) $)) - T (ELT $ NIL)) - ((|factor| ((|Factored| $) $)) T (ELT $ 105)) - ((|squareFreePart| ($ $)) T (ELT $ NIL)) - ((|squareFree| ((|Factored| $) $)) T (ELT $ NIL)) - ((|prime?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|gcdPolynomial| - ((|SparseUnivariatePolynomial| $) - (|SparseUnivariatePolynomial| $) - (|SparseUnivariatePolynomial| $))) - T (ELT $ 119)) - ((|lcm| ($ (|List| $))) T (ELT $ NIL)) - ((|lcm| ($ $ $)) T (ELT $ NIL)) - ((|gcd| ($ (|List| $))) T (ELT $ NIL)) - ((|gcd| ($ $ $)) T (ELT $ 86)) - ((|unit?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|associates?| ((|Boolean|) $ $)) T (ELT $ NIL)) - ((|unitCanonical| ($ $)) T (ELT $ 89)) - ((|unitNormal| - ((|Record| (|:| |unit| $) (|:| |canonical| $) - (|:| |associate| $)) - $)) - T (ELT $ 88)) - ((|exquo| ((|Union| $ "failed") $ $)) T (ELT $ 84)) - ((|coerce| ($ $)) T (ELT $ NIL)) - ((|coerce| ($ (|Integer|))) T (ELT $ 39)) - ((|characteristic| ((|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|One| ($)) T (CONST $ 28)) - ((|one?| ((|Boolean|) $)) T (ELT $ 26)) - ((** ($ $ (|NonNegativeInteger|))) T (ELT $ 74)) - ((|recip| ((|Union| $ "failed") $)) T (ELT $ 85)) - ((* ($ $ $)) T (ELT $ 71)) - ((** ($ $ (|PositiveInteger|))) T (ELT $ NIL)) - ((* ($ (|Integer|) $)) T (ELT $ 72)) - ((- ($ $ $)) T (ELT $ 70)) ((- ($ $)) T (ELT $ 68)) - ((|subtractIfCan| ((|Union| $ "failed") $ $)) T - (ELT $ NIL)) - ((* ($ (|NonNegativeInteger|) $)) T (ELT $ NIL)) - ((|zero?| ((|Boolean|) $)) T (ELT $ 25)) - ((|sample| ($)) T (CONST $ NIL)) - ((|Zero| ($)) T (CONST $ 27)) - ((* ($ (|PositiveInteger|) $)) T (ELT $ NIL)) - ((+ ($ $ $)) T (ELT $ 69)) - ((|latex| ((|String|) $)) T (ELT $ 54)) - ((|hash| ((|SingleInteger|) $)) T (ELT $ 34)) - ((|coerce| ((|OutputForm|) $)) T (ELT $ 38)) - ((= ((|Boolean|) $ $)) T (ELT $ 66)) - ((~= ((|Boolean|) $ $)) T (ELT $ NIL))) - (|addModemap| '|Integer| '(|Integer|) - '((|Join| (|IntegerNumberSystem|) - (|ConvertibleTo| (|String|)) (|OpenMath|) - (CATEGORY |domain| - (SIGNATURE |random| ($ $)) - (ATTRIBUTE |canonical|) - (ATTRIBUTE |canonicalsClosed|) - (ATTRIBUTE |noetherian|) - (ATTRIBUTE |infinite|)))) - T '|Integer| - (|put| '|Integer| '|mode| - '(|Mapping| - (|Join| (|IntegerNumberSystem|) - (|ConvertibleTo| (|String|)) - (|OpenMath|) - (CATEGORY |domain| - (SIGNATURE |random| ($ $)) - (ATTRIBUTE |canonical|) - (ATTRIBUTE |canonicalsClosed|) - (ATTRIBUTE |noetherian|) - (ATTRIBUTE |infinite|)))) - |$CategoryFrame|)))) - (MAKEPROP '|Integer| 'NILADIC T) diff --git a/src/algebra/strap/INTDOM-.lsp b/src/algebra/strap/INTDOM-.lsp index a8b6e221..b44a7d0d 100644 --- a/src/algebra/strap/INTDOM-.lsp +++ b/src/algebra/strap/INTDOM-.lsp @@ -100,47 +100,3 @@ 11 1 0 12 0 18 1 0 14 0 16 2 0 12 0 0 20))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|IntegralDomain&| '|isFunctor| - '(((|unit?| ((|Boolean|) $)) T (ELT $ 18)) - ((|associates?| ((|Boolean|) $ $)) T (ELT $ 20)) - ((|unitCanonical| ($ $)) T (ELT $ 11)) - ((|unitNormal| - ((|Record| (|:| |unit| $) (|:| |canonical| $) - (|:| |associate| $)) - $)) - T (ELT $ 9)) - ((|recip| ((|Union| $ "failed") $)) T (ELT $ 16))) - (|addModemap| '|IntegralDomain&| '(|IntegralDomain&| |#1|) - '((CATEGORY |domain| - (SIGNATURE |unit?| ((|Boolean|) |#1|)) - (SIGNATURE |associates?| - ((|Boolean|) |#1| |#1|)) - (SIGNATURE |unitCanonical| (|#1| |#1|)) - (SIGNATURE |unitNormal| - ((|Record| (|:| |unit| |#1|) - (|:| |canonical| |#1|) - (|:| |associate| |#1|)) - |#1|)) - (SIGNATURE |recip| - ((|Union| |#1| "failed") |#1|))) - (|IntegralDomain|)) - T '|IntegralDomain&| - (|put| '|IntegralDomain&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |unit?| ((|Boolean|) |#1|)) - (SIGNATURE |associates?| - ((|Boolean|) |#1| |#1|)) - (SIGNATURE |unitCanonical| - (|#1| |#1|)) - (SIGNATURE |unitNormal| - ((|Record| (|:| |unit| |#1|) - (|:| |canonical| |#1|) - (|:| |associate| |#1|)) - |#1|)) - (SIGNATURE |recip| - ((|Union| |#1| "failed") |#1|))) - (|IntegralDomain|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/INTDOM.lsp b/src/algebra/strap/INTDOM.lsp index fc558f82..a452bca6 100644 --- a/src/algebra/strap/INTDOM.lsp +++ b/src/algebra/strap/INTDOM.lsp @@ -23,7 +23,7 @@ ((|unit?| ((|Boolean|) $)) T)) NIL '((|Boolean|)) NIL)) |IntegralDomain|) - (SETELT #0# 0 '(|IntegralDomain|)))))) + (|setShellEntry| #0# 0 '(|IntegralDomain|)))))) (DEFUN |IntegralDomain| () (LET () @@ -31,9 +31,4 @@ (|IntegralDomain;AL|) (T (SETQ |IntegralDomain;AL| (|IntegralDomain;|)))))) -(SETQ |$CategoryFrame| - (|put| '|IntegralDomain| '|isCategory| T - (|addModemap| '|IntegralDomain| '(|IntegralDomain|) - '((|Category|)) T '|IntegralDomain| |$CategoryFrame|))) - (MAKEPROP '|IntegralDomain| 'NILADIC T) diff --git a/src/algebra/strap/ISTRING.lsp b/src/algebra/strap/ISTRING.lsp index 3dd2bb09..20b18b16 100644 --- a/src/algebra/strap/ISTRING.lsp +++ b/src/algebra/strap/ISTRING.lsp @@ -1041,258 +1041,3 @@ 14 2 5 11 0 0 1 2 5 11 0 0 15 1 0 7 0 13))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|IndexedString| '|isFunctor| - '(((~= ((|Boolean|) $ $)) - (|has| (|Character|) (|SetCategory|)) (ELT $ NIL)) - ((= ((|Boolean|) $ $)) - (|has| (|Character|) (|SetCategory|)) (ELT $ 14)) - ((|coerce| ((|OutputForm|) $)) - (|has| (|Character|) (|CoercibleTo| (|OutputForm|))) - (ELT $ 27)) - ((|hash| ((|SingleInteger|) $)) - (|has| (|Character|) (|SetCategory|)) (ELT $ NIL)) - ((|latex| ((|String|) $)) - (|has| (|Character|) (|SetCategory|)) (ELT $ 38)) - ((|hash| ((|Integer|) $)) T (ELT $ 69)) - ((|elt| ($ $ $)) T (ELT $ NIL)) - ((|rightTrim| ($ $ (|CharacterClass|))) T (ELT $ 65)) - ((|rightTrim| ($ $ (|Character|))) T (ELT $ 64)) - ((|leftTrim| ($ $ (|CharacterClass|))) T (ELT $ 63)) - ((|leftTrim| ($ $ (|Character|))) T (ELT $ 62)) - ((|trim| ($ $ (|CharacterClass|))) T (ELT $ NIL)) - ((|trim| ($ $ (|Character|))) T (ELT $ NIL)) - ((|split| ((|List| $) $ (|CharacterClass|))) T - (ELT $ 61)) - ((|split| ((|List| $) $ (|Character|))) T (ELT $ 60)) - ((|coerce| ($ (|Character|))) T (ELT $ NIL)) - ((|position| - ((|Integer|) (|CharacterClass|) $ (|Integer|))) - T (ELT $ 50)) - ((|position| ((|Integer|) $ $ (|Integer|))) T - (ELT $ 47)) - ((|replace| ($ $ (|UniversalSegment| (|Integer|)) $)) T - (ELT $ 44)) - ((|match?| ((|Boolean|) $ $ (|Character|))) T - (ELT $ 73)) - ((|match| ((|NonNegativeInteger|) $ $ (|Character|))) T - (ELT $ 70)) - ((|substring?| ((|Boolean|) $ $ (|Integer|))) T - (ELT $ 46)) - ((|suffix?| ((|Boolean|) $ $)) T (ELT $ 51)) - ((|prefix?| ((|Boolean|) $ $)) T (ELT $ 72)) - ((|upperCase!| ($ $)) T (ELT $ 34)) - ((|upperCase| ($ $)) T (ELT $ NIL)) - ((|lowerCase!| ($ $)) T (ELT $ 37)) - ((|lowerCase| ($ $)) T (ELT $ NIL)) - ((< ((|Boolean|) $ $)) - (|has| (|Character|) (|OrderedSet|)) (ELT $ 15)) - ((> ((|Boolean|) $ $)) - (|has| (|Character|) (|OrderedSet|)) (ELT $ NIL)) - ((>= ((|Boolean|) $ $)) - (|has| (|Character|) (|OrderedSet|)) (ELT $ NIL)) - ((<= ((|Boolean|) $ $)) - (|has| (|Character|) (|OrderedSet|)) (ELT $ NIL)) - ((|max| ($ $ $)) (|has| (|Character|) (|OrderedSet|)) - (ELT $ NIL)) - ((|min| ($ $ $)) (|has| (|Character|) (|OrderedSet|)) - (ELT $ NIL)) - ((|sort!| ($ $)) - (AND (|has| $ (ATTRIBUTE |shallowlyMutable|)) - (|has| (|Character|) (|OrderedSet|))) - (ELT $ NIL)) - ((|sort!| ($ (|Mapping| (|Boolean|) (|Character|) - (|Character|)) - $)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|reverse!| ($ $)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|copyInto!| ($ $ $ (|Integer|))) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ 66)) - ((|sorted?| ((|Boolean|) $)) - (|has| (|Character|) (|OrderedSet|)) (ELT $ NIL)) - ((|sort| ($ $)) (|has| (|Character|) (|OrderedSet|)) - (ELT $ NIL)) - ((|merge| ($ $ $)) (|has| (|Character|) (|OrderedSet|)) - (ELT $ NIL)) - ((|position| ((|Integer|) (|Character|) $ (|Integer|))) - (|has| (|Character|) (|SetCategory|)) (ELT $ 48)) - ((|position| ((|Integer|) (|Character|) $)) - (|has| (|Character|) (|SetCategory|)) (ELT $ NIL)) - ((|position| - ((|Integer|) (|Mapping| (|Boolean|) (|Character|)) - $)) - T (ELT $ NIL)) - ((|sorted?| - ((|Boolean|) - (|Mapping| (|Boolean|) (|Character|) - (|Character|)) - $)) - T (ELT $ NIL)) - ((|sort| ($ (|Mapping| (|Boolean|) (|Character|) - (|Character|)) - $)) - T (ELT $ NIL)) - ((|reverse| ($ $)) T (ELT $ NIL)) - ((|merge| ($ (|Mapping| (|Boolean|) (|Character|) - (|Character|)) - $ $)) - T (ELT $ NIL)) - ((|setelt| - ((|Character|) $ (|UniversalSegment| (|Integer|)) - (|Character|))) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|insert| ($ $ $ (|Integer|))) T (ELT $ 23)) - ((|insert| ($ (|Character|) $ (|Integer|))) T - (ELT $ NIL)) - ((|delete| ($ $ (|UniversalSegment| (|Integer|)))) T - (ELT $ NIL)) - ((|delete| ($ $ (|Integer|))) T (ELT $ NIL)) - ((|elt| ($ $ (|UniversalSegment| (|Integer|)))) T - (ELT $ 21)) - ((|map| ($ (|Mapping| (|Character|) (|Character|) - (|Character|)) - $ $)) - T (ELT $ NIL)) - ((|concat| ($ (|List| $))) T (ELT $ 67)) - ((|concat| ($ $ $)) T (ELT $ 16)) - ((|concat| ($ (|Character|) $)) T (ELT $ NIL)) - ((|concat| ($ $ (|Character|))) T (ELT $ NIL)) - ((|new| ($ (|NonNegativeInteger|) (|Character|))) T - (ELT $ 9)) - ((|construct| ($ (|List| (|Character|)))) T (ELT $ NIL)) - ((|find| ((|Union| (|Character|) "failed") - (|Mapping| (|Boolean|) (|Character|)) $)) - T (ELT $ NIL)) - ((|reduce| - ((|Character|) - (|Mapping| (|Character|) (|Character|) - (|Character|)) - $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|reduce| - ((|Character|) - (|Mapping| (|Character|) (|Character|) - (|Character|)) - $ (|Character|))) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|remove| ($ (|Mapping| (|Boolean|) (|Character|)) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|select| ($ (|Mapping| (|Boolean|) (|Character|)) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|reduce| - ((|Character|) - (|Mapping| (|Character|) (|Character|) - (|Character|)) - $ (|Character|) (|Character|))) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| (|Character|) (|SetCategory|))) - (ELT $ NIL)) - ((|remove| ($ (|Character|) $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| (|Character|) (|SetCategory|))) - (ELT $ NIL)) - ((|removeDuplicates| ($ $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| (|Character|) (|SetCategory|))) - (ELT $ NIL)) - ((|convert| ((|InputForm|) $)) - (|has| (|Character|) (|ConvertibleTo| (|InputForm|))) - (ELT $ NIL)) - ((|swap!| ((|Void|) $ (|Integer|) (|Integer|))) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|fill!| ($ $ (|Character|))) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|first| ((|Character|) $)) - (|has| (|Integer|) (|OrderedSet|)) (ELT $ NIL)) - ((|minIndex| ((|Integer|) $)) - (|has| (|Integer|) (|OrderedSet|)) (ELT $ 28)) - ((|maxIndex| ((|Integer|) $)) - (|has| (|Integer|) (|OrderedSet|)) (ELT $ 42)) - ((|entry?| ((|Boolean|) (|Character|) $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| (|Character|) (|SetCategory|))) - (ELT $ NIL)) - ((|indices| ((|List| (|Integer|)) $)) T (ELT $ NIL)) - ((|index?| ((|Boolean|) (|Integer|) $)) T (ELT $ NIL)) - ((|entries| ((|List| (|Character|)) $)) T (ELT $ NIL)) - ((|elt| ((|Character|) $ (|Integer|))) T (ELT $ 52)) - ((|elt| ((|Character|) $ (|Integer|) (|Character|))) T - (ELT $ NIL)) - ((|qelt| ((|Character|) $ (|Integer|))) T (ELT $ NIL)) - ((|setelt| ((|Character|) $ (|Integer|) (|Character|))) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ 45)) - ((|qsetelt!| - ((|Character|) $ (|Integer|) (|Character|))) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|eval| ($ $ (|List| (|Character|)) - (|List| (|Character|)))) - (AND (|has| (|Character|) (|Evalable| (|Character|))) - (|has| (|Character|) (|SetCategory|))) - (ELT $ NIL)) - ((|eval| ($ $ (|Character|) (|Character|))) - (AND (|has| (|Character|) (|Evalable| (|Character|))) - (|has| (|Character|) (|SetCategory|))) - (ELT $ NIL)) - ((|eval| ($ $ (|Equation| (|Character|)))) - (AND (|has| (|Character|) (|Evalable| (|Character|))) - (|has| (|Character|) (|SetCategory|))) - (ELT $ NIL)) - ((|eval| ($ $ (|List| (|Equation| (|Character|))))) - (AND (|has| (|Character|) (|Evalable| (|Character|))) - (|has| (|Character|) (|SetCategory|))) - (ELT $ NIL)) - ((|member?| ((|Boolean|) (|Character|) $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| (|Character|) (|SetCategory|))) - (ELT $ NIL)) - ((|count| ((|NonNegativeInteger|) (|Character|) $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| (|Character|) (|SetCategory|))) - (ELT $ NIL)) - ((|members| ((|List| (|Character|)) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|parts| ((|List| (|Character|)) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|count| ((|NonNegativeInteger|) - (|Mapping| (|Boolean|) (|Character|)) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|every?| - ((|Boolean|) (|Mapping| (|Boolean|) (|Character|)) - $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|any?| ((|Boolean|) - (|Mapping| (|Boolean|) (|Character|)) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|map!| ($ (|Mapping| (|Character|) (|Character|)) $)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ 33)) - ((|map| ($ (|Mapping| (|Character|) (|Character|)) $)) T - (ELT $ NIL)) - ((|#| ((|NonNegativeInteger|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ 13)) - ((|sample| ($)) T (CONST $ NIL)) - ((|size?| ((|Boolean|) $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|more?| ((|Boolean|) $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|less?| ((|Boolean|) $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|empty?| ((|Boolean|) $)) T (ELT $ 12)) - ((|empty| ($)) T (ELT $ 10)) - ((|copy| ($ $)) T (ELT $ 17)) - ((|eq?| ((|Boolean|) $ $)) T (ELT $ NIL))) - (|addModemap| '|IndexedString| '(|IndexedString| |#1|) - '((|Join| (|StringAggregate|) - (CATEGORY |domain| - (SIGNATURE |hash| ((|Integer|) $)))) - (|Integer|)) - T '|IndexedString| - (|put| '|IndexedString| '|mode| - '(|Mapping| - (|Join| (|StringAggregate|) - (CATEGORY |domain| - (SIGNATURE |hash| - ((|Integer|) $)))) - (|Integer|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/LIST.lsp b/src/algebra/strap/LIST.lsp index e43d4ed3..949f0960 100644 --- a/src/algebra/strap/LIST.lsp +++ b/src/algebra/strap/LIST.lsp @@ -353,308 +353,3 @@ 0 0 11 3 6 12 13 0 8 29 2 6 12 13 0 28 1 6 15 0 26 2 6 15 0 8 27))))) '|lookupIncomplete|)) - -(SETQ |$CategoryFrame| - (|put| '|List| '|isFunctor| - '(((~= ((|Boolean|) $ $)) (|has| |#1| (|SetCategory|)) - (ELT $ NIL)) - ((= ((|Boolean|) $ $)) (|has| |#1| (|SetCategory|)) - (ELT $ NIL)) - ((|coerce| ((|OutputForm|) $)) - (|has| |#1| (|CoercibleTo| (|OutputForm|))) - (ELT $ NIL)) - ((|hash| ((|SingleInteger|) $)) - (|has| |#1| (|SetCategory|)) (ELT $ NIL)) - ((|latex| ((|String|) $)) (|has| |#1| (|SetCategory|)) - (ELT $ NIL)) - ((|OMwrite| ((|Void|) (|OpenMathDevice|) $ (|Boolean|))) - (|has| |#1| (|OpenMath|)) (ELT $ 29)) - ((|OMwrite| ((|Void|) (|OpenMathDevice|) $)) - (|has| |#1| (|OpenMath|)) (ELT $ 28)) - ((|OMwrite| ((|String|) $ (|Boolean|))) - (|has| |#1| (|OpenMath|)) (ELT $ 27)) - ((|OMwrite| ((|String|) $)) (|has| |#1| (|OpenMath|)) - (ELT $ 26)) - ((|setDifference| ($ $ $)) (|has| |#1| (|SetCategory|)) - (ELT $ 37)) - ((|setIntersection| ($ $ $)) - (|has| |#1| (|SetCategory|)) (ELT $ 34)) - ((|setUnion| ($ $ $)) (|has| |#1| (|SetCategory|)) - (ELT $ 32)) - ((|append| ($ $ $)) T (ELT $ 11)) - ((|cons| ($ |#1| $)) T (ELT $ 10)) - ((|null| ((|Boolean|) $)) T (ELT $ 9)) - ((|nil| ($)) T (ELT $ 7)) - ((|list| ($ |#1|)) T (ELT $ NIL)) - ((|concat!| ($ $ |#1|)) T (ELT $ NIL)) - ((|concat!| ($ $ $)) T (ELT $ NIL)) - ((|delete!| ($ $ (|Integer|))) T (ELT $ NIL)) - ((|delete!| ($ $ (|UniversalSegment| (|Integer|)))) T - (ELT $ NIL)) - ((|remove!| ($ (|Mapping| (|Boolean|) |#1|) $)) T - (ELT $ NIL)) - ((|insert!| ($ |#1| $ (|Integer|))) T (ELT $ NIL)) - ((|insert!| ($ $ $ (|Integer|))) T (ELT $ NIL)) - ((|merge!| ($ (|Mapping| (|Boolean|) |#1| |#1|) $ $)) T - (ELT $ NIL)) - ((|select!| ($ (|Mapping| (|Boolean|) |#1|) $)) T - (ELT $ NIL)) - ((|remove!| ($ |#1| $)) (|has| |#1| (|SetCategory|)) - (ELT $ NIL)) - ((|removeDuplicates!| ($ $)) - (|has| |#1| (|SetCategory|)) (ELT $ NIL)) - ((|merge!| ($ $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((|merge| ($ (|Mapping| (|Boolean|) |#1| |#1|) $ $)) T - (ELT $ NIL)) - ((|reverse| ($ $)) T (ELT $ NIL)) - ((|sort| ($ (|Mapping| (|Boolean|) |#1| |#1|) $)) T - (ELT $ NIL)) - ((|sorted?| - ((|Boolean|) (|Mapping| (|Boolean|) |#1| |#1|) $)) - T (ELT $ NIL)) - ((|position| - ((|Integer|) (|Mapping| (|Boolean|) |#1|) $)) - T (ELT $ NIL)) - ((|position| ((|Integer|) |#1| $)) - (|has| |#1| (|SetCategory|)) (ELT $ NIL)) - ((|position| ((|Integer|) |#1| $ (|Integer|))) - (|has| |#1| (|SetCategory|)) (ELT $ NIL)) - ((|merge| ($ $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((|sort| ($ $)) (|has| |#1| (|OrderedSet|)) (ELT $ NIL)) - ((|sorted?| ((|Boolean|) $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((|copyInto!| ($ $ $ (|Integer|))) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|reverse!| ($ $)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|sort!| ($ (|Mapping| (|Boolean|) |#1| |#1|) $)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|sort!| ($ $)) - (AND (|has| $ (ATTRIBUTE |shallowlyMutable|)) - (|has| |#1| (|OrderedSet|))) - (ELT $ NIL)) - ((|min| ($ $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((|max| ($ $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((<= ((|Boolean|) $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((>= ((|Boolean|) $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((> ((|Boolean|) $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((< ((|Boolean|) $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((|possiblyInfinite?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|explicitlyFinite?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|qsetelt!| (|#1| $ (|Integer|) |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|setelt| (|#1| $ (|Integer|) |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|qelt| (|#1| $ (|Integer|))) T (ELT $ NIL)) - ((|elt| (|#1| $ (|Integer|) |#1|)) T (ELT $ NIL)) - ((|elt| (|#1| $ (|Integer|))) T (ELT $ 36)) - ((|entries| ((|List| |#1|) $)) T (ELT $ NIL)) - ((|index?| ((|Boolean|) (|Integer|) $)) T (ELT $ NIL)) - ((|indices| ((|List| (|Integer|)) $)) T (ELT $ NIL)) - ((|entry?| ((|Boolean|) |#1| $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|maxIndex| ((|Integer|) $)) - (|has| (|Integer|) (|OrderedSet|)) (ELT $ NIL)) - ((|minIndex| ((|Integer|) $)) - (|has| (|Integer|) (|OrderedSet|)) (ELT $ NIL)) - ((|fill!| ($ $ |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|swap!| ((|Void|) $ (|Integer|) (|Integer|))) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|convert| ((|InputForm|) $)) - (|has| |#1| (|ConvertibleTo| (|InputForm|))) - (ELT $ 45)) - ((|removeDuplicates| ($ $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ 31)) - ((|remove| ($ |#1| $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|reduce| - (|#1| (|Mapping| |#1| |#1| |#1|) $ |#1| |#1|)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|select| ($ (|Mapping| (|Boolean|) |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|remove| ($ (|Mapping| (|Boolean|) |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|reduce| (|#1| (|Mapping| |#1| |#1| |#1|) $ |#1|)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|reduce| (|#1| (|Mapping| |#1| |#1| |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|find| ((|Union| |#1| "failed") - (|Mapping| (|Boolean|) |#1|) $)) - T (ELT $ NIL)) - ((|construct| ($ (|List| |#1|))) T (ELT $ NIL)) - ((|new| ($ (|NonNegativeInteger|) |#1|)) T (ELT $ NIL)) - ((|concat| ($ $ |#1|)) T (ELT $ NIL)) - ((|concat| ($ (|List| $))) T (ELT $ NIL)) - ((|map| ($ (|Mapping| |#1| |#1| |#1|) $ $)) T - (ELT $ NIL)) - ((|elt| ($ $ (|UniversalSegment| (|Integer|)))) T - (ELT $ NIL)) - ((|delete| ($ $ (|Integer|))) T (ELT $ NIL)) - ((|delete| ($ $ (|UniversalSegment| (|Integer|)))) T - (ELT $ NIL)) - ((|insert| ($ |#1| $ (|Integer|))) T (ELT $ NIL)) - ((|insert| ($ $ $ (|Integer|))) T (ELT $ NIL)) - ((|setelt| - (|#1| $ (|UniversalSegment| (|Integer|)) |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|split!| ($ $ (|Integer|))) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|setelt| (|#1| $ "last" |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|setlast!| (|#1| $ |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|setelt| ($ $ "rest" $)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|setrest!| ($ $ $)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|setelt| (|#1| $ "first" |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|setfirst!| (|#1| $ |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|cycleSplit!| ($ $)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|cycleTail| ($ $)) T (ELT $ NIL)) - ((|cycleLength| ((|NonNegativeInteger|) $)) T - (ELT $ NIL)) - ((|cycleEntry| ($ $)) T (ELT $ NIL)) - ((|third| (|#1| $)) T (ELT $ NIL)) - ((|second| (|#1| $)) T (ELT $ NIL)) - ((|tail| ($ $)) T (ELT $ NIL)) - ((|last| ($ $ (|NonNegativeInteger|))) T (ELT $ NIL)) - ((|elt| (|#1| $ "last")) T (ELT $ NIL)) - ((|last| (|#1| $)) T (ELT $ NIL)) - ((|rest| ($ $ (|NonNegativeInteger|))) T (ELT $ NIL)) - ((|elt| ($ $ "rest")) T (ELT $ NIL)) - ((|rest| ($ $)) T (ELT $ NIL)) - ((|first| ($ $ (|NonNegativeInteger|))) T (ELT $ NIL)) - ((|elt| (|#1| $ "first")) T (ELT $ NIL)) - ((|first| (|#1| $)) T (ELT $ NIL)) - ((|concat| ($ |#1| $)) T (ELT $ NIL)) - ((|concat| ($ $ $)) T (ELT $ 30)) - ((|setvalue!| (|#1| $ |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|setelt| (|#1| $ "value" |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|setchildren!| ($ $ (|List| $))) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|node?| ((|Boolean|) $ $)) - (|has| |#1| (|SetCategory|)) (ELT $ NIL)) - ((|child?| ((|Boolean|) $ $)) - (|has| |#1| (|SetCategory|)) (ELT $ NIL)) - ((|distance| ((|Integer|) $ $)) T (ELT $ NIL)) - ((|leaves| ((|List| |#1|) $)) T (ELT $ NIL)) - ((|cyclic?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|elt| (|#1| $ "value")) T (ELT $ NIL)) - ((|value| (|#1| $)) T (ELT $ NIL)) - ((|leaf?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|nodes| ((|List| $) $)) T (ELT $ NIL)) - ((|children| ((|List| $) $)) T (ELT $ NIL)) - ((|eval| ($ $ (|List| |#1|) (|List| |#1|))) - (AND (|has| |#1| (|Evalable| |#1|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|eval| ($ $ |#1| |#1|)) - (AND (|has| |#1| (|Evalable| |#1|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|eval| ($ $ (|Equation| |#1|))) - (AND (|has| |#1| (|Evalable| |#1|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|eval| ($ $ (|List| (|Equation| |#1|)))) - (AND (|has| |#1| (|Evalable| |#1|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|member?| ((|Boolean|) |#1| $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ 33)) - ((|count| ((|NonNegativeInteger|) |#1| $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|members| ((|List| |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|parts| ((|List| |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|count| ((|NonNegativeInteger|) - (|Mapping| (|Boolean|) |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|every?| ((|Boolean|) (|Mapping| (|Boolean|) |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|any?| ((|Boolean|) (|Mapping| (|Boolean|) |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|map!| ($ (|Mapping| |#1| |#1|) $)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|map| ($ (|Mapping| |#1| |#1|) $)) T (ELT $ NIL)) - ((|#| ((|NonNegativeInteger|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|sample| ($)) T (CONST $ NIL)) - ((|size?| ((|Boolean|) $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|more?| ((|Boolean|) $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|less?| ((|Boolean|) $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|empty?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|empty| ($)) T (ELT $ NIL)) - ((|copy| ($ $)) T (ELT $ NIL)) - ((|eq?| ((|Boolean|) $ $)) T (ELT $ NIL))) - (|addModemap| '|List| '(|List| |#1|) - '((|Join| (|ListAggregate| |#1|) - (CATEGORY |domain| (SIGNATURE |nil| ($)) - (SIGNATURE |null| ((|Boolean|) $)) - (SIGNATURE |cons| ($ |#1| $)) - (SIGNATURE |append| ($ $ $)) - (IF (|has| |#1| (|SetCategory|)) - (PROGN - (SIGNATURE |setUnion| ($ $ $)) - (SIGNATURE |setIntersection| - ($ $ $)) - (SIGNATURE |setDifference| - ($ $ $))) - |%noBranch|) - (IF (|has| |#1| (|OpenMath|)) - (ATTRIBUTE (|OpenMath|)) - |%noBranch|))) - (|Type|)) - T '|List| - (|put| '|List| '|mode| - '(|Mapping| - (|Join| (|ListAggregate| |#1|) - (CATEGORY |domain| - (SIGNATURE |nil| ($)) - (SIGNATURE |null| - ((|Boolean|) $)) - (SIGNATURE |cons| ($ |#1| $)) - (SIGNATURE |append| ($ $ $)) - (IF (|has| |#1| (|SetCategory|)) - (PROGN - (SIGNATURE |setUnion| ($ $ $)) - (SIGNATURE |setIntersection| - ($ $ $)) - (SIGNATURE |setDifference| - ($ $ $))) - |%noBranch|) - (IF (|has| |#1| (|OpenMath|)) - (ATTRIBUTE (|OpenMath|)) - |%noBranch|))) - (|Type|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/LNAGG-.lsp b/src/algebra/strap/LNAGG-.lsp index 8fb55dad..b997b6b1 100644 --- a/src/algebra/strap/LNAGG-.lsp +++ b/src/algebra/strap/LNAGG-.lsp @@ -102,53 +102,3 @@ 0 7 0 8 22 1 0 11 0 12 2 0 13 8 0 15 2 0 0 0 7 19 2 0 0 7 0 20))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|LinearAggregate&| '|isFunctor| - '(((|insert| ($ $ $ (|Integer|))) T (ELT $ NIL)) - ((|insert| ($ |#2| $ (|Integer|))) T (ELT $ 22)) - ((|concat| ($ (|List| $))) T (ELT $ NIL)) - ((|concat| ($ $ $)) T (ELT $ NIL)) - ((|concat| ($ |#2| $)) T (ELT $ 20)) - ((|concat| ($ $ |#2|)) T (ELT $ 19)) - ((|maxIndex| ((|Integer|) $)) T (ELT $ 24)) - ((|indices| ((|List| (|Integer|)) $)) T (ELT $ 12)) - ((|index?| ((|Boolean|) (|Integer|) $)) T (ELT $ 15))) - (|addModemap| '|LinearAggregate&| - '(|LinearAggregate&| |#1| |#2|) - '((CATEGORY |domain| - (SIGNATURE |insert| - (|#1| |#1| |#1| (|Integer|))) - (SIGNATURE |insert| - (|#1| |#2| |#1| (|Integer|))) - (SIGNATURE |concat| (|#1| (|List| |#1|))) - (SIGNATURE |concat| (|#1| |#1| |#1|)) - (SIGNATURE |concat| (|#1| |#2| |#1|)) - (SIGNATURE |concat| (|#1| |#1| |#2|)) - (SIGNATURE |maxIndex| ((|Integer|) |#1|)) - (SIGNATURE |indices| - ((|List| (|Integer|)) |#1|)) - (SIGNATURE |index?| - ((|Boolean|) (|Integer|) |#1|))) - (|LinearAggregate| |#2|) (|Type|)) - T '|LinearAggregate&| - (|put| '|LinearAggregate&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |insert| - (|#1| |#1| |#1| (|Integer|))) - (SIGNATURE |insert| - (|#1| |#2| |#1| (|Integer|))) - (SIGNATURE |concat| - (|#1| (|List| |#1|))) - (SIGNATURE |concat| (|#1| |#1| |#1|)) - (SIGNATURE |concat| (|#1| |#2| |#1|)) - (SIGNATURE |concat| (|#1| |#1| |#2|)) - (SIGNATURE |maxIndex| - ((|Integer|) |#1|)) - (SIGNATURE |indices| - ((|List| (|Integer|)) |#1|)) - (SIGNATURE |index?| - ((|Boolean|) (|Integer|) |#1|))) - (|LinearAggregate| |#2|) (|Type|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/LNAGG.lsp b/src/algebra/strap/LNAGG.lsp index 98805faf..39b44e3c 100644 --- a/src/algebra/strap/LNAGG.lsp +++ b/src/algebra/strap/LNAGG.lsp @@ -67,7 +67,8 @@ (|NonNegativeInteger|)) NIL)) . #2=(|LinearAggregate|)))))) . #2#) - (SETELT #0# 0 (LIST '|LinearAggregate| (|devaluate| |t#1|))))))) + (|setShellEntry| #0# 0 + (LIST '|LinearAggregate| (|devaluate| |t#1|))))))) (DEFUN |LinearAggregate| (#0=#:G1400) (LET (#1=#:G1401) @@ -79,9 +80,3 @@ (SETQ #1# (|LinearAggregate;| #0#))) |LinearAggregate;AL|)) #1#)))) - -(SETQ |$CategoryFrame| - (|put| '|LinearAggregate| '|isCategory| T - (|addModemap| '|LinearAggregate| '(|LinearAggregate| |#1|) - '((|Category|) (|Type|)) T '|LinearAggregate| - |$CategoryFrame|))) diff --git a/src/algebra/strap/LSAGG-.lsp b/src/algebra/strap/LSAGG-.lsp index 4823fd5b..504a9575 100644 --- a/src/algebra/strap/LSAGG-.lsp +++ b/src/algebra/strap/LSAGG-.lsp @@ -959,195 +959,3 @@ 31 38 3 0 0 0 0 31 60 1 0 0 0 58 2 0 10 0 0 66))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|ListAggregate&| '|isFunctor| - '(((|list| ($ |#2|)) T (ELT $ 15)) - ((|delete!| ($ $ (|Integer|))) T (ELT $ 38)) - ((|delete!| ($ $ (|UniversalSegment| (|Integer|)))) T - (ELT $ 44)) - ((|remove!| ($ (|Mapping| (|Boolean|) |#2|) $)) T - (ELT $ 37)) - ((|insert!| ($ |#2| $ (|Integer|))) T (ELT $ 34)) - ((|insert!| ($ $ $ (|Integer|))) T (ELT $ 36)) - ((|merge!| ($ (|Mapping| (|Boolean|) |#2| |#2|) $ $)) T - (ELT $ 30)) - ((|select!| ($ (|Mapping| (|Boolean|) |#2|) $)) T - (ELT $ 28)) - ((|remove!| ($ |#2| $)) T (ELT $ NIL)) - ((|removeDuplicates!| ($ $)) T (ELT $ 64)) - ((|merge!| ($ $ $)) T (ELT $ NIL)) - ((|merge| ($ (|Mapping| (|Boolean|) |#2| |#2|) $ $)) T - (ELT $ 24)) - ((|sorted?| - ((|Boolean|) (|Mapping| (|Boolean|) |#2| |#2|) $)) - T (ELT $ 50)) - ((|position| - ((|Integer|) (|Mapping| (|Boolean|) |#2|) $)) - T (ELT $ 47)) - ((|position| ((|Integer|) |#2| $)) T (ELT $ NIL)) - ((|position| ((|Integer|) |#2| $ (|Integer|))) T - (ELT $ 61)) - ((|merge| ($ $ $)) T (ELT $ NIL)) - ((|sorted?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|copyInto!| ($ $ $ (|Integer|))) T (ELT $ 60)) - ((|reverse!| ($ $)) T (ELT $ 56)) - ((|sort!| ($ (|Mapping| (|Boolean|) |#2| |#2|) $)) T - (ELT $ 12)) - ((|sort!| ($ $)) T (ELT $ NIL)) - ((< ((|Boolean|) $ $)) T (ELT $ 66)) - ((|reduce| - (|#2| (|Mapping| |#2| |#2| |#2|) $ |#2| |#2|)) - T (ELT $ 53)) - ((|reduce| (|#2| (|Mapping| |#2| |#2| |#2|) $ |#2|)) T - (ELT $ 51)) - ((|reduce| (|#2| (|Mapping| |#2| |#2| |#2|) $)) T - (ELT $ 21)) - ((|find| ((|Union| |#2| "failed") - (|Mapping| (|Boolean|) |#2|) $)) - T (ELT $ 46)) - ((|new| ($ (|NonNegativeInteger|) |#2|)) T (ELT $ 54)) - ((|map| ($ (|Mapping| |#2| |#2| |#2|) $ $)) T - (ELT $ 55)) - ((|map| ($ (|Mapping| |#2| |#2|) $)) T (ELT $ NIL)) - ((|copy| ($ $)) T (ELT $ 58))) - (|addModemap| '|ListAggregate&| - '(|ListAggregate&| |#1| |#2|) - '((CATEGORY |domain| (SIGNATURE |list| (|#1| |#2|)) - (SIGNATURE |delete!| (|#1| |#1| (|Integer|))) - (SIGNATURE |delete!| - (|#1| |#1| (|UniversalSegment| (|Integer|)))) - (SIGNATURE |remove!| - (|#1| (|Mapping| (|Boolean|) |#2|) |#1|)) - (SIGNATURE |insert!| - (|#1| |#2| |#1| (|Integer|))) - (SIGNATURE |insert!| - (|#1| |#1| |#1| (|Integer|))) - (SIGNATURE |merge!| - (|#1| (|Mapping| (|Boolean|) |#2| |#2|) |#1| - |#1|)) - (SIGNATURE |select!| - (|#1| (|Mapping| (|Boolean|) |#2|) |#1|)) - (SIGNATURE |remove!| (|#1| |#2| |#1|)) - (SIGNATURE |removeDuplicates!| (|#1| |#1|)) - (SIGNATURE |merge!| (|#1| |#1| |#1|)) - (SIGNATURE |merge| - (|#1| (|Mapping| (|Boolean|) |#2| |#2|) |#1| - |#1|)) - (SIGNATURE |sorted?| - ((|Boolean|) - (|Mapping| (|Boolean|) |#2| |#2|) |#1|)) - (SIGNATURE |position| - ((|Integer|) (|Mapping| (|Boolean|) |#2|) - |#1|)) - (SIGNATURE |position| ((|Integer|) |#2| |#1|)) - (SIGNATURE |position| - ((|Integer|) |#2| |#1| (|Integer|))) - (SIGNATURE |merge| (|#1| |#1| |#1|)) - (SIGNATURE |sorted?| ((|Boolean|) |#1|)) - (SIGNATURE |copyInto!| - (|#1| |#1| |#1| (|Integer|))) - (SIGNATURE |reverse!| (|#1| |#1|)) - (SIGNATURE |sort!| - (|#1| (|Mapping| (|Boolean|) |#2| |#2|) - |#1|)) - (SIGNATURE |sort!| (|#1| |#1|)) - (SIGNATURE < ((|Boolean|) |#1| |#1|)) - (SIGNATURE |reduce| - (|#2| (|Mapping| |#2| |#2| |#2|) |#1| |#2| - |#2|)) - (SIGNATURE |reduce| - (|#2| (|Mapping| |#2| |#2| |#2|) |#1| |#2|)) - (SIGNATURE |reduce| - (|#2| (|Mapping| |#2| |#2| |#2|) |#1|)) - (SIGNATURE |find| - ((|Union| |#2| "failed") - (|Mapping| (|Boolean|) |#2|) |#1|)) - (SIGNATURE |new| - (|#1| (|NonNegativeInteger|) |#2|)) - (SIGNATURE |map| - (|#1| (|Mapping| |#2| |#2| |#2|) |#1| |#1|)) - (SIGNATURE |map| - (|#1| (|Mapping| |#2| |#2|) |#1|)) - (SIGNATURE |copy| (|#1| |#1|))) - (|ListAggregate| |#2|) (|Type|)) - T '|ListAggregate&| - (|put| '|ListAggregate&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |list| (|#1| |#2|)) - (SIGNATURE |delete!| - (|#1| |#1| (|Integer|))) - (SIGNATURE |delete!| - (|#1| |#1| - (|UniversalSegment| (|Integer|)))) - (SIGNATURE |remove!| - (|#1| (|Mapping| (|Boolean|) |#2|) - |#1|)) - (SIGNATURE |insert!| - (|#1| |#2| |#1| (|Integer|))) - (SIGNATURE |insert!| - (|#1| |#1| |#1| (|Integer|))) - (SIGNATURE |merge!| - (|#1| - (|Mapping| (|Boolean|) |#2| |#2|) - |#1| |#1|)) - (SIGNATURE |select!| - (|#1| (|Mapping| (|Boolean|) |#2|) - |#1|)) - (SIGNATURE |remove!| (|#1| |#2| |#1|)) - (SIGNATURE |removeDuplicates!| - (|#1| |#1|)) - (SIGNATURE |merge!| (|#1| |#1| |#1|)) - (SIGNATURE |merge| - (|#1| - (|Mapping| (|Boolean|) |#2| |#2|) - |#1| |#1|)) - (SIGNATURE |sorted?| - ((|Boolean|) - (|Mapping| (|Boolean|) |#2| |#2|) - |#1|)) - (SIGNATURE |position| - ((|Integer|) - (|Mapping| (|Boolean|) |#2|) - |#1|)) - (SIGNATURE |position| - ((|Integer|) |#2| |#1|)) - (SIGNATURE |position| - ((|Integer|) |#2| |#1| - (|Integer|))) - (SIGNATURE |merge| (|#1| |#1| |#1|)) - (SIGNATURE |sorted?| - ((|Boolean|) |#1|)) - (SIGNATURE |copyInto!| - (|#1| |#1| |#1| (|Integer|))) - (SIGNATURE |reverse!| (|#1| |#1|)) - (SIGNATURE |sort!| - (|#1| - (|Mapping| (|Boolean|) |#2| |#2|) - |#1|)) - (SIGNATURE |sort!| (|#1| |#1|)) - (SIGNATURE < ((|Boolean|) |#1| |#1|)) - (SIGNATURE |reduce| - (|#2| (|Mapping| |#2| |#2| |#2|) - |#1| |#2| |#2|)) - (SIGNATURE |reduce| - (|#2| (|Mapping| |#2| |#2| |#2|) - |#1| |#2|)) - (SIGNATURE |reduce| - (|#2| (|Mapping| |#2| |#2| |#2|) - |#1|)) - (SIGNATURE |find| - ((|Union| |#2| "failed") - (|Mapping| (|Boolean|) |#2|) - |#1|)) - (SIGNATURE |new| - (|#1| (|NonNegativeInteger|) |#2|)) - (SIGNATURE |map| - (|#1| (|Mapping| |#2| |#2| |#2|) - |#1| |#1|)) - (SIGNATURE |map| - (|#1| (|Mapping| |#2| |#2|) |#1|)) - (SIGNATURE |copy| (|#1| |#1|))) - (|ListAggregate| |#2|) (|Type|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/LSAGG.lsp b/src/algebra/strap/LSAGG.lsp index 924ec233..bfe188ac 100644 --- a/src/algebra/strap/LSAGG.lsp +++ b/src/algebra/strap/LSAGG.lsp @@ -24,7 +24,8 @@ '(((|list| ($ |t#1|)) T)) NIL 'NIL NIL)) . #1=(|ListAggregate|))))) . #1#) - (SETELT #0# 0 (LIST '|ListAggregate| (|devaluate| |t#1|))))))) + (|setShellEntry| #0# 0 + (LIST '|ListAggregate| (|devaluate| |t#1|))))))) (DEFUN |ListAggregate| (#0=#:G1431) (LET (#1=#:G1432) @@ -36,9 +37,3 @@ (SETQ #1# (|ListAggregate;| #0#))) |ListAggregate;AL|)) #1#)))) - -(SETQ |$CategoryFrame| - (|put| '|ListAggregate| '|isCategory| T - (|addModemap| '|ListAggregate| '(|ListAggregate| |#1|) - '((|Category|) (|Type|)) T '|ListAggregate| - |$CategoryFrame|))) diff --git a/src/algebra/strap/MONOID-.lsp b/src/algebra/strap/MONOID-.lsp index 6673562a..b3cf1042 100644 --- a/src/algebra/strap/MONOID-.lsp +++ b/src/algebra/strap/MONOID-.lsp @@ -59,35 +59,3 @@ 0 0 11 1 0 12 0 13 1 0 8 0 10 2 0 0 0 17 18))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|Monoid&| '|isFunctor| - '(((|recip| ((|Union| $ "failed") $)) T (ELT $ 13)) - ((** ($ $ (|NonNegativeInteger|))) T (ELT $ 18)) - ((|one?| ((|Boolean|) $)) T (ELT $ 10)) - ((|sample| ($)) T (ELT $ 11)) - ((** ($ $ (|PositiveInteger|))) T (ELT $ NIL))) - (|addModemap| '|Monoid&| '(|Monoid&| |#1|) - '((CATEGORY |domain| - (SIGNATURE |recip| - ((|Union| |#1| "failed") |#1|)) - (SIGNATURE ** - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE |one?| ((|Boolean|) |#1|)) - (SIGNATURE |sample| (|#1|)) - (SIGNATURE ** (|#1| |#1| (|PositiveInteger|)))) - (|Monoid|)) - T '|Monoid&| - (|put| '|Monoid&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |recip| - ((|Union| |#1| "failed") |#1|)) - (SIGNATURE ** - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE |one?| ((|Boolean|) |#1|)) - (SIGNATURE |sample| (|#1|)) - (SIGNATURE ** - (|#1| |#1| (|PositiveInteger|)))) - (|Monoid|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/MONOID.lsp b/src/algebra/strap/MONOID.lsp index 43b52fd0..538e9b0e 100644 --- a/src/algebra/strap/MONOID.lsp +++ b/src/algebra/strap/MONOID.lsp @@ -18,14 +18,9 @@ '((|NonNegativeInteger|) (|Boolean|)) NIL)) |Monoid|) - (SETELT #0# 0 '(|Monoid|)))))) + (|setShellEntry| #0# 0 '(|Monoid|)))))) (DEFUN |Monoid| () (LET () (COND (|Monoid;AL|) (T (SETQ |Monoid;AL| (|Monoid;|)))))) -(SETQ |$CategoryFrame| - (|put| '|Monoid| '|isCategory| T - (|addModemap| '|Monoid| '(|Monoid|) '((|Category|)) T - '|Monoid| |$CategoryFrame|))) - (MAKEPROP '|Monoid| 'NILADIC T) diff --git a/src/algebra/strap/MTSCAT.lsp b/src/algebra/strap/MTSCAT.lsp index ecc72ee2..443b2d5f 100644 --- a/src/algebra/strap/MTSCAT.lsp +++ b/src/algebra/strap/MTSCAT.lsp @@ -84,9 +84,9 @@ (|List| (|NonNegativeInteger|))) NIL)) . #2=(|MultivariateTaylorSeriesCategory|)))))) . #2#) - (SETELT #0# 0 - (LIST '|MultivariateTaylorSeriesCategory| - (|devaluate| |t#1|) (|devaluate| |t#2|))))))) + (|setShellEntry| #0# 0 + (LIST '|MultivariateTaylorSeriesCategory| + (|devaluate| |t#1|) (|devaluate| |t#2|))))))) (DEFUN |MultivariateTaylorSeriesCategory| (&REST #0=#:G1402 &AUX #1=#:G1400) @@ -105,10 +105,3 @@ #1#))) |MultivariateTaylorSeriesCategory;AL|)) #2#)))) - -(SETQ |$CategoryFrame| - (|put| '|MultivariateTaylorSeriesCategory| '|isCategory| T - (|addModemap| '|MultivariateTaylorSeriesCategory| - '(|MultivariateTaylorSeriesCategory| |#1| |#2|) - '((|Category|) (|Ring|) (|OrderedSet|)) T - '|MultivariateTaylorSeriesCategory| |$CategoryFrame|))) diff --git a/src/algebra/strap/NNI.lsp b/src/algebra/strap/NNI.lsp index 2d3fe6a9..329200c6 100644 --- a/src/algebra/strap/NNI.lsp +++ b/src/algebra/strap/NNI.lsp @@ -120,78 +120,4 @@ 0 0 0 0 1 2 0 0 12 0 1 2 0 0 11 0 1))))) '|lookupComplete|)) -(SETQ |$CategoryFrame| - (|put| '|NonNegativeInteger| '|isFunctor| - '(((|random| ($ $)) T (ELT $ NIL)) - ((|shift| ($ $ (|Integer|))) T (ELT $ 7)) - ((|exquo| ((|Union| $ "failed") $ $)) T (ELT $ NIL)) - ((|divide| - ((|Record| (|:| |quotient| $) (|:| |remainder| $)) - $ $)) - T (ELT $ NIL)) - ((|gcd| ($ $ $)) T (ELT $ NIL)) - ((|rem| ($ $ $)) T (ELT $ NIL)) - ((|quo| ($ $ $)) T (ELT $ NIL)) - ((* ($ $ $)) T (ELT $ NIL)) - ((** ($ $ (|PositiveInteger|))) T (ELT $ NIL)) - ((|One| ($)) T (CONST $ NIL)) - ((|one?| ((|Boolean|) $)) T (ELT $ NIL)) - ((** ($ $ (|NonNegativeInteger|))) T (ELT $ NIL)) - ((|recip| ((|Union| $ "failed") $)) T (ELT $ NIL)) - ((|sup| ($ $ $)) T (ELT $ 6)) - ((|subtractIfCan| ((|Union| $ "failed") $ $)) T - (ELT $ 9)) - ((|Zero| ($)) T (CONST $ NIL)) - ((|sample| ($)) T (CONST $ NIL)) - ((|zero?| ((|Boolean|) $)) T (ELT $ NIL)) - ((* ($ (|NonNegativeInteger|) $)) T (ELT $ NIL)) - ((+ ($ $ $)) T (ELT $ NIL)) - ((* ($ (|PositiveInteger|) $)) T (ELT $ NIL)) - ((|min| ($ $ $)) T (ELT $ NIL)) - ((|max| ($ $ $)) T (ELT $ NIL)) - ((<= ((|Boolean|) $ $)) T (ELT $ NIL)) - ((>= ((|Boolean|) $ $)) T (ELT $ NIL)) - ((> ((|Boolean|) $ $)) T (ELT $ NIL)) - ((< ((|Boolean|) $ $)) T (ELT $ NIL)) - ((|latex| ((|String|) $)) T (ELT $ NIL)) - ((|hash| ((|SingleInteger|) $)) T (ELT $ NIL)) - ((|coerce| ((|OutputForm|) $)) T (ELT $ NIL)) - ((= ((|Boolean|) $ $)) T (ELT $ NIL)) - ((~= ((|Boolean|) $ $)) T (ELT $ NIL))) - (|addModemap| '|NonNegativeInteger| - '(|NonNegativeInteger|) - '((|Join| (|OrderedAbelianMonoidSup|) (|Monoid|) - (CATEGORY |domain| (SIGNATURE |quo| ($ $ $)) - (SIGNATURE |rem| ($ $ $)) - (SIGNATURE |gcd| ($ $ $)) - (SIGNATURE |divide| - ((|Record| (|:| |quotient| $) - (|:| |remainder| $)) - $ $)) - (SIGNATURE |exquo| - ((|Union| $ "failed") $ $)) - (SIGNATURE |shift| ($ $ (|Integer|))) - (SIGNATURE |random| ($ $)) - (ATTRIBUTE (|commutative| "*"))))) - T '|NonNegativeInteger| - (|put| '|NonNegativeInteger| '|mode| - '(|Mapping| - (|Join| (|OrderedAbelianMonoidSup|) - (|Monoid|) - (CATEGORY |domain| - (SIGNATURE |quo| ($ $ $)) - (SIGNATURE |rem| ($ $ $)) - (SIGNATURE |gcd| ($ $ $)) - (SIGNATURE |divide| - ((|Record| (|:| |quotient| $) - (|:| |remainder| $)) - $ $)) - (SIGNATURE |exquo| - ((|Union| $ "failed") $ $)) - (SIGNATURE |shift| - ($ $ (|Integer|))) - (SIGNATURE |random| ($ $)) - (ATTRIBUTE (|commutative| "*"))))) - |$CategoryFrame|)))) - (MAKEPROP '|NonNegativeInteger| 'NILADIC T) diff --git a/src/algebra/strap/OINTDOM.lsp b/src/algebra/strap/OINTDOM.lsp index c68598c8..e03dfea0 100644 --- a/src/algebra/strap/OINTDOM.lsp +++ b/src/algebra/strap/OINTDOM.lsp @@ -8,7 +8,7 @@ (RETURN (PROG1 (LETT #0# (|Join| (|IntegralDomain|) (|OrderedRing|)) |OrderedIntegralDomain|) - (SETELT #0# 0 '(|OrderedIntegralDomain|)))))) + (|setShellEntry| #0# 0 '(|OrderedIntegralDomain|)))))) (DEFUN |OrderedIntegralDomain| () (LET () @@ -16,10 +16,4 @@ (|OrderedIntegralDomain;AL|) (T (SETQ |OrderedIntegralDomain;AL| (|OrderedIntegralDomain;|)))))) -(SETQ |$CategoryFrame| - (|put| '|OrderedIntegralDomain| '|isCategory| T - (|addModemap| '|OrderedIntegralDomain| - '(|OrderedIntegralDomain|) '((|Category|)) T - '|OrderedIntegralDomain| |$CategoryFrame|))) - (MAKEPROP '|OrderedIntegralDomain| 'NILADIC T) diff --git a/src/algebra/strap/ORDRING-.lsp b/src/algebra/strap/ORDRING-.lsp index 9b433619..c5eb9558 100644 --- a/src/algebra/strap/ORDRING-.lsp +++ b/src/algebra/strap/ORDRING-.lsp @@ -64,28 +64,3 @@ 0 16 0 17 1 0 8 0 10 1 0 8 0 11 1 0 0 0 19))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|OrderedRing&| '|isFunctor| - '(((|abs| ($ $)) T (ELT $ 19)) - ((|sign| ((|Integer|) $)) T (ELT $ 17)) - ((|negative?| ((|Boolean|) $)) T (ELT $ 11)) - ((|positive?| ((|Boolean|) $)) T (ELT $ 10))) - (|addModemap| '|OrderedRing&| '(|OrderedRing&| |#1|) - '((CATEGORY |domain| (SIGNATURE |abs| (|#1| |#1|)) - (SIGNATURE |sign| ((|Integer|) |#1|)) - (SIGNATURE |negative?| ((|Boolean|) |#1|)) - (SIGNATURE |positive?| ((|Boolean|) |#1|))) - (|OrderedRing|)) - T '|OrderedRing&| - (|put| '|OrderedRing&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |abs| (|#1| |#1|)) - (SIGNATURE |sign| ((|Integer|) |#1|)) - (SIGNATURE |negative?| - ((|Boolean|) |#1|)) - (SIGNATURE |positive?| - ((|Boolean|) |#1|))) - (|OrderedRing|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/ORDRING.lsp b/src/algebra/strap/ORDRING.lsp index a15e19b1..a4ded68e 100644 --- a/src/algebra/strap/ORDRING.lsp +++ b/src/algebra/strap/ORDRING.lsp @@ -15,7 +15,7 @@ ((|abs| ($ $)) T)) NIL '((|Integer|) (|Boolean|)) NIL)) |OrderedRing|) - (SETELT #0# 0 '(|OrderedRing|)))))) + (|setShellEntry| #0# 0 '(|OrderedRing|)))))) (DEFUN |OrderedRing| () (LET () @@ -23,9 +23,4 @@ (|OrderedRing;AL|) (T (SETQ |OrderedRing;AL| (|OrderedRing;|)))))) -(SETQ |$CategoryFrame| - (|put| '|OrderedRing| '|isCategory| T - (|addModemap| '|OrderedRing| '(|OrderedRing|) - '((|Category|)) T '|OrderedRing| |$CategoryFrame|))) - (MAKEPROP '|OrderedRing| 'NILADIC T) diff --git a/src/algebra/strap/OUTFORM.lsp b/src/algebra/strap/OUTFORM.lsp index dead66e8..97591c7a 100644 --- a/src/algebra/strap/OUTFORM.lsp +++ b/src/algebra/strap/OUTFORM.lsp @@ -969,365 +969,4 @@ 0 0 0 0 85))))) '|lookupComplete|)) -(SETQ |$CategoryFrame| - (|put| '|OutputForm| '|isFunctor| - '(((SEGMENT ($ $)) T (ELT $ 96)) - ((SEGMENT ($ $ $)) T (ELT $ 95)) - ((|not| ($ $)) T (ELT $ 94)) - ((|or| ($ $ $)) T (ELT $ 93)) - ((|and| ($ $ $)) T (ELT $ 92)) - ((|exquo| ($ $ $)) T (ELT $ 91)) - ((|quo| ($ $ $)) T (ELT $ 90)) - ((|rem| ($ $ $)) T (ELT $ 89)) - ((|div| ($ $ $)) T (ELT $ 88)) - ((** ($ $ $)) T (ELT $ 87)) ((/ ($ $ $)) T (ELT $ 86)) - ((* ($ $ $)) T (ELT $ 85)) ((- ($ $)) T (ELT $ 84)) - ((- ($ $ $)) T (ELT $ 83)) ((+ ($ $ $)) T (ELT $ 82)) - ((>= ($ $ $)) T (ELT $ 81)) ((<= ($ $ $)) T (ELT $ 80)) - ((> ($ $ $)) T (ELT $ 79)) ((< ($ $ $)) T (ELT $ 78)) - ((~= ($ $ $)) T (ELT $ 77)) ((= ($ $ $)) T (ELT $ 17)) - ((|blankSeparate| ($ (|List| $))) T (ELT $ 57)) - ((|semicolonSeparate| ($ (|List| $))) T (ELT $ 53)) - ((|commaSeparate| ($ (|List| $))) T (ELT $ 52)) - ((|pile| ($ (|List| $))) T (ELT $ 51)) - ((|paren| ($ (|List| $))) T (ELT $ 63)) - ((|paren| ($ $)) T (ELT $ 62)) - ((|bracket| ($ (|List| $))) T (ELT $ 61)) - ((|bracket| ($ $)) T (ELT $ 60)) - ((|brace| ($ (|List| $))) T (ELT $ 59)) - ((|brace| ($ $)) T (ELT $ 58)) - ((|int| ($ $ $ $)) T (ELT $ 135)) - ((|int| ($ $ $)) T (ELT $ 134)) - ((|int| ($ $)) T (ELT $ 133)) - ((|prod| ($ $ $ $)) T (ELT $ 132)) - ((|prod| ($ $ $)) T (ELT $ 131)) - ((|prod| ($ $)) T (ELT $ 130)) - ((|sum| ($ $ $ $)) T (ELT $ 129)) - ((|sum| ($ $ $)) T (ELT $ 128)) - ((|sum| ($ $)) T (ELT $ 127)) - ((|overlabel| ($ $ $)) T (ELT $ 112)) - ((|overbar| ($ $)) T (ELT $ 106)) - ((|prime| ($ $ (|NonNegativeInteger|))) T (ELT $ 111)) - ((|prime| ($ $)) T (ELT $ 108)) - ((|dot| ($ $ (|NonNegativeInteger|))) T (ELT $ 110)) - ((|dot| ($ $)) T (ELT $ 107)) - ((|quote| ($ $)) T (ELT $ 105)) - ((|supersub| ($ $ (|List| $))) T (ELT $ 74)) - ((|scripts| ($ $ (|List| $))) T (ELT $ 71)) - ((|presuper| ($ $ $)) T (ELT $ 67)) - ((|presub| ($ $ $)) T (ELT $ 66)) - ((|super| ($ $ $)) T (ELT $ 65)) - ((|sub| ($ $ $)) T (ELT $ 64)) - ((|binomial| ($ $ $)) T (ELT $ 97)) - ((|differentiate| ($ $ (|NonNegativeInteger|))) T - (ELT $ 126)) - ((|rarrow| ($ $ $)) T (ELT $ 121)) - ((|assign| ($ $ $)) T (ELT $ 119)) - ((|slash| ($ $ $)) T (ELT $ 118)) - ((|over| ($ $ $)) T (ELT $ 117)) - ((|root| ($ $ $)) T (ELT $ 116)) - ((|root| ($ $)) T (ELT $ 115)) - ((|zag| ($ $ $)) T (ELT $ 114)) - ((|matrix| ($ (|List| (|List| $)))) T (ELT $ 50)) - ((|box| ($ $)) T (ELT $ 113)) - ((|label| ($ $ $)) T (ELT $ 120)) - ((|string| ($ $)) T (ELT $ 104)) - ((|elt| ($ $ (|List| $))) T (ELT $ 99)) - ((|infix?| ((|Boolean|) $)) T (ELT $ 98)) - ((|postfix| ($ $ $)) T (ELT $ 103)) - ((|infix| ($ $ $ $)) T (ELT $ 102)) - ((|infix| ($ $ (|List| $))) T (ELT $ 101)) - ((|prefix| ($ $ (|List| $))) T (ELT $ 100)) - ((|vconcat| ($ (|List| $))) T (ELT $ 76)) - ((|hconcat| ($ (|List| $))) T (ELT $ 75)) - ((|vconcat| ($ $ $)) T (ELT $ 46)) - ((|hconcat| ($ $ $)) T (ELT $ 38)) - ((|center| ($ $)) T (ELT $ 42)) - ((|right| ($ $)) T (ELT $ 44)) - ((|left| ($ $)) T (ELT $ 43)) - ((|center| ($ $ (|Integer|))) T (ELT $ 39)) - ((|right| ($ $ (|Integer|))) T (ELT $ 41)) - ((|left| ($ $ (|Integer|))) T (ELT $ 40)) - ((|rspace| ($ (|Integer|) (|Integer|))) T (ELT $ 47)) - ((|vspace| ($ (|Integer|))) T (ELT $ 45)) - ((|hspace| ($ (|Integer|))) T (ELT $ 37)) - ((|superHeight| ((|Integer|) $)) T (ELT $ 34)) - ((|subHeight| ((|Integer|) $)) T (ELT $ 33)) - ((|height| ((|Integer|))) T (ELT $ 35)) - ((|width| ((|Integer|))) T (ELT $ 36)) - ((|height| ((|Integer|) $)) T (ELT $ 32)) - ((|width| ((|Integer|) $)) T (ELT $ 31)) - ((|doubleFloatFormat| ((|String|) (|String|))) T - (ELT $ 8)) - ((|empty| ($)) T (ELT $ 13)) - ((|outputForm| ($ (|DoubleFloat|))) T (ELT $ 25)) - ((|outputForm| ($ (|String|))) T (ELT $ 30)) - ((|outputForm| ($ (|Symbol|))) T (ELT $ 23)) - ((|outputForm| ($ (|Integer|))) T (ELT $ 21)) - ((|messagePrint| ((|Void|) (|String|))) T (ELT $ 15)) - ((|message| ($ (|String|))) T (ELT $ 14)) - ((|print| ((|Void|) $)) T (ELT $ 10)) - ((|latex| ((|String|) $)) T (ELT $ NIL)) - ((|hash| ((|SingleInteger|) $)) T (ELT $ NIL)) - ((|coerce| ((|OutputForm|) $)) T (ELT $ 19)) - ((= ((|Boolean|) $ $)) T (ELT $ 16)) - ((~= ((|Boolean|) $ $)) T (ELT $ NIL))) - (|addModemap| '|OutputForm| '(|OutputForm|) - '((|Join| (|SetCategory|) - (CATEGORY |domain| - (SIGNATURE |print| ((|Void|) $)) - (SIGNATURE |message| ($ (|String|))) - (SIGNATURE |messagePrint| - ((|Void|) (|String|))) - (SIGNATURE |outputForm| ($ (|Integer|))) - (SIGNATURE |outputForm| ($ (|Symbol|))) - (SIGNATURE |outputForm| ($ (|String|))) - (SIGNATURE |outputForm| - ($ (|DoubleFloat|))) - (SIGNATURE |empty| ($)) - (SIGNATURE |doubleFloatFormat| - ((|String|) (|String|))) - (SIGNATURE |width| ((|Integer|) $)) - (SIGNATURE |height| ((|Integer|) $)) - (SIGNATURE |width| ((|Integer|))) - (SIGNATURE |height| ((|Integer|))) - (SIGNATURE |subHeight| ((|Integer|) $)) - (SIGNATURE |superHeight| - ((|Integer|) $)) - (SIGNATURE |hspace| ($ (|Integer|))) - (SIGNATURE |vspace| ($ (|Integer|))) - (SIGNATURE |rspace| - ($ (|Integer|) (|Integer|))) - (SIGNATURE |left| ($ $ (|Integer|))) - (SIGNATURE |right| ($ $ (|Integer|))) - (SIGNATURE |center| ($ $ (|Integer|))) - (SIGNATURE |left| ($ $)) - (SIGNATURE |right| ($ $)) - (SIGNATURE |center| ($ $)) - (SIGNATURE |hconcat| ($ $ $)) - (SIGNATURE |vconcat| ($ $ $)) - (SIGNATURE |hconcat| ($ (|List| $))) - (SIGNATURE |vconcat| ($ (|List| $))) - (SIGNATURE |prefix| ($ $ (|List| $))) - (SIGNATURE |infix| ($ $ (|List| $))) - (SIGNATURE |infix| ($ $ $ $)) - (SIGNATURE |postfix| ($ $ $)) - (SIGNATURE |infix?| ((|Boolean|) $)) - (SIGNATURE |elt| ($ $ (|List| $))) - (SIGNATURE |string| ($ $)) - (SIGNATURE |label| ($ $ $)) - (SIGNATURE |box| ($ $)) - (SIGNATURE |matrix| - ($ (|List| (|List| $)))) - (SIGNATURE |zag| ($ $ $)) - (SIGNATURE |root| ($ $)) - (SIGNATURE |root| ($ $ $)) - (SIGNATURE |over| ($ $ $)) - (SIGNATURE |slash| ($ $ $)) - (SIGNATURE |assign| ($ $ $)) - (SIGNATURE |rarrow| ($ $ $)) - (SIGNATURE |differentiate| - ($ $ (|NonNegativeInteger|))) - (SIGNATURE |binomial| ($ $ $)) - (SIGNATURE |sub| ($ $ $)) - (SIGNATURE |super| ($ $ $)) - (SIGNATURE |presub| ($ $ $)) - (SIGNATURE |presuper| ($ $ $)) - (SIGNATURE |scripts| ($ $ (|List| $))) - (SIGNATURE |supersub| ($ $ (|List| $))) - (SIGNATURE |quote| ($ $)) - (SIGNATURE |dot| ($ $)) - (SIGNATURE |dot| - ($ $ (|NonNegativeInteger|))) - (SIGNATURE |prime| ($ $)) - (SIGNATURE |prime| - ($ $ (|NonNegativeInteger|))) - (SIGNATURE |overbar| ($ $)) - (SIGNATURE |overlabel| ($ $ $)) - (SIGNATURE |sum| ($ $)) - (SIGNATURE |sum| ($ $ $)) - (SIGNATURE |sum| ($ $ $ $)) - (SIGNATURE |prod| ($ $)) - (SIGNATURE |prod| ($ $ $)) - (SIGNATURE |prod| ($ $ $ $)) - (SIGNATURE |int| ($ $)) - (SIGNATURE |int| ($ $ $)) - (SIGNATURE |int| ($ $ $ $)) - (SIGNATURE |brace| ($ $)) - (SIGNATURE |brace| ($ (|List| $))) - (SIGNATURE |bracket| ($ $)) - (SIGNATURE |bracket| ($ (|List| $))) - (SIGNATURE |paren| ($ $)) - (SIGNATURE |paren| ($ (|List| $))) - (SIGNATURE |pile| ($ (|List| $))) - (SIGNATURE |commaSeparate| - ($ (|List| $))) - (SIGNATURE |semicolonSeparate| - ($ (|List| $))) - (SIGNATURE |blankSeparate| - ($ (|List| $))) - (SIGNATURE = ($ $ $)) - (SIGNATURE ~= ($ $ $)) - (SIGNATURE < ($ $ $)) - (SIGNATURE > ($ $ $)) - (SIGNATURE <= ($ $ $)) - (SIGNATURE >= ($ $ $)) - (SIGNATURE + ($ $ $)) - (SIGNATURE - ($ $ $)) - (SIGNATURE - ($ $)) - (SIGNATURE * ($ $ $)) - (SIGNATURE / ($ $ $)) - (SIGNATURE ** ($ $ $)) - (SIGNATURE |div| ($ $ $)) - (SIGNATURE |rem| ($ $ $)) - (SIGNATURE |quo| ($ $ $)) - (SIGNATURE |exquo| ($ $ $)) - (SIGNATURE |and| ($ $ $)) - (SIGNATURE |or| ($ $ $)) - (SIGNATURE |not| ($ $)) - (SIGNATURE SEGMENT ($ $ $)) - (SIGNATURE SEGMENT ($ $))))) - T '|OutputForm| - (|put| '|OutputForm| '|mode| - '(|Mapping| - (|Join| (|SetCategory|) - (CATEGORY |domain| - (SIGNATURE |print| ((|Void|) $)) - (SIGNATURE |message| - ($ (|String|))) - (SIGNATURE |messagePrint| - ((|Void|) (|String|))) - (SIGNATURE |outputForm| - ($ (|Integer|))) - (SIGNATURE |outputForm| - ($ (|Symbol|))) - (SIGNATURE |outputForm| - ($ (|String|))) - (SIGNATURE |outputForm| - ($ (|DoubleFloat|))) - (SIGNATURE |empty| ($)) - (SIGNATURE |doubleFloatFormat| - ((|String|) (|String|))) - (SIGNATURE |width| - ((|Integer|) $)) - (SIGNATURE |height| - ((|Integer|) $)) - (SIGNATURE |width| ((|Integer|))) - (SIGNATURE |height| - ((|Integer|))) - (SIGNATURE |subHeight| - ((|Integer|) $)) - (SIGNATURE |superHeight| - ((|Integer|) $)) - (SIGNATURE |hspace| - ($ (|Integer|))) - (SIGNATURE |vspace| - ($ (|Integer|))) - (SIGNATURE |rspace| - ($ (|Integer|) (|Integer|))) - (SIGNATURE |left| - ($ $ (|Integer|))) - (SIGNATURE |right| - ($ $ (|Integer|))) - (SIGNATURE |center| - ($ $ (|Integer|))) - (SIGNATURE |left| ($ $)) - (SIGNATURE |right| ($ $)) - (SIGNATURE |center| ($ $)) - (SIGNATURE |hconcat| ($ $ $)) - (SIGNATURE |vconcat| ($ $ $)) - (SIGNATURE |hconcat| - ($ (|List| $))) - (SIGNATURE |vconcat| - ($ (|List| $))) - (SIGNATURE |prefix| - ($ $ (|List| $))) - (SIGNATURE |infix| - ($ $ (|List| $))) - (SIGNATURE |infix| ($ $ $ $)) - (SIGNATURE |postfix| ($ $ $)) - (SIGNATURE |infix?| - ((|Boolean|) $)) - (SIGNATURE |elt| - ($ $ (|List| $))) - (SIGNATURE |string| ($ $)) - (SIGNATURE |label| ($ $ $)) - (SIGNATURE |box| ($ $)) - (SIGNATURE |matrix| - ($ (|List| (|List| $)))) - (SIGNATURE |zag| ($ $ $)) - (SIGNATURE |root| ($ $)) - (SIGNATURE |root| ($ $ $)) - (SIGNATURE |over| ($ $ $)) - (SIGNATURE |slash| ($ $ $)) - (SIGNATURE |assign| ($ $ $)) - (SIGNATURE |rarrow| ($ $ $)) - (SIGNATURE |differentiate| - ($ $ (|NonNegativeInteger|))) - (SIGNATURE |binomial| ($ $ $)) - (SIGNATURE |sub| ($ $ $)) - (SIGNATURE |super| ($ $ $)) - (SIGNATURE |presub| ($ $ $)) - (SIGNATURE |presuper| ($ $ $)) - (SIGNATURE |scripts| - ($ $ (|List| $))) - (SIGNATURE |supersub| - ($ $ (|List| $))) - (SIGNATURE |quote| ($ $)) - (SIGNATURE |dot| ($ $)) - (SIGNATURE |dot| - ($ $ (|NonNegativeInteger|))) - (SIGNATURE |prime| ($ $)) - (SIGNATURE |prime| - ($ $ (|NonNegativeInteger|))) - (SIGNATURE |overbar| ($ $)) - (SIGNATURE |overlabel| ($ $ $)) - (SIGNATURE |sum| ($ $)) - (SIGNATURE |sum| ($ $ $)) - (SIGNATURE |sum| ($ $ $ $)) - (SIGNATURE |prod| ($ $)) - (SIGNATURE |prod| ($ $ $)) - (SIGNATURE |prod| ($ $ $ $)) - (SIGNATURE |int| ($ $)) - (SIGNATURE |int| ($ $ $)) - (SIGNATURE |int| ($ $ $ $)) - (SIGNATURE |brace| ($ $)) - (SIGNATURE |brace| - ($ (|List| $))) - (SIGNATURE |bracket| ($ $)) - (SIGNATURE |bracket| - ($ (|List| $))) - (SIGNATURE |paren| ($ $)) - (SIGNATURE |paren| - ($ (|List| $))) - (SIGNATURE |pile| ($ (|List| $))) - (SIGNATURE |commaSeparate| - ($ (|List| $))) - (SIGNATURE |semicolonSeparate| - ($ (|List| $))) - (SIGNATURE |blankSeparate| - ($ (|List| $))) - (SIGNATURE = ($ $ $)) - (SIGNATURE ~= ($ $ $)) - (SIGNATURE < ($ $ $)) - (SIGNATURE > ($ $ $)) - (SIGNATURE <= ($ $ $)) - (SIGNATURE >= ($ $ $)) - (SIGNATURE + ($ $ $)) - (SIGNATURE - ($ $ $)) - (SIGNATURE - ($ $)) - (SIGNATURE * ($ $ $)) - (SIGNATURE / ($ $ $)) - (SIGNATURE ** ($ $ $)) - (SIGNATURE |div| ($ $ $)) - (SIGNATURE |rem| ($ $ $)) - (SIGNATURE |quo| ($ $ $)) - (SIGNATURE |exquo| ($ $ $)) - (SIGNATURE |and| ($ $ $)) - (SIGNATURE |or| ($ $ $)) - (SIGNATURE |not| ($ $)) - (SIGNATURE SEGMENT ($ $ $)) - (SIGNATURE SEGMENT ($ $))))) - |$CategoryFrame|)))) - (MAKEPROP '|OutputForm| 'NILADIC T) diff --git a/src/algebra/strap/PI.lsp b/src/algebra/strap/PI.lsp index 3503efb1..2cf0e75e 100644 --- a/src/algebra/strap/PI.lsp +++ b/src/algebra/strap/PI.lsp @@ -72,41 +72,4 @@ 0 0 6 0 1))))) '|lookupComplete|)) -(SETQ |$CategoryFrame| - (|put| '|PositiveInteger| '|isFunctor| - '(((|gcd| ($ $ $)) T (ELT $ NIL)) - ((* ($ $ $)) T (ELT $ NIL)) - ((** ($ $ (|PositiveInteger|))) T (ELT $ NIL)) - ((|One| ($)) T (CONST $ NIL)) - ((|sample| ($)) T (CONST $ NIL)) - ((|one?| ((|Boolean|) $)) T (ELT $ NIL)) - ((** ($ $ (|NonNegativeInteger|))) T (ELT $ NIL)) - ((|recip| ((|Union| $ "failed") $)) T (ELT $ NIL)) - ((+ ($ $ $)) T (ELT $ NIL)) - ((* ($ (|PositiveInteger|) $)) T (ELT $ NIL)) - ((|min| ($ $ $)) T (ELT $ NIL)) - ((|max| ($ $ $)) T (ELT $ NIL)) - ((<= ((|Boolean|) $ $)) T (ELT $ NIL)) - ((>= ((|Boolean|) $ $)) T (ELT $ NIL)) - ((> ((|Boolean|) $ $)) T (ELT $ NIL)) - ((< ((|Boolean|) $ $)) T (ELT $ NIL)) - ((|latex| ((|String|) $)) T (ELT $ NIL)) - ((|hash| ((|SingleInteger|) $)) T (ELT $ NIL)) - ((|coerce| ((|OutputForm|) $)) T (ELT $ NIL)) - ((= ((|Boolean|) $ $)) T (ELT $ NIL)) - ((~= ((|Boolean|) $ $)) T (ELT $ NIL))) - (|addModemap| '|PositiveInteger| '(|PositiveInteger|) - '((|Join| (|OrderedAbelianSemiGroup|) (|Monoid|) - (CATEGORY |domain| (SIGNATURE |gcd| ($ $ $)) - (ATTRIBUTE (|commutative| "*"))))) - T '|PositiveInteger| - (|put| '|PositiveInteger| '|mode| - '(|Mapping| - (|Join| (|OrderedAbelianSemiGroup|) - (|Monoid|) - (CATEGORY |domain| - (SIGNATURE |gcd| ($ $ $)) - (ATTRIBUTE (|commutative| "*"))))) - |$CategoryFrame|)))) - (MAKEPROP '|PositiveInteger| 'NILADIC T) diff --git a/src/algebra/strap/POLYCAT-.lsp b/src/algebra/strap/POLYCAT-.lsp index c33191ee..f081f580 100644 --- a/src/algebra/strap/POLYCAT-.lsp +++ b/src/algebra/strap/POLYCAT-.lsp @@ -142,8 +142,8 @@ |POLYCAT-;convert;SIf;43|)) (DEFUN |POLYCAT-;eval;SLS;1| (|p| |l| $) - (PROG (#0=#:G1686 #1=#:G1426 #2=#:G1687 #3=#:G1688 |lvar| #4=#:G1689 - |e| #5=#:G1690) + (PROG (#0=#:G1688 #1=#:G1426 #2=#:G1689 #3=#:G1690 |lvar| #4=#:G1691 + |e| #5=#:G1692) (RETURN (SEQ (COND ((NULL |l|) |p|) @@ -261,7 +261,7 @@ ('T (CONS 0 |l|)))))) (DEFUN |POLYCAT-;isTimes;SU;4| (|p| $) - (PROG (|lv| #0=#:G1691 |v| #1=#:G1692 |l| |r|) + (PROG (|lv| #0=#:G1693 |v| #1=#:G1694 |l| |r|) (RETURN (SEQ (COND ((OR (NULL (LETT |lv| @@ -402,7 +402,7 @@ (|getShellEntry| $ 62))) (DEFUN |POLYCAT-;primitiveMonomials;SL;12| (|p| $) - (PROG (#0=#:G1693 |q| #1=#:G1694) + (PROG (#0=#:G1695 |q| #1=#:G1696) (RETURN (SEQ (PROGN (LETT #0# NIL |POLYCAT-;primitiveMonomials;SL;12|) @@ -522,7 +522,7 @@ (|getShellEntry| $ 77))) (DEFUN |POLYCAT-;allMonoms| (|l| $) - (PROG (#0=#:G1695 |p| #1=#:G1696) + (PROG (#0=#:G1697 |p| #1=#:G1698) (RETURN (SEQ (SPADCALL (SPADCALL @@ -549,7 +549,7 @@ (|getShellEntry| $ 82)))))) (DEFUN |POLYCAT-;P2R| (|p| |b| |n| $) - (PROG (|w| |bj| #0=#:G1698 |i| #1=#:G1697) + (PROG (|w| |bj| #0=#:G1700 |i| #1=#:G1699) (RETURN (SEQ (LETT |w| (SPADCALL |n| (|spadConstant| $ 23) @@ -578,7 +578,7 @@ (EXIT |w|))))) (DEFUN |POLYCAT-;eq2R| (|l| |b| $) - (PROG (#0=#:G1699 |bj| #1=#:G1700 #2=#:G1701 |p| #3=#:G1702) + (PROG (#0=#:G1701 |bj| #1=#:G1702 #2=#:G1703 |p| #3=#:G1704) (RETURN (SEQ (SPADCALL (PROGN @@ -628,7 +628,7 @@ (|getShellEntry| $ 92)))))) (DEFUN |POLYCAT-;reducedSystem;MM;20| (|m| $) - (PROG (#0=#:G1703 |r| #1=#:G1704 |b| #2=#:G1705 |bj| #3=#:G1706 |d| + (PROG (#0=#:G1705 |r| #1=#:G1706 |b| #2=#:G1707 |bj| #3=#:G1708 |d| |mm| |l|) (RETURN (SEQ (LETT |l| (SPADCALL |m| (|getShellEntry| $ 95)) @@ -705,7 +705,7 @@ (EXIT |mm|))))) (DEFUN |POLYCAT-;reducedSystem;MVR;21| (|m| |v| $) - (PROG (#0=#:G1707 |s| #1=#:G1708 |b| #2=#:G1709 |bj| #3=#:G1710 |d| + (PROG (#0=#:G1709 |s| #1=#:G1710 |b| #2=#:G1711 |bj| #3=#:G1712 |d| |n| |mm| |w| |l| |r|) (RETURN (SEQ (LETT |l| (SPADCALL |m| (|getShellEntry| $ 95)) @@ -812,8 +812,8 @@ (SPADCALL |pp| (|getShellEntry| $ 121))) (DEFUN |POLYCAT-;factor;SF;26| (|p| $) - (PROG (|v| |ansR| #0=#:G1711 |w| #1=#:G1712 |up| |ansSUP| #2=#:G1713 - |ww| #3=#:G1714) + (PROG (|v| |ansR| #0=#:G1713 |w| #1=#:G1714 |up| |ansSUP| #2=#:G1715 + |ww| #3=#:G1716) (RETURN (SEQ (LETT |v| (SPADCALL |p| (|getShellEntry| $ 43)) |POLYCAT-;factor;SF;26|) @@ -912,13 +912,13 @@ (|getShellEntry| $ 134))))))))))) (DEFUN |POLYCAT-;conditionP;MU;27| (|mat| $) - (PROG (|ll| #0=#:G1715 |z| #1=#:G1716 |ch| |l| #2=#:G1717 #3=#:G1718 - #4=#:G1580 #5=#:G1578 #6=#:G1579 #7=#:G1719 |vars| |degs| - #8=#:G1720 |d| #9=#:G1721 |nd| #10=#:G1607 #11=#:G1587 - |deg1| |redmons| #12=#:G1722 |v| #13=#:G1724 |u| - #14=#:G1723 |llR| |monslist| |ans| #15=#:G1725 - #16=#:G1726 |mons| #17=#:G1727 |m| #18=#:G1728 |i| - #19=#:G1603 #20=#:G1601 #21=#:G1602) + (PROG (|ll| #0=#:G1717 |z| #1=#:G1718 |ch| |l| #2=#:G1719 #3=#:G1720 + #4=#:G1582 #5=#:G1580 #6=#:G1581 #7=#:G1721 |vars| |degs| + #8=#:G1722 |d| #9=#:G1723 |nd| #10=#:G1609 #11=#:G1589 + |deg1| |redmons| #12=#:G1724 |v| #13=#:G1726 |u| + #14=#:G1725 |llR| |monslist| |ans| #15=#:G1727 + #16=#:G1728 |mons| #17=#:G1729 |m| #18=#:G1730 |i| + #19=#:G1605 #20=#:G1603 #21=#:G1604) (RETURN (SEQ (EXIT (SEQ (LETT |ll| (SPADCALL @@ -1281,7 +1281,7 @@ $)))))))))) (DEFUN |POLYCAT-;charthRootlv| (|p| |vars| |ch| $) - (PROG (|v| |dd| |cp| |d| #0=#:G1628 |ans| |ansx| #1=#:G1635) + (PROG (|v| |dd| |cp| |d| #0=#:G1630 |ans| |ansx| #1=#:G1637) (RETURN (SEQ (EXIT (COND ((NULL |vars|) @@ -1410,7 +1410,7 @@ (SPADCALL |p| (|getShellEntry| $ 167))) (DEFUN |POLYCAT-;squareFreePart;2S;34| (|p| $) - (PROG (|s| |f| #0=#:G1729 #1=#:G1649 #2=#:G1647 #3=#:G1648) + (PROG (|s| |f| #0=#:G1731 #1=#:G1651 #2=#:G1649 #3=#:G1650) (RETURN (SEQ (SPADCALL (SPADCALL @@ -1456,7 +1456,7 @@ (|getShellEntry| $ 174))) (DEFUN |POLYCAT-;primitivePart;2S;36| (|p| $) - (PROG (#0=#:G1653) + (PROG (#0=#:G1655) (RETURN (QVELT (SPADCALL (PROG2 (LETT #0# @@ -1472,7 +1472,7 @@ 1)))) (DEFUN |POLYCAT-;primitivePart;SVarSetS;37| (|p| |v| $) - (PROG (#0=#:G1659) + (PROG (#0=#:G1661) (RETURN (QVELT (SPADCALL (PROG2 (LETT #0# @@ -1895,425 +1895,3 @@ 149 98 154 3 0 0 0 16 53 55 3 0 0 0 9 36 52 1 0 145 0 156 2 0 24 0 0 186))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|PolynomialCategory&| '|isFunctor| - '(((|gcdPolynomial| - ((|SparseUnivariatePolynomial| $) - (|SparseUnivariatePolynomial| $) - (|SparseUnivariatePolynomial| $))) - T (ELT $ 109)) - ((|squareFree| ((|Factored| $) $)) T (ELT $ 165)) - ((|squareFreePart| ($ $)) T (ELT $ 173)) - ((|charthRoot| ((|Union| $ "failed") $)) T (ELT $ 156)) - ((< ((|Boolean|) $ $)) T (ELT $ 186)) - ((|convert| ((|InputForm|) $)) T (ELT $ 221)) - ((|convert| ((|Pattern| (|Integer|)) $)) T (ELT $ 206)) - ((|convert| ((|Pattern| (|Float|)) $)) T (ELT $ 213)) - ((|patternMatch| - ((|PatternMatchResult| (|Integer|) $) $ - (|Pattern| (|Integer|)) - (|PatternMatchResult| (|Integer|) $))) - T (ELT $ 192)) - ((|patternMatch| - ((|PatternMatchResult| (|Float|) $) $ - (|Pattern| (|Float|)) - (|PatternMatchResult| (|Float|) $))) - T (ELT $ 199)) - ((|factor| ((|Factored| $) $)) T (ELT $ 140)) - ((|factorPolynomial| - ((|Factored| (|SparseUnivariatePolynomial| $)) - (|SparseUnivariatePolynomial| $))) - T (ELT $ 120)) - ((|factorSquareFreePolynomial| - ((|Factored| (|SparseUnivariatePolynomial| $)) - (|SparseUnivariatePolynomial| $))) - T (ELT $ 122)) - ((|solveLinearPolynomialEquation| - ((|Union| (|List| (|SparseUnivariatePolynomial| $)) - "failed") - (|List| (|SparseUnivariatePolynomial| $)) - (|SparseUnivariatePolynomial| $))) - T (ELT $ 116)) - ((|conditionP| - ((|Union| (|Vector| $) "failed") (|Matrix| $))) - T (ELT $ 154)) - ((|primitivePart| ($ $ |#4|)) T (ELT $ 183)) - ((|content| ($ $ |#4|)) T (ELT $ 175)) - ((|discriminant| ($ $ |#4|)) T (ELT $ 78)) - ((|resultant| ($ $ $ |#4|)) T (ELT $ 76)) - ((|primitiveMonomials| ((|List| $) $)) T (ELT $ 63)) - ((|totalDegree| - ((|NonNegativeInteger|) $ (|List| |#4|))) - T (ELT $ 74)) - ((|totalDegree| ((|NonNegativeInteger|) $)) T - (ELT $ 71)) - ((|isExpt| - ((|Union| (|Record| (|:| |var| |#4|) - (|:| |exponent| - (|NonNegativeInteger|))) - "failed") - $)) - T (ELT $ 47)) - ((|isTimes| ((|Union| (|List| $) "failed") $)) T - (ELT $ 42)) - ((|isPlus| ((|Union| (|List| $) "failed") $)) T - (ELT $ 31)) - ((|monomial| - ($ $ (|List| |#4|) (|List| (|NonNegativeInteger|)))) - T (ELT $ 57)) - ((|monomial| ($ $ |#4| (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|monicDivide| - ((|Record| (|:| |quotient| $) (|:| |remainder| $)) - $ $ |#4|)) - T (ELT $ 162)) - ((|monomials| ((|List| $) $)) T (ELT $ 28)) - ((|coefficient| - ($ $ (|List| |#4|) (|List| (|NonNegativeInteger|)))) - T (ELT $ 55)) - ((|coefficient| ($ $ |#4| (|NonNegativeInteger|))) T - (ELT $ 52)) - ((|reducedSystem| ((|Matrix| |#2|) (|Matrix| $))) T - (ELT $ 99)) - ((|reducedSystem| - ((|Record| (|:| |mat| (|Matrix| |#2|)) - (|:| |vec| (|Vector| |#2|))) - (|Matrix| $) (|Vector| $))) - T (ELT $ 106)) - ((|reducedSystem| - ((|Record| (|:| |mat| (|Matrix| (|Integer|))) - (|:| |vec| (|Vector| (|Integer|)))) - (|Matrix| $) (|Vector| $))) - T (ELT $ NIL)) - ((|reducedSystem| ((|Matrix| (|Integer|)) (|Matrix| $))) - T (ELT $ NIL)) - ((|retract| (|#4| $)) T (ELT $ 59)) - ((|retractIfCan| ((|Union| |#4| "failed") $)) T - (ELT $ 60)) - ((|eval| ($ $ (|List| |#4|) (|List| $))) T (ELT $ NIL)) - ((|eval| ($ $ |#4| $)) T (ELT $ NIL)) - ((|eval| ($ $ (|List| |#4|) (|List| |#2|))) T - (ELT $ NIL)) - ((|eval| ($ $ |#4| |#2|)) T (ELT $ NIL)) - ((|eval| ($ $ (|List| $) (|List| $))) T (ELT $ NIL)) - ((|eval| ($ $ $ $)) T (ELT $ NIL)) - ((|eval| ($ $ (|Equation| $))) T (ELT $ NIL)) - ((|eval| ($ $ (|List| (|Equation| $)))) T (ELT $ 21)) - ((|monomial| ($ |#2| |#3|)) T (ELT $ NIL)) - ((|coefficient| (|#2| $ |#3|)) T (ELT $ NIL)) - ((|retract| ((|Integer|) $)) T (ELT $ NIL)) - ((|retractIfCan| ((|Union| (|Integer|) "failed") $)) T - (ELT $ NIL)) - ((|retract| ((|Fraction| (|Integer|)) $)) T (ELT $ NIL)) - ((|retractIfCan| - ((|Union| (|Fraction| (|Integer|)) "failed") $)) - T (ELT $ NIL)) - ((|retractIfCan| ((|Union| |#2| "failed") $)) T - (ELT $ NIL)) - ((|retract| (|#2| $)) T (ELT $ NIL)) - ((|content| (|#2| $)) T (ELT $ NIL)) - ((|primitivePart| ($ $)) T (ELT $ 180))) - (|addModemap| '|PolynomialCategory&| - '(|PolynomialCategory&| |#1| |#2| |#3| |#4|) - '((CATEGORY |domain| - (SIGNATURE |gcdPolynomial| - ((|SparseUnivariatePolynomial| |#1|) - (|SparseUnivariatePolynomial| |#1|) - (|SparseUnivariatePolynomial| |#1|))) - (SIGNATURE |squareFree| - ((|Factored| |#1|) |#1|)) - (SIGNATURE |squareFreePart| (|#1| |#1|)) - (SIGNATURE |charthRoot| - ((|Union| |#1| "failed") |#1|)) - (SIGNATURE < ((|Boolean|) |#1| |#1|)) - (SIGNATURE |convert| ((|InputForm|) |#1|)) - (SIGNATURE |convert| - ((|Pattern| (|Integer|)) |#1|)) - (SIGNATURE |convert| - ((|Pattern| (|Float|)) |#1|)) - (SIGNATURE |patternMatch| - ((|PatternMatchResult| (|Integer|) |#1|) - |#1| (|Pattern| (|Integer|)) - (|PatternMatchResult| (|Integer|) |#1|))) - (SIGNATURE |patternMatch| - ((|PatternMatchResult| (|Float|) |#1|) |#1| - (|Pattern| (|Float|)) - (|PatternMatchResult| (|Float|) |#1|))) - (SIGNATURE |factor| ((|Factored| |#1|) |#1|)) - (SIGNATURE |factorPolynomial| - ((|Factored| - (|SparseUnivariatePolynomial| |#1|)) - (|SparseUnivariatePolynomial| |#1|))) - (SIGNATURE |factorSquareFreePolynomial| - ((|Factored| - (|SparseUnivariatePolynomial| |#1|)) - (|SparseUnivariatePolynomial| |#1|))) - (SIGNATURE |solveLinearPolynomialEquation| - ((|Union| (|List| - (|SparseUnivariatePolynomial| - |#1|)) - "failed") - (|List| (|SparseUnivariatePolynomial| |#1|)) - (|SparseUnivariatePolynomial| |#1|))) - (SIGNATURE |conditionP| - ((|Union| (|Vector| |#1|) "failed") - (|Matrix| |#1|))) - (SIGNATURE |primitivePart| (|#1| |#1| |#4|)) - (SIGNATURE |content| (|#1| |#1| |#4|)) - (SIGNATURE |discriminant| (|#1| |#1| |#4|)) - (SIGNATURE |resultant| (|#1| |#1| |#1| |#4|)) - (SIGNATURE |primitiveMonomials| - ((|List| |#1|) |#1|)) - (SIGNATURE |totalDegree| - ((|NonNegativeInteger|) |#1| (|List| |#4|))) - (SIGNATURE |totalDegree| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |isExpt| - ((|Union| (|Record| (|:| |var| |#4|) - (|:| |exponent| - (|NonNegativeInteger|))) - "failed") - |#1|)) - (SIGNATURE |isTimes| - ((|Union| (|List| |#1|) "failed") |#1|)) - (SIGNATURE |isPlus| - ((|Union| (|List| |#1|) "failed") |#1|)) - (SIGNATURE |monomial| - (|#1| |#1| (|List| |#4|) - (|List| (|NonNegativeInteger|)))) - (SIGNATURE |monomial| - (|#1| |#1| |#4| (|NonNegativeInteger|))) - (SIGNATURE |monicDivide| - ((|Record| (|:| |quotient| |#1|) - (|:| |remainder| |#1|)) - |#1| |#1| |#4|)) - (SIGNATURE |monomials| ((|List| |#1|) |#1|)) - (SIGNATURE |coefficient| - (|#1| |#1| (|List| |#4|) - (|List| (|NonNegativeInteger|)))) - (SIGNATURE |coefficient| - (|#1| |#1| |#4| (|NonNegativeInteger|))) - (SIGNATURE |reducedSystem| - ((|Matrix| |#2|) (|Matrix| |#1|))) - (SIGNATURE |reducedSystem| - ((|Record| (|:| |mat| (|Matrix| |#2|)) - (|:| |vec| (|Vector| |#2|))) - (|Matrix| |#1|) (|Vector| |#1|))) - (SIGNATURE |reducedSystem| - ((|Record| (|:| |mat| - (|Matrix| (|Integer|))) - (|:| |vec| - (|Vector| (|Integer|)))) - (|Matrix| |#1|) (|Vector| |#1|))) - (SIGNATURE |reducedSystem| - ((|Matrix| (|Integer|)) (|Matrix| |#1|))) - (SIGNATURE |retract| (|#4| |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| |#4| "failed") |#1|)) - (SIGNATURE |eval| - (|#1| |#1| (|List| |#4|) (|List| |#1|))) - (SIGNATURE |eval| (|#1| |#1| |#4| |#1|)) - (SIGNATURE |eval| - (|#1| |#1| (|List| |#4|) (|List| |#2|))) - (SIGNATURE |eval| (|#1| |#1| |#4| |#2|)) - (SIGNATURE |eval| - (|#1| |#1| (|List| |#1|) (|List| |#1|))) - (SIGNATURE |eval| (|#1| |#1| |#1| |#1|)) - (SIGNATURE |eval| (|#1| |#1| (|Equation| |#1|))) - (SIGNATURE |eval| - (|#1| |#1| (|List| (|Equation| |#1|)))) - (SIGNATURE |monomial| (|#1| |#2| |#3|)) - (SIGNATURE |coefficient| (|#2| |#1| |#3|)) - (SIGNATURE |retract| ((|Integer|) |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| (|Integer|) "failed") |#1|)) - (SIGNATURE |retract| - ((|Fraction| (|Integer|)) |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| (|Fraction| (|Integer|)) "failed") - |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| |#2| "failed") |#1|)) - (SIGNATURE |retract| (|#2| |#1|)) - (SIGNATURE |content| (|#2| |#1|)) - (SIGNATURE |primitivePart| (|#1| |#1|))) - (|PolynomialCategory| |#2| |#3| |#4|) (|Ring|) - (|OrderedAbelianMonoidSup|) (|OrderedSet|)) - T '|PolynomialCategory&| - (|put| '|PolynomialCategory&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |gcdPolynomial| - ((|SparseUnivariatePolynomial| - |#1|) - (|SparseUnivariatePolynomial| - |#1|) - (|SparseUnivariatePolynomial| - |#1|))) - (SIGNATURE |squareFree| - ((|Factored| |#1|) |#1|)) - (SIGNATURE |squareFreePart| - (|#1| |#1|)) - (SIGNATURE |charthRoot| - ((|Union| |#1| "failed") |#1|)) - (SIGNATURE < ((|Boolean|) |#1| |#1|)) - (SIGNATURE |convert| - ((|InputForm|) |#1|)) - (SIGNATURE |convert| - ((|Pattern| (|Integer|)) |#1|)) - (SIGNATURE |convert| - ((|Pattern| (|Float|)) |#1|)) - (SIGNATURE |patternMatch| - ((|PatternMatchResult| (|Integer|) - |#1|) - |#1| (|Pattern| (|Integer|)) - (|PatternMatchResult| (|Integer|) - |#1|))) - (SIGNATURE |patternMatch| - ((|PatternMatchResult| (|Float|) - |#1|) - |#1| (|Pattern| (|Float|)) - (|PatternMatchResult| (|Float|) - |#1|))) - (SIGNATURE |factor| - ((|Factored| |#1|) |#1|)) - (SIGNATURE |factorPolynomial| - ((|Factored| - (|SparseUnivariatePolynomial| - |#1|)) - (|SparseUnivariatePolynomial| - |#1|))) - (SIGNATURE - |factorSquareFreePolynomial| - ((|Factored| - (|SparseUnivariatePolynomial| - |#1|)) - (|SparseUnivariatePolynomial| - |#1|))) - (SIGNATURE - |solveLinearPolynomialEquation| - ((|Union| - (|List| - (|SparseUnivariatePolynomial| - |#1|)) - "failed") - (|List| - (|SparseUnivariatePolynomial| - |#1|)) - (|SparseUnivariatePolynomial| - |#1|))) - (SIGNATURE |conditionP| - ((|Union| (|Vector| |#1|) - "failed") - (|Matrix| |#1|))) - (SIGNATURE |primitivePart| - (|#1| |#1| |#4|)) - (SIGNATURE |content| (|#1| |#1| |#4|)) - (SIGNATURE |discriminant| - (|#1| |#1| |#4|)) - (SIGNATURE |resultant| - (|#1| |#1| |#1| |#4|)) - (SIGNATURE |primitiveMonomials| - ((|List| |#1|) |#1|)) - (SIGNATURE |totalDegree| - ((|NonNegativeInteger|) |#1| - (|List| |#4|))) - (SIGNATURE |totalDegree| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |isExpt| - ((|Union| - (|Record| (|:| |var| |#4|) - (|:| |exponent| - (|NonNegativeInteger|))) - "failed") - |#1|)) - (SIGNATURE |isTimes| - ((|Union| (|List| |#1|) "failed") - |#1|)) - (SIGNATURE |isPlus| - ((|Union| (|List| |#1|) "failed") - |#1|)) - (SIGNATURE |monomial| - (|#1| |#1| (|List| |#4|) - (|List| (|NonNegativeInteger|)))) - (SIGNATURE |monomial| - (|#1| |#1| |#4| - (|NonNegativeInteger|))) - (SIGNATURE |monicDivide| - ((|Record| (|:| |quotient| |#1|) - (|:| |remainder| |#1|)) - |#1| |#1| |#4|)) - (SIGNATURE |monomials| - ((|List| |#1|) |#1|)) - (SIGNATURE |coefficient| - (|#1| |#1| (|List| |#4|) - (|List| (|NonNegativeInteger|)))) - (SIGNATURE |coefficient| - (|#1| |#1| |#4| - (|NonNegativeInteger|))) - (SIGNATURE |reducedSystem| - ((|Matrix| |#2|) (|Matrix| |#1|))) - (SIGNATURE |reducedSystem| - ((|Record| - (|:| |mat| (|Matrix| |#2|)) - (|:| |vec| (|Vector| |#2|))) - (|Matrix| |#1|) (|Vector| |#1|))) - (SIGNATURE |reducedSystem| - ((|Record| - (|:| |mat| - (|Matrix| (|Integer|))) - (|:| |vec| - (|Vector| (|Integer|)))) - (|Matrix| |#1|) (|Vector| |#1|))) - (SIGNATURE |reducedSystem| - ((|Matrix| (|Integer|)) - (|Matrix| |#1|))) - (SIGNATURE |retract| (|#4| |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| |#4| "failed") |#1|)) - (SIGNATURE |eval| - (|#1| |#1| (|List| |#4|) - (|List| |#1|))) - (SIGNATURE |eval| - (|#1| |#1| |#4| |#1|)) - (SIGNATURE |eval| - (|#1| |#1| (|List| |#4|) - (|List| |#2|))) - (SIGNATURE |eval| - (|#1| |#1| |#4| |#2|)) - (SIGNATURE |eval| - (|#1| |#1| (|List| |#1|) - (|List| |#1|))) - (SIGNATURE |eval| - (|#1| |#1| |#1| |#1|)) - (SIGNATURE |eval| - (|#1| |#1| (|Equation| |#1|))) - (SIGNATURE |eval| - (|#1| |#1| - (|List| (|Equation| |#1|)))) - (SIGNATURE |monomial| - (|#1| |#2| |#3|)) - (SIGNATURE |coefficient| - (|#2| |#1| |#3|)) - (SIGNATURE |retract| - ((|Integer|) |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| (|Integer|) "failed") - |#1|)) - (SIGNATURE |retract| - ((|Fraction| (|Integer|)) |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| (|Fraction| (|Integer|)) - "failed") - |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| |#2| "failed") |#1|)) - (SIGNATURE |retract| (|#2| |#1|)) - (SIGNATURE |content| (|#2| |#1|)) - (SIGNATURE |primitivePart| - (|#1| |#1|))) - (|PolynomialCategory| |#2| |#3| |#4|) - (|Ring|) (|OrderedAbelianMonoidSup|) - (|OrderedSet|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/POLYCAT.lsp b/src/algebra/strap/POLYCAT.lsp index 69b15a81..f2e8f11b 100644 --- a/src/algebra/strap/POLYCAT.lsp +++ b/src/algebra/strap/POLYCAT.lsp @@ -219,9 +219,9 @@ (|NonNegativeInteger|))) NIL)) . #1=(|PolynomialCategory|))))) . #1#) - (SETELT #0# 0 - (LIST '|PolynomialCategory| (|devaluate| |t#1|) - (|devaluate| |t#2|) (|devaluate| |t#3|))))))) + (|setShellEntry| #0# 0 + (LIST '|PolynomialCategory| (|devaluate| |t#1|) + (|devaluate| |t#2|) (|devaluate| |t#3|))))))) (DEFUN |PolynomialCategory| (&REST #0=#:G1418 &AUX #1=#:G1416) (DSETQ #1# #0#) @@ -236,11 +236,3 @@ (APPLY #'|PolynomialCategory;| #1#))) |PolynomialCategory;AL|)) #2#)))) - -(SETQ |$CategoryFrame| - (|put| '|PolynomialCategory| '|isCategory| T - (|addModemap| '|PolynomialCategory| - '(|PolynomialCategory| |#1| |#2| |#3|) - '((|Category|) (|Ring|) (|OrderedAbelianMonoidSup|) - (|OrderedSet|)) - T '|PolynomialCategory| |$CategoryFrame|))) diff --git a/src/algebra/strap/PRIMARR.lsp b/src/algebra/strap/PRIMARR.lsp index 9aa4b635..b9f73fa8 100644 --- a/src/algebra/strap/PRIMARR.lsp +++ b/src/algebra/strap/PRIMARR.lsp @@ -233,187 +233,3 @@ 1 2 5 19 0 0 1 2 5 19 0 0 1 1 0 7 0 8))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|PrimitiveArray| '|isFunctor| - '(((~= ((|Boolean|) $ $)) (|has| |#1| (|SetCategory|)) - (ELT $ NIL)) - ((= ((|Boolean|) $ $)) (|has| |#1| (|SetCategory|)) - (ELT $ NIL)) - ((|coerce| ((|OutputForm|) $)) - (|has| |#1| (|CoercibleTo| (|OutputForm|))) - (ELT $ NIL)) - ((|hash| ((|SingleInteger|) $)) - (|has| |#1| (|SetCategory|)) (ELT $ NIL)) - ((|latex| ((|String|) $)) (|has| |#1| (|SetCategory|)) - (ELT $ NIL)) - ((< ((|Boolean|) $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((> ((|Boolean|) $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((>= ((|Boolean|) $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((<= ((|Boolean|) $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((|max| ($ $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((|min| ($ $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((|sort!| ($ $)) - (AND (|has| $ (ATTRIBUTE |shallowlyMutable|)) - (|has| |#1| (|OrderedSet|))) - (ELT $ NIL)) - ((|sort!| ($ (|Mapping| (|Boolean|) |#1| |#1|) $)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|reverse!| ($ $)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|copyInto!| ($ $ $ (|Integer|))) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|sorted?| ((|Boolean|) $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((|sort| ($ $)) (|has| |#1| (|OrderedSet|)) (ELT $ NIL)) - ((|merge| ($ $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((|position| ((|Integer|) |#1| $ (|Integer|))) - (|has| |#1| (|SetCategory|)) (ELT $ NIL)) - ((|position| ((|Integer|) |#1| $)) - (|has| |#1| (|SetCategory|)) (ELT $ NIL)) - ((|position| - ((|Integer|) (|Mapping| (|Boolean|) |#1|) $)) - T (ELT $ NIL)) - ((|sorted?| - ((|Boolean|) (|Mapping| (|Boolean|) |#1| |#1|) $)) - T (ELT $ NIL)) - ((|sort| ($ (|Mapping| (|Boolean|) |#1| |#1|) $)) T - (ELT $ NIL)) - ((|reverse| ($ $)) T (ELT $ NIL)) - ((|merge| ($ (|Mapping| (|Boolean|) |#1| |#1|) $ $)) T - (ELT $ NIL)) - ((|setelt| - (|#1| $ (|UniversalSegment| (|Integer|)) |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|insert| ($ $ $ (|Integer|))) T (ELT $ NIL)) - ((|insert| ($ |#1| $ (|Integer|))) T (ELT $ NIL)) - ((|delete| ($ $ (|UniversalSegment| (|Integer|)))) T - (ELT $ NIL)) - ((|delete| ($ $ (|Integer|))) T (ELT $ NIL)) - ((|elt| ($ $ (|UniversalSegment| (|Integer|)))) T - (ELT $ NIL)) - ((|map| ($ (|Mapping| |#1| |#1| |#1|) $ $)) T - (ELT $ NIL)) - ((|concat| ($ (|List| $))) T (ELT $ NIL)) - ((|concat| ($ $ $)) T (ELT $ NIL)) - ((|concat| ($ |#1| $)) T (ELT $ NIL)) - ((|concat| ($ $ |#1|)) T (ELT $ NIL)) - ((|new| ($ (|NonNegativeInteger|) |#1|)) T (ELT $ 12)) - ((|construct| ($ (|List| |#1|))) T (ELT $ NIL)) - ((|find| ((|Union| |#1| "failed") - (|Mapping| (|Boolean|) |#1|) $)) - T (ELT $ NIL)) - ((|reduce| (|#1| (|Mapping| |#1| |#1| |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|reduce| (|#1| (|Mapping| |#1| |#1| |#1|) $ |#1|)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|remove| ($ (|Mapping| (|Boolean|) |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|select| ($ (|Mapping| (|Boolean|) |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|reduce| - (|#1| (|Mapping| |#1| |#1| |#1|) $ |#1| |#1|)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|remove| ($ |#1| $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|removeDuplicates| ($ $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|convert| ((|InputForm|) $)) - (|has| |#1| (|ConvertibleTo| (|InputForm|))) - (ELT $ NIL)) - ((|swap!| ((|Void|) $ (|Integer|) (|Integer|))) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|fill!| ($ $ |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ 17)) - ((|first| (|#1| $)) (|has| (|Integer|) (|OrderedSet|)) - (ELT $ NIL)) - ((|minIndex| ((|Integer|) $)) - (|has| (|Integer|) (|OrderedSet|)) (ELT $ 10)) - ((|maxIndex| ((|Integer|) $)) - (|has| (|Integer|) (|OrderedSet|)) (ELT $ NIL)) - ((|entry?| ((|Boolean|) |#1| $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|indices| ((|List| (|Integer|)) $)) T (ELT $ NIL)) - ((|index?| ((|Boolean|) (|Integer|) $)) T (ELT $ NIL)) - ((|entries| ((|List| |#1|) $)) T (ELT $ NIL)) - ((|elt| (|#1| $ (|Integer|))) T (ELT $ 14)) - ((|elt| (|#1| $ (|Integer|) |#1|)) T (ELT $ NIL)) - ((|qelt| (|#1| $ (|Integer|))) T (ELT $ 13)) - ((|setelt| (|#1| $ (|Integer|) |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ 16)) - ((|qsetelt!| (|#1| $ (|Integer|) |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ 15)) - ((|eval| ($ $ (|List| |#1|) (|List| |#1|))) - (AND (|has| |#1| (|Evalable| |#1|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|eval| ($ $ |#1| |#1|)) - (AND (|has| |#1| (|Evalable| |#1|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|eval| ($ $ (|Equation| |#1|))) - (AND (|has| |#1| (|Evalable| |#1|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|eval| ($ $ (|List| (|Equation| |#1|)))) - (AND (|has| |#1| (|Evalable| |#1|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|member?| ((|Boolean|) |#1| $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|count| ((|NonNegativeInteger|) |#1| $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|members| ((|List| |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|parts| ((|List| |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|count| ((|NonNegativeInteger|) - (|Mapping| (|Boolean|) |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|every?| ((|Boolean|) (|Mapping| (|Boolean|) |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|any?| ((|Boolean|) (|Mapping| (|Boolean|) |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|map!| ($ (|Mapping| |#1| |#1|) $)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|map| ($ (|Mapping| |#1| |#1|) $)) T (ELT $ NIL)) - ((|#| ((|NonNegativeInteger|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ 8)) - ((|sample| ($)) T (CONST $ NIL)) - ((|size?| ((|Boolean|) $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|more?| ((|Boolean|) $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|less?| ((|Boolean|) $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|empty?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|empty| ($)) T (ELT $ 11)) - ((|copy| ($ $)) T (ELT $ NIL)) - ((|eq?| ((|Boolean|) $ $)) T (ELT $ NIL))) - (|addModemap| '|PrimitiveArray| '(|PrimitiveArray| |#1|) - '((|OneDimensionalArrayAggregate| |#1|) (|Type|)) T - '|PrimitiveArray| - (|put| '|PrimitiveArray| '|mode| - '(|Mapping| - (|OneDimensionalArrayAggregate| |#1|) - (|Type|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/PSETCAT-.lsp b/src/algebra/strap/PSETCAT-.lsp index f0aa0b4c..a216f16e 100644 --- a/src/algebra/strap/PSETCAT-.lsp +++ b/src/algebra/strap/PSETCAT-.lsp @@ -961,130 +961,3 @@ 0 0 0 9 32 2 0 0 0 9 34 2 0 15 0 0 40))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|PolynomialSetCategory&| '|isFunctor| - '(((|triangular?| ((|Boolean|) $)) T (ELT $ 47)) - ((|rewriteIdealWithRemainder| - ((|List| |#5|) (|List| |#5|) $)) - T (ELT $ 90)) - ((|rewriteIdealWithHeadRemainder| - ((|List| |#5|) (|List| |#5|) $)) - T (ELT $ 87)) - ((|remainder| - ((|Record| (|:| |rnum| |#2|) (|:| |polnum| |#5|) - (|:| |den| |#2|)) - |#5| $)) - T (ELT $ 81)) - ((|headRemainder| - ((|Record| (|:| |num| |#5|) (|:| |den| |#2|)) |#5| - $)) - T (ELT $ 73)) - ((|roughUnitIdeal?| ((|Boolean|) $)) T (ELT $ 49)) - ((|roughEqualIdeals?| ((|Boolean|) $ $)) T (ELT $ 58)) - ((|roughSubIdeal?| ((|Boolean|) $ $)) T (ELT $ 55)) - ((|roughBase?| ((|Boolean|) $)) T (ELT $ 53)) - ((|trivialIdeal?| ((|Boolean|) $)) T (ELT $ 48)) - ((|sort| ((|Record| (|:| |under| $) (|:| |floor| $) - (|:| |upper| $)) - $ |#4|)) - T (ELT $ 36)) - ((|collectUpper| ($ $ |#4|)) T (ELT $ 33)) - ((|collect| ($ $ |#4|)) T (ELT $ 34)) - ((|collectUnder| ($ $ |#4|)) T (ELT $ 32)) - ((|mainVariable?| ((|Boolean|) |#4| $)) T (ELT $ 30)) - ((|mainVariables| ((|List| |#4|) $)) T (ELT $ 27)) - ((|variables| ((|List| |#4|) $)) T (ELT $ 23)) - ((= ((|Boolean|) $ $)) T (ELT $ 40))) - (|addModemap| '|PolynomialSetCategory&| - '(|PolynomialSetCategory&| |#1| |#2| |#3| |#4| |#5|) - '((CATEGORY |domain| - (SIGNATURE |triangular?| ((|Boolean|) |#1|)) - (SIGNATURE |rewriteIdealWithRemainder| - ((|List| |#5|) (|List| |#5|) |#1|)) - (SIGNATURE |rewriteIdealWithHeadRemainder| - ((|List| |#5|) (|List| |#5|) |#1|)) - (SIGNATURE |remainder| - ((|Record| (|:| |rnum| |#2|) - (|:| |polnum| |#5|) (|:| |den| |#2|)) - |#5| |#1|)) - (SIGNATURE |headRemainder| - ((|Record| (|:| |num| |#5|) - (|:| |den| |#2|)) - |#5| |#1|)) - (SIGNATURE |roughUnitIdeal?| ((|Boolean|) |#1|)) - (SIGNATURE |roughEqualIdeals?| - ((|Boolean|) |#1| |#1|)) - (SIGNATURE |roughSubIdeal?| - ((|Boolean|) |#1| |#1|)) - (SIGNATURE |roughBase?| ((|Boolean|) |#1|)) - (SIGNATURE |trivialIdeal?| ((|Boolean|) |#1|)) - (SIGNATURE |sort| - ((|Record| (|:| |under| |#1|) - (|:| |floor| |#1|) (|:| |upper| |#1|)) - |#1| |#4|)) - (SIGNATURE |collectUpper| (|#1| |#1| |#4|)) - (SIGNATURE |collect| (|#1| |#1| |#4|)) - (SIGNATURE |collectUnder| (|#1| |#1| |#4|)) - (SIGNATURE |mainVariable?| - ((|Boolean|) |#4| |#1|)) - (SIGNATURE |mainVariables| ((|List| |#4|) |#1|)) - (SIGNATURE |variables| ((|List| |#4|) |#1|)) - (SIGNATURE = ((|Boolean|) |#1| |#1|))) - (|PolynomialSetCategory| |#2| |#3| |#4| |#5|) - (|Ring|) (|OrderedAbelianMonoidSup|) (|OrderedSet|) - (|RecursivePolynomialCategory| |#2| |#3| |#4|)) - T '|PolynomialSetCategory&| - (|put| '|PolynomialSetCategory&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |triangular?| - ((|Boolean|) |#1|)) - (SIGNATURE |rewriteIdealWithRemainder| - ((|List| |#5|) (|List| |#5|) |#1|)) - (SIGNATURE - |rewriteIdealWithHeadRemainder| - ((|List| |#5|) (|List| |#5|) |#1|)) - (SIGNATURE |remainder| - ((|Record| (|:| |rnum| |#2|) - (|:| |polnum| |#5|) - (|:| |den| |#2|)) - |#5| |#1|)) - (SIGNATURE |headRemainder| - ((|Record| (|:| |num| |#5|) - (|:| |den| |#2|)) - |#5| |#1|)) - (SIGNATURE |roughUnitIdeal?| - ((|Boolean|) |#1|)) - (SIGNATURE |roughEqualIdeals?| - ((|Boolean|) |#1| |#1|)) - (SIGNATURE |roughSubIdeal?| - ((|Boolean|) |#1| |#1|)) - (SIGNATURE |roughBase?| - ((|Boolean|) |#1|)) - (SIGNATURE |trivialIdeal?| - ((|Boolean|) |#1|)) - (SIGNATURE |sort| - ((|Record| (|:| |under| |#1|) - (|:| |floor| |#1|) - (|:| |upper| |#1|)) - |#1| |#4|)) - (SIGNATURE |collectUpper| - (|#1| |#1| |#4|)) - (SIGNATURE |collect| (|#1| |#1| |#4|)) - (SIGNATURE |collectUnder| - (|#1| |#1| |#4|)) - (SIGNATURE |mainVariable?| - ((|Boolean|) |#4| |#1|)) - (SIGNATURE |mainVariables| - ((|List| |#4|) |#1|)) - (SIGNATURE |variables| - ((|List| |#4|) |#1|)) - (SIGNATURE = ((|Boolean|) |#1| |#1|))) - (|PolynomialSetCategory| |#2| |#3| |#4| - |#5|) - (|Ring|) (|OrderedAbelianMonoidSup|) - (|OrderedSet|) - (|RecursivePolynomialCategory| |#2| |#3| - |#4|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/PSETCAT.lsp b/src/algebra/strap/PSETCAT.lsp index e5b90b16..4db40c2c 100644 --- a/src/algebra/strap/PSETCAT.lsp +++ b/src/algebra/strap/PSETCAT.lsp @@ -102,10 +102,10 @@ (|List| |t#3|)) NIL)) . #2=(|PolynomialSetCategory|)))))) . #2#) - (SETELT #0# 0 - (LIST '|PolynomialSetCategory| (|devaluate| |t#1|) - (|devaluate| |t#2|) (|devaluate| |t#3|) - (|devaluate| |t#4|))))))) + (|setShellEntry| #0# 0 + (LIST '|PolynomialSetCategory| (|devaluate| |t#1|) + (|devaluate| |t#2|) (|devaluate| |t#3|) + (|devaluate| |t#4|))))))) (DEFUN |PolynomialSetCategory| (&REST #0=#:G1434 &AUX #1=#:G1432) (DSETQ #1# #0#) @@ -121,12 +121,3 @@ #1#))) |PolynomialSetCategory;AL|)) #2#)))) - -(SETQ |$CategoryFrame| - (|put| '|PolynomialSetCategory| '|isCategory| T - (|addModemap| '|PolynomialSetCategory| - '(|PolynomialSetCategory| |#1| |#2| |#3| |#4|) - '((|Category|) (|Ring|) (|OrderedAbelianMonoidSup|) - (|OrderedSet|) - (|RecursivePolynomialCategory| |t#1| |t#2| |t#3|)) - T '|PolynomialSetCategory| |$CategoryFrame|))) diff --git a/src/algebra/strap/QFCAT-.lsp b/src/algebra/strap/QFCAT-.lsp index 00304cb1..78512ea8 100644 --- a/src/algebra/strap/QFCAT-.lsp +++ b/src/algebra/strap/QFCAT-.lsp @@ -519,269 +519,3 @@ 67 0 70 1 0 76 0 79 1 0 0 55 57 1 0 0 85 90 0 0 29 31 2 0 48 0 0 50))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|QuotientFieldCategory&| '|isFunctor| - '(((< ((|Boolean|) $ $)) T (ELT $ 50)) - ((|init| ($)) T (ELT $ 16)) - ((|nextItem| ((|Union| $ "failed") $)) T (ELT $ 20)) - ((|retract| ((|Integer|) $)) T (ELT $ 92)) - ((|retractIfCan| ((|Union| (|Integer|) "failed") $)) T - (ELT $ 95)) - ((|retract| ((|Fraction| (|Integer|)) $)) T (ELT $ NIL)) - ((|retractIfCan| - ((|Union| (|Fraction| (|Integer|)) "failed") $)) - T (ELT $ NIL)) - ((|convert| ((|DoubleFloat|) $)) T (ELT $ 47)) - ((|convert| ((|Float|) $)) T (ELT $ 44)) - ((|convert| ((|InputForm|) $)) T (ELT $ 40)) - ((|retract| ((|Symbol|) $)) T (ELT $ 60)) - ((|retractIfCan| ((|Union| (|Symbol|) "failed") $)) T - (ELT $ 65)) - ((|coerce| ($ (|Symbol|))) T (ELT $ 57)) - ((|random| ($)) T (ELT $ 98)) - ((|fractionPart| ($ $)) T (ELT $ 54)) - ((|denominator| ($ $)) T (ELT $ 12)) - ((|numerator| ($ $)) T (ELT $ 10)) - ((|patternMatch| - ((|PatternMatchResult| (|Float|) $) $ - (|Pattern| (|Float|)) - (|PatternMatchResult| (|Float|) $))) - T (ELT $ 84)) - ((|patternMatch| - ((|PatternMatchResult| (|Integer|) $) $ - (|Pattern| (|Integer|)) - (|PatternMatchResult| (|Integer|) $))) - T (ELT $ 75)) - ((|convert| ((|Pattern| (|Float|)) $)) T (ELT $ 79)) - ((|convert| ((|Pattern| (|Integer|)) $)) T (ELT $ 70)) - ((|reducedSystem| ((|Matrix| |#2|) (|Matrix| $))) T - (ELT $ 28)) - ((|reducedSystem| - ((|Record| (|:| |mat| (|Matrix| |#2|)) - (|:| |vec| (|Vector| |#2|))) - (|Matrix| $) (|Vector| $))) - T (ELT $ 112)) - ((|reducedSystem| - ((|Record| (|:| |mat| (|Matrix| (|Integer|))) - (|:| |vec| (|Vector| (|Integer|)))) - (|Matrix| $) (|Vector| $))) - T (ELT $ NIL)) - ((|reducedSystem| ((|Matrix| (|Integer|)) (|Matrix| $))) - T (ELT $ NIL)) - ((|differentiate| ($ $ (|Mapping| |#2| |#2|))) T - (ELT $ 36)) - ((|differentiate| - ($ $ (|Mapping| |#2| |#2|) (|NonNegativeInteger|))) - T (ELT $ NIL)) - ((|differentiate| - ($ $ (|List| (|Symbol|)) - (|List| (|NonNegativeInteger|)))) - T (ELT $ NIL)) - ((|differentiate| - ($ $ (|Symbol|) (|NonNegativeInteger|))) - T (ELT $ NIL)) - ((|differentiate| ($ $ (|List| (|Symbol|)))) T - (ELT $ NIL)) - ((|differentiate| ($ $ (|Symbol|))) T (ELT $ NIL)) - ((|differentiate| ($ $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|differentiate| ($ $)) T (ELT $ NIL)) - ((|map| ($ (|Mapping| |#2| |#2|) $)) T (ELT $ 22)) - ((|retract| (|#2| $)) T (ELT $ NIL)) - ((|retractIfCan| ((|Union| |#2| "failed") $)) T - (ELT $ NIL)) - ((|coerce| ($ |#2|)) T (ELT $ NIL)) - ((|coerce| ($ (|Fraction| (|Integer|)))) T (ELT $ 90)) - ((|coerce| ($ $)) T (ELT $ NIL)) - ((|coerce| ($ (|Integer|))) T (ELT $ NIL)) - ((|characteristic| ((|NonNegativeInteger|))) T - (ELT $ 31)) - ((|coerce| ((|OutputForm|) $)) T (ELT $ NIL))) - (|addModemap| '|QuotientFieldCategory&| - '(|QuotientFieldCategory&| |#1| |#2|) - '((CATEGORY |domain| - (SIGNATURE < ((|Boolean|) |#1| |#1|)) - (SIGNATURE |init| (|#1|)) - (SIGNATURE |nextItem| - ((|Union| |#1| "failed") |#1|)) - (SIGNATURE |retract| ((|Integer|) |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| (|Integer|) "failed") |#1|)) - (SIGNATURE |retract| - ((|Fraction| (|Integer|)) |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| (|Fraction| (|Integer|)) "failed") - |#1|)) - (SIGNATURE |convert| ((|DoubleFloat|) |#1|)) - (SIGNATURE |convert| ((|Float|) |#1|)) - (SIGNATURE |convert| ((|InputForm|) |#1|)) - (SIGNATURE |retract| ((|Symbol|) |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| (|Symbol|) "failed") |#1|)) - (SIGNATURE |coerce| (|#1| (|Symbol|))) - (SIGNATURE |random| (|#1|)) - (SIGNATURE |fractionPart| (|#1| |#1|)) - (SIGNATURE |denominator| (|#1| |#1|)) - (SIGNATURE |numerator| (|#1| |#1|)) - (SIGNATURE |patternMatch| - ((|PatternMatchResult| (|Float|) |#1|) |#1| - (|Pattern| (|Float|)) - (|PatternMatchResult| (|Float|) |#1|))) - (SIGNATURE |patternMatch| - ((|PatternMatchResult| (|Integer|) |#1|) - |#1| (|Pattern| (|Integer|)) - (|PatternMatchResult| (|Integer|) |#1|))) - (SIGNATURE |convert| - ((|Pattern| (|Float|)) |#1|)) - (SIGNATURE |convert| - ((|Pattern| (|Integer|)) |#1|)) - (SIGNATURE |reducedSystem| - ((|Matrix| |#2|) (|Matrix| |#1|))) - (SIGNATURE |reducedSystem| - ((|Record| (|:| |mat| (|Matrix| |#2|)) - (|:| |vec| (|Vector| |#2|))) - (|Matrix| |#1|) (|Vector| |#1|))) - (SIGNATURE |reducedSystem| - ((|Record| - (|:| |mat| (|Matrix| (|Integer|))) - (|:| |vec| (|Vector| (|Integer|)))) - (|Matrix| |#1|) (|Vector| |#1|))) - (SIGNATURE |reducedSystem| - ((|Matrix| (|Integer|)) (|Matrix| |#1|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|Mapping| |#2| |#2|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|Mapping| |#2| |#2|) - (|NonNegativeInteger|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|List| (|Symbol|)) - (|List| (|NonNegativeInteger|)))) - (SIGNATURE |differentiate| - (|#1| |#1| (|Symbol|) - (|NonNegativeInteger|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|List| (|Symbol|)))) - (SIGNATURE |differentiate| - (|#1| |#1| (|Symbol|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE |differentiate| (|#1| |#1|)) - (SIGNATURE |map| - (|#1| (|Mapping| |#2| |#2|) |#1|)) - (SIGNATURE |retract| (|#2| |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| |#2| "failed") |#1|)) - (SIGNATURE |coerce| (|#1| |#2|)) - (SIGNATURE |coerce| - (|#1| (|Fraction| (|Integer|)))) - (SIGNATURE |coerce| (|#1| |#1|)) - (SIGNATURE |coerce| (|#1| (|Integer|))) - (SIGNATURE |characteristic| - ((|NonNegativeInteger|))) - (SIGNATURE |coerce| ((|OutputForm|) |#1|))) - (|QuotientFieldCategory| |#2|) (|IntegralDomain|)) - T '|QuotientFieldCategory&| - (|put| '|QuotientFieldCategory&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE < ((|Boolean|) |#1| |#1|)) - (SIGNATURE |init| (|#1|)) - (SIGNATURE |nextItem| - ((|Union| |#1| "failed") |#1|)) - (SIGNATURE |retract| - ((|Integer|) |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| (|Integer|) "failed") - |#1|)) - (SIGNATURE |retract| - ((|Fraction| (|Integer|)) |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| (|Fraction| (|Integer|)) - "failed") - |#1|)) - (SIGNATURE |convert| - ((|DoubleFloat|) |#1|)) - (SIGNATURE |convert| ((|Float|) |#1|)) - (SIGNATURE |convert| - ((|InputForm|) |#1|)) - (SIGNATURE |retract| - ((|Symbol|) |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| (|Symbol|) "failed") - |#1|)) - (SIGNATURE |coerce| (|#1| (|Symbol|))) - (SIGNATURE |random| (|#1|)) - (SIGNATURE |fractionPart| (|#1| |#1|)) - (SIGNATURE |denominator| (|#1| |#1|)) - (SIGNATURE |numerator| (|#1| |#1|)) - (SIGNATURE |patternMatch| - ((|PatternMatchResult| (|Float|) - |#1|) - |#1| (|Pattern| (|Float|)) - (|PatternMatchResult| (|Float|) - |#1|))) - (SIGNATURE |patternMatch| - ((|PatternMatchResult| (|Integer|) - |#1|) - |#1| (|Pattern| (|Integer|)) - (|PatternMatchResult| (|Integer|) - |#1|))) - (SIGNATURE |convert| - ((|Pattern| (|Float|)) |#1|)) - (SIGNATURE |convert| - ((|Pattern| (|Integer|)) |#1|)) - (SIGNATURE |reducedSystem| - ((|Matrix| |#2|) (|Matrix| |#1|))) - (SIGNATURE |reducedSystem| - ((|Record| - (|:| |mat| (|Matrix| |#2|)) - (|:| |vec| (|Vector| |#2|))) - (|Matrix| |#1|) (|Vector| |#1|))) - (SIGNATURE |reducedSystem| - ((|Record| - (|:| |mat| - (|Matrix| (|Integer|))) - (|:| |vec| - (|Vector| (|Integer|)))) - (|Matrix| |#1|) (|Vector| |#1|))) - (SIGNATURE |reducedSystem| - ((|Matrix| (|Integer|)) - (|Matrix| |#1|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|Mapping| |#2| |#2|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|Mapping| |#2| |#2|) - (|NonNegativeInteger|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|List| (|Symbol|)) - (|List| (|NonNegativeInteger|)))) - (SIGNATURE |differentiate| - (|#1| |#1| (|Symbol|) - (|NonNegativeInteger|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|List| (|Symbol|)))) - (SIGNATURE |differentiate| - (|#1| |#1| (|Symbol|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE |differentiate| - (|#1| |#1|)) - (SIGNATURE |map| - (|#1| (|Mapping| |#2| |#2|) |#1|)) - (SIGNATURE |retract| (|#2| |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| |#2| "failed") |#1|)) - (SIGNATURE |coerce| (|#1| |#2|)) - (SIGNATURE |coerce| - (|#1| (|Fraction| (|Integer|)))) - (SIGNATURE |coerce| (|#1| |#1|)) - (SIGNATURE |coerce| - (|#1| (|Integer|))) - (SIGNATURE |characteristic| - ((|NonNegativeInteger|))) - (SIGNATURE |coerce| - ((|OutputForm|) |#1|))) - (|QuotientFieldCategory| |#2|) - (|IntegralDomain|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/QFCAT.lsp b/src/algebra/strap/QFCAT.lsp index be400de3..dd721698 100644 --- a/src/algebra/strap/QFCAT.lsp +++ b/src/algebra/strap/QFCAT.lsp @@ -89,8 +89,8 @@ (|PolynomialFactorizationExplicit|)))) 'NIL NIL)) . #1=(|QuotientFieldCategory|))))) . #1#) - (SETELT #0# 0 - (LIST '|QuotientFieldCategory| (|devaluate| |t#1|))))))) + (|setShellEntry| #0# 0 + (LIST '|QuotientFieldCategory| (|devaluate| |t#1|))))))) (DEFUN |QuotientFieldCategory| (#0=#:G1400) (LET (#1=#:G1401) @@ -103,10 +103,3 @@ (SETQ #1# (|QuotientFieldCategory;| #0#))) |QuotientFieldCategory;AL|)) #1#)))) - -(SETQ |$CategoryFrame| - (|put| '|QuotientFieldCategory| '|isCategory| T - (|addModemap| '|QuotientFieldCategory| - '(|QuotientFieldCategory| |#1|) - '((|Category|) (|IntegralDomain|)) T - '|QuotientFieldCategory| |$CategoryFrame|))) diff --git a/src/algebra/strap/RCAGG-.lsp b/src/algebra/strap/RCAGG-.lsp index 599cc1a2..e10fc5da 100644 --- a/src/algebra/strap/RCAGG-.lsp +++ b/src/algebra/strap/RCAGG-.lsp @@ -64,27 +64,3 @@ 18 3 0 7 0 9 7 12 2 0 7 0 9 10 2 0 15 0 0 18))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|RecursiveAggregate&| '|isFunctor| - '(((|setelt| (|#2| $ "value" |#2|)) T (ELT $ 12)) - ((|child?| ((|Boolean|) $ $)) T (ELT $ 18)) - ((|elt| (|#2| $ "value")) T (ELT $ 10))) - (|addModemap| '|RecursiveAggregate&| - '(|RecursiveAggregate&| |#1| |#2|) - '((CATEGORY |domain| - (SIGNATURE |setelt| (|#2| |#1| "value" |#2|)) - (SIGNATURE |child?| ((|Boolean|) |#1| |#1|)) - (SIGNATURE |elt| (|#2| |#1| "value"))) - (|RecursiveAggregate| |#2|) (|Type|)) - T '|RecursiveAggregate&| - (|put| '|RecursiveAggregate&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |setelt| - (|#2| |#1| "value" |#2|)) - (SIGNATURE |child?| - ((|Boolean|) |#1| |#1|)) - (SIGNATURE |elt| (|#2| |#1| "value"))) - (|RecursiveAggregate| |#2|) (|Type|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/RCAGG.lsp b/src/algebra/strap/RCAGG.lsp index c03c9f27..46649f33 100644 --- a/src/algebra/strap/RCAGG.lsp +++ b/src/algebra/strap/RCAGG.lsp @@ -60,7 +60,8 @@ (|Integer|) (|List| |t#1|)) NIL)) . #1=(|RecursiveAggregate|))))) . #1#) - (SETELT #0# 0 (LIST '|RecursiveAggregate| (|devaluate| |t#1|))))))) + (|setShellEntry| #0# 0 + (LIST '|RecursiveAggregate| (|devaluate| |t#1|))))))) (DEFUN |RecursiveAggregate| (#0=#:G1398) (LET (#1=#:G1399) @@ -72,9 +73,3 @@ (SETQ #1# (|RecursiveAggregate;| #0#))) |RecursiveAggregate;AL|)) #1#)))) - -(SETQ |$CategoryFrame| - (|put| '|RecursiveAggregate| '|isCategory| T - (|addModemap| '|RecursiveAggregate| - '(|RecursiveAggregate| |#1|) '((|Category|) (|Type|)) - T '|RecursiveAggregate| |$CategoryFrame|))) diff --git a/src/algebra/strap/REF.lsp b/src/algebra/strap/REF.lsp index 30394145..0142338b 100644 --- a/src/algebra/strap/REF.lsp +++ b/src/algebra/strap/REF.lsp @@ -109,51 +109,3 @@ 1 1 22 0 1 1 0 6 0 11 1 0 6 0 13 1 1 16 0 21 2 0 8 0 0 9))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|Reference| '|isFunctor| - '(((~= ((|Boolean|) $ $)) (|has| |#1| (|SetCategory|)) - (ELT $ NIL)) - ((|coerce| ((|OutputForm|) $)) - (|has| |#1| (|SetCategory|)) (ELT $ 21)) - ((|hash| ((|SingleInteger|) $)) - (|has| |#1| (|SetCategory|)) (ELT $ NIL)) - ((|latex| ((|String|) $)) (|has| |#1| (|SetCategory|)) - (ELT $ NIL)) - ((= ((|Boolean|) $ $)) T (ELT $ 9)) - ((|setref| (|#1| $ |#1|)) T (ELT $ 14)) - ((|deref| (|#1| $)) T (ELT $ 13)) - ((|setelt| (|#1| $ |#1|)) T (ELT $ 12)) - ((|elt| (|#1| $)) T (ELT $ 11)) - ((|ref| ($ |#1|)) T (ELT $ 10))) - (|addModemap| '|Reference| '(|Reference| |#1|) - '((|Join| (|Type|) - (CATEGORY |domain| - (SIGNATURE |ref| ($ |#1|)) - (SIGNATURE |elt| (|#1| $)) - (SIGNATURE |setelt| (|#1| $ |#1|)) - (SIGNATURE |deref| (|#1| $)) - (SIGNATURE |setref| (|#1| $ |#1|)) - (SIGNATURE = ((|Boolean|) $ $)) - (IF (|has| |#1| (|SetCategory|)) - (ATTRIBUTE (|SetCategory|)) - |%noBranch|))) - (|Type|)) - T '|Reference| - (|put| '|Reference| '|mode| - '(|Mapping| - (|Join| (|Type|) - (CATEGORY |domain| - (SIGNATURE |ref| ($ |#1|)) - (SIGNATURE |elt| (|#1| $)) - (SIGNATURE |setelt| - (|#1| $ |#1|)) - (SIGNATURE |deref| (|#1| $)) - (SIGNATURE |setref| - (|#1| $ |#1|)) - (SIGNATURE = ((|Boolean|) $ $)) - (IF (|has| |#1| (|SetCategory|)) - (ATTRIBUTE (|SetCategory|)) - |%noBranch|))) - (|Type|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/RING-.lsp b/src/algebra/strap/RING-.lsp index 3ce200ae..f5a4504a 100644 --- a/src/algebra/strap/RING-.lsp +++ b/src/algebra/strap/RING-.lsp @@ -31,23 +31,3 @@ (|makeByteWordVec2| 10 '(0 6 0 7 2 6 0 8 0 9 1 0 0 8 10))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|Ring&| '|isFunctor| - '(((|coerce| ($ (|Integer|))) T (ELT $ 10)) - ((|coerce| ((|OutputForm|) $)) T (ELT $ NIL))) - (|addModemap| '|Ring&| '(|Ring&| |#1|) - '((CATEGORY |domain| - (SIGNATURE |coerce| (|#1| (|Integer|))) - (SIGNATURE |coerce| ((|OutputForm|) |#1|))) - (|Ring|)) - T '|Ring&| - (|put| '|Ring&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |coerce| - (|#1| (|Integer|))) - (SIGNATURE |coerce| - ((|OutputForm|) |#1|))) - (|Ring|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/RING.lsp b/src/algebra/strap/RING.lsp index 016a3ee0..7b61ea0f 100644 --- a/src/algebra/strap/RING.lsp +++ b/src/algebra/strap/RING.lsp @@ -17,14 +17,9 @@ '((|Integer|) (|NonNegativeInteger|)) NIL)) |Ring|) - (SETELT #0# 0 '(|Ring|)))))) + (|setShellEntry| #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| - |$CategoryFrame|))) - (MAKEPROP '|Ring| 'NILADIC T) diff --git a/src/algebra/strap/RNG.lsp b/src/algebra/strap/RNG.lsp index 6a2f53a5..7e7bf619 100644 --- a/src/algebra/strap/RNG.lsp +++ b/src/algebra/strap/RNG.lsp @@ -7,14 +7,9 @@ (PROG (#0=#:G1397) (RETURN (PROG1 (LETT #0# (|Join| (|AbelianGroup|) (|SemiGroup|)) |Rng|) - (SETELT #0# 0 '(|Rng|)))))) + (|setShellEntry| #0# 0 '(|Rng|)))))) (DEFUN |Rng| () (LET () (COND (|Rng;AL|) (T (SETQ |Rng;AL| (|Rng;|)))))) -(SETQ |$CategoryFrame| - (|put| '|Rng| '|isCategory| T - (|addModemap| '|Rng| '(|Rng|) '((|Category|)) T '|Rng| - |$CategoryFrame|))) - (MAKEPROP '|Rng| 'NILADIC T) diff --git a/src/algebra/strap/RNS-.lsp b/src/algebra/strap/RNS-.lsp index ef8a5ed3..042d128b 100644 --- a/src/algebra/strap/RNS-.lsp +++ b/src/algebra/strap/RNS-.lsp @@ -187,91 +187,3 @@ 0 33 1 0 0 25 28 1 0 0 25 28 0 0 7 8 1 0 0 0 39))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|RealNumberSystem&| '|isFunctor| - '(((|round| ($ $)) T (ELT $ 22)) - ((|truncate| ($ $)) T (ELT $ 16)) - ((|fractionPart| ($ $)) T (ELT $ 11)) - ((|floor| ($ $)) T (ELT $ 38)) - ((|ceiling| ($ $)) T (ELT $ 39)) - ((|norm| ($ $)) T (ELT $ 24)) - ((|patternMatch| - ((|PatternMatchResult| (|Float|) $) $ - (|Pattern| (|Float|)) - (|PatternMatchResult| (|Float|) $))) - T (ELT $ 49)) - ((|convert| ((|Pattern| (|Float|)) $)) T (ELT $ 33)) - ((|coerce| ($ (|Fraction| (|Integer|)))) T (ELT $ 28)) - ((|coerce| ($ (|Integer|))) T (ELT $ NIL)) - ((|convert| ((|DoubleFloat|) $)) T (ELT $ NIL)) - ((|convert| ((|Float|) $)) T (ELT $ NIL)) - ((|coerce| ($ (|Fraction| (|Integer|)))) T (ELT $ 28)) - ((|coerce| ($ $)) T (ELT $ NIL)) - ((|coerce| ($ (|Integer|))) T (ELT $ NIL)) - ((|characteristic| ((|NonNegativeInteger|))) T - (ELT $ 8)) - ((|coerce| ((|OutputForm|) $)) T (ELT $ NIL))) - (|addModemap| '|RealNumberSystem&| - '(|RealNumberSystem&| |#1|) - '((CATEGORY |domain| (SIGNATURE |round| (|#1| |#1|)) - (SIGNATURE |truncate| (|#1| |#1|)) - (SIGNATURE |fractionPart| (|#1| |#1|)) - (SIGNATURE |floor| (|#1| |#1|)) - (SIGNATURE |ceiling| (|#1| |#1|)) - (SIGNATURE |norm| (|#1| |#1|)) - (SIGNATURE |patternMatch| - ((|PatternMatchResult| (|Float|) |#1|) |#1| - (|Pattern| (|Float|)) - (|PatternMatchResult| (|Float|) |#1|))) - (SIGNATURE |convert| - ((|Pattern| (|Float|)) |#1|)) - (SIGNATURE |coerce| - (|#1| (|Fraction| (|Integer|)))) - (SIGNATURE |coerce| (|#1| (|Integer|))) - (SIGNATURE |convert| ((|DoubleFloat|) |#1|)) - (SIGNATURE |convert| ((|Float|) |#1|)) - (SIGNATURE |coerce| - (|#1| (|Fraction| (|Integer|)))) - (SIGNATURE |coerce| (|#1| |#1|)) - (SIGNATURE |coerce| (|#1| (|Integer|))) - (SIGNATURE |characteristic| - ((|NonNegativeInteger|))) - (SIGNATURE |coerce| ((|OutputForm|) |#1|))) - (|RealNumberSystem|)) - T '|RealNumberSystem&| - (|put| '|RealNumberSystem&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |round| (|#1| |#1|)) - (SIGNATURE |truncate| (|#1| |#1|)) - (SIGNATURE |fractionPart| (|#1| |#1|)) - (SIGNATURE |floor| (|#1| |#1|)) - (SIGNATURE |ceiling| (|#1| |#1|)) - (SIGNATURE |norm| (|#1| |#1|)) - (SIGNATURE |patternMatch| - ((|PatternMatchResult| (|Float|) - |#1|) - |#1| (|Pattern| (|Float|)) - (|PatternMatchResult| (|Float|) - |#1|))) - (SIGNATURE |convert| - ((|Pattern| (|Float|)) |#1|)) - (SIGNATURE |coerce| - (|#1| (|Fraction| (|Integer|)))) - (SIGNATURE |coerce| - (|#1| (|Integer|))) - (SIGNATURE |convert| - ((|DoubleFloat|) |#1|)) - (SIGNATURE |convert| ((|Float|) |#1|)) - (SIGNATURE |coerce| - (|#1| (|Fraction| (|Integer|)))) - (SIGNATURE |coerce| (|#1| |#1|)) - (SIGNATURE |coerce| - (|#1| (|Integer|))) - (SIGNATURE |characteristic| - ((|NonNegativeInteger|))) - (SIGNATURE |coerce| - ((|OutputForm|) |#1|))) - (|RealNumberSystem|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/RNS.lsp b/src/algebra/strap/RNS.lsp index 2ece00ea..f9641660 100644 --- a/src/algebra/strap/RNS.lsp +++ b/src/algebra/strap/RNS.lsp @@ -31,7 +31,7 @@ ((|abs| ($ $)) T)) NIL '((|Integer|)) NIL))) |RealNumberSystem|) - (SETELT #0# 0 '(|RealNumberSystem|)))))) + (|setShellEntry| #0# 0 '(|RealNumberSystem|)))))) (DEFUN |RealNumberSystem| () (LET () @@ -39,10 +39,4 @@ (|RealNumberSystem;AL|) (T (SETQ |RealNumberSystem;AL| (|RealNumberSystem;|)))))) -(SETQ |$CategoryFrame| - (|put| '|RealNumberSystem| '|isCategory| T - (|addModemap| '|RealNumberSystem| '(|RealNumberSystem|) - '((|Category|)) T '|RealNumberSystem| - |$CategoryFrame|))) - (MAKEPROP '|RealNumberSystem| 'NILADIC T) diff --git a/src/algebra/strap/SETAGG-.lsp b/src/algebra/strap/SETAGG-.lsp index 103e4819..a9253081 100644 --- a/src/algebra/strap/SETAGG-.lsp +++ b/src/algebra/strap/SETAGG-.lsp @@ -60,38 +60,3 @@ 0 0 7 0 14 2 0 0 0 7 13 2 0 0 0 0 10 2 0 0 0 7 15))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|SetAggregate&| '|isFunctor| - '(((|union| ($ |#2| $)) T (ELT $ 14)) - ((|union| ($ $ |#2|)) T (ELT $ 13)) - ((|union| ($ $ $)) T (ELT $ NIL)) - ((|symmetricDifference| ($ $ $)) T (ELT $ 10)) - ((|difference| ($ $ |#2|)) T (ELT $ 15)) - ((|difference| ($ $ $)) T (ELT $ NIL))) - (|addModemap| '|SetAggregate&| - '(|SetAggregate&| |#1| |#2|) - '((CATEGORY |domain| - (SIGNATURE |union| (|#1| |#2| |#1|)) - (SIGNATURE |union| (|#1| |#1| |#2|)) - (SIGNATURE |union| (|#1| |#1| |#1|)) - (SIGNATURE |symmetricDifference| - (|#1| |#1| |#1|)) - (SIGNATURE |difference| (|#1| |#1| |#2|)) - (SIGNATURE |difference| (|#1| |#1| |#1|))) - (|SetAggregate| |#2|) (|SetCategory|)) - T '|SetAggregate&| - (|put| '|SetAggregate&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |union| (|#1| |#2| |#1|)) - (SIGNATURE |union| (|#1| |#1| |#2|)) - (SIGNATURE |union| (|#1| |#1| |#1|)) - (SIGNATURE |symmetricDifference| - (|#1| |#1| |#1|)) - (SIGNATURE |difference| - (|#1| |#1| |#2|)) - (SIGNATURE |difference| - (|#1| |#1| |#1|))) - (|SetAggregate| |#2|) (|SetCategory|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/SETAGG.lsp b/src/algebra/strap/SETAGG.lsp index 37a253ed..d40ba5ab 100644 --- a/src/algebra/strap/SETAGG.lsp +++ b/src/algebra/strap/SETAGG.lsp @@ -44,7 +44,8 @@ '((|Boolean|) (|List| |t#1|)) NIL)) . #1=(|SetAggregate|))))) . #1#) - (SETELT #0# 0 (LIST '|SetAggregate| (|devaluate| |t#1|))))))) + (|setShellEntry| #0# 0 + (LIST '|SetAggregate| (|devaluate| |t#1|))))))) (DEFUN |SetAggregate| (#0=#:G1398) (LET (#1=#:G1399) @@ -56,9 +57,3 @@ (SETQ #1# (|SetAggregate;| #0#))) |SetAggregate;AL|)) #1#)))) - -(SETQ |$CategoryFrame| - (|put| '|SetAggregate| '|isCategory| T - (|addModemap| '|SetAggregate| '(|SetAggregate| |#1|) - '((|Category|) (|SetCategory|)) T '|SetAggregate| - |$CategoryFrame|))) diff --git a/src/algebra/strap/SETCAT-.lsp b/src/algebra/strap/SETCAT-.lsp index a84a276e..30703707 100644 --- a/src/algebra/strap/SETCAT-.lsp +++ b/src/algebra/strap/SETCAT-.lsp @@ -42,22 +42,3 @@ (|makeByteWordVec2| 10 '(1 0 9 0 10 1 0 7 0 8))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|SetCategory&| '|isFunctor| - '(((|latex| ((|String|) $)) T (ELT $ 10)) - ((|hash| ((|SingleInteger|) $)) T (ELT $ 8))) - (|addModemap| '|SetCategory&| '(|SetCategory&| |#1|) - '((CATEGORY |domain| - (SIGNATURE |latex| ((|String|) |#1|)) - (SIGNATURE |hash| ((|SingleInteger|) |#1|))) - (|SetCategory|)) - T '|SetCategory&| - (|put| '|SetCategory&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |latex| ((|String|) |#1|)) - (SIGNATURE |hash| - ((|SingleInteger|) |#1|))) - (|SetCategory|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/SETCAT.lsp b/src/algebra/strap/SETCAT.lsp index 2ea735a4..22ad6fd5 100644 --- a/src/algebra/strap/SETCAT.lsp +++ b/src/algebra/strap/SETCAT.lsp @@ -16,7 +16,7 @@ NIL '((|String|) (|SingleInteger|)) NIL))) |SetCategory|) - (SETELT #0# 0 '(|SetCategory|)))))) + (|setShellEntry| #0# 0 '(|SetCategory|)))))) (DEFUN |SetCategory| () (LET () @@ -24,9 +24,4 @@ (|SetCategory;AL|) (T (SETQ |SetCategory;AL| (|SetCategory;|)))))) -(SETQ |$CategoryFrame| - (|put| '|SetCategory| '|isCategory| T - (|addModemap| '|SetCategory| '(|SetCategory|) - '((|Category|)) T '|SetCategory| |$CategoryFrame|))) - (MAKEPROP '|SetCategory| 'NILADIC T) diff --git a/src/algebra/strap/SINT.lsp b/src/algebra/strap/SINT.lsp index f1c1c5f9..2da14713 100644 --- a/src/algebra/strap/SINT.lsp +++ b/src/algebra/strap/SINT.lsp @@ -572,7 +572,7 @@ (|leftUnitary| . 0) (|unitsKnown| . 0)) (CONS (|makeByteWordVec2| 1 '(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)) + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)) (CONS '#(|IntegerNumberSystem&| |EuclideanDomain&| |UniqueFactorizationDomain&| NIL NIL |GcdDomain&| |IntegralDomain&| |Algebra&| NIL @@ -582,7 +582,7 @@ |Monoid&| NIL NIL |OrderedSet&| |AbelianSemiGroup&| |SemiGroup&| |Logic&| NIL |SetCategory&| NIL NIL NIL NIL NIL NIL - |RetractableTo&| NIL |BasicType&| NIL) + |RetractableTo&| NIL NIL |BasicType&| NIL) (CONS '#((|IntegerNumberSystem|) (|EuclideanDomain|) (|UniqueFactorizationDomain|) @@ -613,6 +613,7 @@ (|ConvertibleTo| 92) (|ConvertibleTo| 94) (|RetractableTo| 12) + (|CoercibleFrom| 12) (|ConvertibleTo| 12) (|BasicType|) (|CoercibleTo| 29)) (|makeByteWordVec2| 104 @@ -659,201 +660,4 @@ 0 56 0 1 2 0 0 104 0 1))))) '|lookupComplete|)) -(SETQ |$CategoryFrame| - (|put| '|SingleInteger| '|isFunctor| - '(((|Or| ($ $ $)) T (ELT $ 47)) - ((|And| ($ $ $)) T (ELT $ 46)) - ((|Not| ($ $)) T (ELT $ 45)) - ((|xor| ($ $ $)) T (ELT $ 48)) - ((|not| ($ $)) T (ELT $ 42)) ((|min| ($)) T (ELT $ 39)) - ((|max| ($)) T (ELT $ 38)) - ((|OMwrite| ((|Void|) (|OpenMathDevice|) $ (|Boolean|))) - T (ELT $ 25)) - ((|OMwrite| ((|Void|) (|OpenMathDevice|) $)) T - (ELT $ 24)) - ((|OMwrite| ((|String|) $ (|Boolean|))) T (ELT $ 23)) - ((|OMwrite| ((|String|) $)) T (ELT $ 21)) - ((~ ($ $)) T (ELT $ 41)) ((|/\\| ($ $ $)) T (ELT $ 43)) - ((|\\/| ($ $ $)) T (ELT $ 44)) - ((|invmod| ($ $ $)) T (ELT $ NIL)) - ((|powmod| ($ $ $ $)) T (ELT $ NIL)) - ((|mulmod| ($ $ $ $)) T (ELT $ 73)) - ((|submod| ($ $ $ $)) T (ELT $ 75)) - ((|addmod| ($ $ $ $)) T (ELT $ 74)) - ((|mask| ($ $)) T (ELT $ NIL)) - ((|dec| ($ $)) T (ELT $ 51)) - ((|inc| ($ $)) T (ELT $ 50)) - ((|copy| ($ $)) T (ELT $ NIL)) - ((|random| ($ $)) T (ELT $ 84)) - ((|random| ($)) T (ELT $ 83)) - ((|rationalIfCan| - ((|Union| (|Fraction| (|Integer|)) "failed") $)) - T (ELT $ NIL)) - ((|rational| ((|Fraction| (|Integer|)) $)) T - (ELT $ NIL)) - ((|rational?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|symmetricRemainder| ($ $ $)) T (ELT $ NIL)) - ((|positiveRemainder| ($ $ $)) T (ELT $ 81)) - ((|bit?| ((|Boolean|) $ $)) T (ELT $ NIL)) - ((|shift| ($ $ $)) T (ELT $ 72)) - ((|length| ($ $)) T (ELT $ 71)) - ((|base| ($)) T (ELT $ 37)) - ((|even?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|odd?| ((|Boolean|) $)) T (ELT $ 64)) - ((|init| ($)) T (CONST $ NIL)) - ((|nextItem| ((|Union| $ "failed") $)) T (ELT $ NIL)) - ((|convert| ((|DoubleFloat|) $)) T (ELT $ NIL)) - ((|convert| ((|Float|) $)) T (ELT $ NIL)) - ((|permutation| ($ $ $)) T (ELT $ NIL)) - ((|factorial| ($ $)) T (ELT $ NIL)) - ((|binomial| ($ $ $)) T (ELT $ NIL)) - ((|patternMatch| - ((|PatternMatchResult| (|Integer|) $) $ - (|Pattern| (|Integer|)) - (|PatternMatchResult| (|Integer|) $))) - T (ELT $ NIL)) - ((|convert| ((|Pattern| (|Integer|)) $)) T (ELT $ NIL)) - ((|convert| ((|InputForm|) $)) T (ELT $ NIL)) - ((|reducedSystem| ((|Matrix| (|Integer|)) (|Matrix| $))) - T (ELT $ 28)) - ((|reducedSystem| - ((|Record| (|:| |mat| (|Matrix| (|Integer|))) - (|:| |vec| (|Vector| (|Integer|)))) - (|Matrix| $) (|Vector| $))) - T (ELT $ 80)) - ((|retract| ((|Integer|) $)) T (ELT $ NIL)) - ((|retractIfCan| ((|Union| (|Integer|) "failed") $)) T - (ELT $ NIL)) - ((|coerce| ($ (|Integer|))) T (ELT $ 82)) - ((|convert| ((|Integer|) $)) T (ELT $ 32)) - ((|differentiate| ($ $)) T (ELT $ NIL)) - ((D ($ $)) T (ELT $ NIL)) - ((|differentiate| ($ $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((D ($ $ (|NonNegativeInteger|))) T (ELT $ NIL)) - ((|abs| ($ $)) T (ELT $ 63)) - ((|sign| ((|Integer|) $)) T (ELT $ NIL)) - ((|negative?| ((|Boolean|) $)) T (ELT $ 76)) - ((|positive?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|min| ($ $ $)) T (ELT $ 68)) - ((|max| ($ $ $)) T (ELT $ 67)) - ((<= ((|Boolean|) $ $)) T (ELT $ NIL)) - ((>= ((|Boolean|) $ $)) T (ELT $ NIL)) - ((> ((|Boolean|) $ $)) T (ELT $ NIL)) - ((< ((|Boolean|) $ $)) T (ELT $ 49)) - ((|principalIdeal| - ((|Record| (|:| |coef| (|List| $)) - (|:| |generator| $)) - (|List| $))) - T (ELT $ NIL)) - ((|expressIdealMember| - ((|Union| (|List| $) "failed") (|List| $) $)) - T (ELT $ NIL)) - ((|sizeLess?| ((|Boolean|) $ $)) T (ELT $ NIL)) - ((|euclideanSize| ((|NonNegativeInteger|) $)) T - (ELT $ NIL)) - ((|divide| - ((|Record| (|:| |quotient| $) (|:| |remainder| $)) - $ $)) - T (ELT $ 61)) - ((|quo| ($ $ $)) T (ELT $ 58)) - ((|rem| ($ $ $)) T (ELT $ 59)) - ((|extendedEuclidean| - ((|Record| (|:| |coef1| $) (|:| |coef2| $) - (|:| |generator| $)) - $ $)) - T (ELT $ NIL)) - ((|extendedEuclidean| - ((|Union| (|Record| (|:| |coef1| $) - (|:| |coef2| $)) - "failed") - $ $ $)) - T (ELT $ NIL)) - ((|multiEuclidean| - ((|Union| (|List| $) "failed") (|List| $) $)) - T (ELT $ NIL)) - ((|factor| ((|Factored| $) $)) T (ELT $ NIL)) - ((|squareFreePart| ($ $)) T (ELT $ NIL)) - ((|squareFree| ((|Factored| $) $)) T (ELT $ NIL)) - ((|prime?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|gcdPolynomial| - ((|SparseUnivariatePolynomial| $) - (|SparseUnivariatePolynomial| $) - (|SparseUnivariatePolynomial| $))) - T (ELT $ NIL)) - ((|lcm| ($ (|List| $))) T (ELT $ NIL)) - ((|lcm| ($ $ $)) T (ELT $ NIL)) - ((|gcd| ($ (|List| $))) T (ELT $ NIL)) - ((|gcd| ($ $ $)) T (ELT $ 62)) - ((|unit?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|associates?| ((|Boolean|) $ $)) T (ELT $ NIL)) - ((|unitCanonical| ($ $)) T (ELT $ NIL)) - ((|unitNormal| - ((|Record| (|:| |unit| $) (|:| |canonical| $) - (|:| |associate| $)) - $)) - T (ELT $ 86)) - ((|exquo| ((|Union| $ "failed") $ $)) T (ELT $ NIL)) - ((|coerce| ($ $)) T (ELT $ NIL)) - ((|coerce| ($ (|Integer|))) T (ELT $ 82)) - ((|characteristic| ((|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|One| ($)) T (CONST $ 36)) - ((|one?| ((|Boolean|) $)) T (ELT $ 66)) - ((** ($ $ (|NonNegativeInteger|))) T (ELT $ 57)) - ((|recip| ((|Union| $ "failed") $)) T (ELT $ NIL)) - ((* ($ $ $)) T (ELT $ 55)) - ((** ($ $ (|PositiveInteger|))) T (ELT $ NIL)) - ((* ($ (|Integer|) $)) T (ELT $ 34)) - ((- ($ $ $)) T (ELT $ 54)) ((- ($ $)) T (ELT $ 52)) - ((|subtractIfCan| ((|Union| $ "failed") $ $)) T - (ELT $ NIL)) - ((* ($ (|NonNegativeInteger|) $)) T (ELT $ NIL)) - ((|zero?| ((|Boolean|) $)) T (ELT $ 65)) - ((|sample| ($)) T (CONST $ NIL)) - ((|Zero| ($)) T (CONST $ 35)) - ((* ($ (|PositiveInteger|) $)) T (ELT $ NIL)) - ((+ ($ $ $)) T (ELT $ 53)) - ((|latex| ((|String|) $)) T (ELT $ NIL)) - ((|hash| ((|SingleInteger|) $)) T (ELT $ 70)) - ((|coerce| ((|OutputForm|) $)) T (ELT $ 31)) - ((= ((|Boolean|) $ $)) T (ELT $ 40)) - ((~= ((|Boolean|) $ $)) T (ELT $ NIL))) - (|addModemap| '|SingleInteger| '(|SingleInteger|) - '((|Join| (|IntegerNumberSystem|) (|Logic|) - (|OpenMath|) - (CATEGORY |domain| (ATTRIBUTE |canonical|) - (ATTRIBUTE |canonicalsClosed|) - (ATTRIBUTE |noetherian|) - (SIGNATURE |max| ($)) - (SIGNATURE |min| ($)) - (SIGNATURE |not| ($ $)) - (SIGNATURE ~ ($ $)) - (SIGNATURE |/\\| ($ $ $)) - (SIGNATURE |\\/| ($ $ $)) - (SIGNATURE |xor| ($ $ $)) - (SIGNATURE |Not| ($ $)) - (SIGNATURE |And| ($ $ $)) - (SIGNATURE |Or| ($ $ $))))) - T '|SingleInteger| - (|put| '|SingleInteger| '|mode| - '(|Mapping| - (|Join| (|IntegerNumberSystem|) (|Logic|) - (|OpenMath|) - (CATEGORY |domain| - (ATTRIBUTE |canonical|) - (ATTRIBUTE |canonicalsClosed|) - (ATTRIBUTE |noetherian|) - (SIGNATURE |max| ($)) - (SIGNATURE |min| ($)) - (SIGNATURE |not| ($ $)) - (SIGNATURE ~ ($ $)) - (SIGNATURE |/\\| ($ $ $)) - (SIGNATURE |\\/| ($ $ $)) - (SIGNATURE |xor| ($ $ $)) - (SIGNATURE |Not| ($ $)) - (SIGNATURE |And| ($ $ $)) - (SIGNATURE |Or| ($ $ $))))) - |$CategoryFrame|)))) - (MAKEPROP '|SingleInteger| 'NILADIC T) diff --git a/src/algebra/strap/STAGG-.lsp b/src/algebra/strap/STAGG-.lsp index 58ab78db..830a8636 100644 --- a/src/algebra/strap/STAGG-.lsp +++ b/src/algebra/strap/STAGG-.lsp @@ -351,119 +351,3 @@ 20 23 2 0 0 0 24 31 2 0 0 0 0 47 1 0 0 34 36 2 0 0 0 0 33))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|StreamAggregate&| '|isFunctor| - '(((|possiblyInfinite?| ((|Boolean|) $)) T (ELT $ 12)) - ((|explicitlyFinite?| ((|Boolean|) $)) T (ELT $ 11)) - ((|setelt| (|#2| $ (|Integer|) |#2|)) T (ELT $ 41)) - ((|elt| (|#2| $ (|Integer|) |#2|)) T (ELT $ NIL)) - ((|elt| (|#2| $ (|Integer|))) T (ELT $ 23)) - ((|fill!| ($ $ |#2|)) T (ELT $ 40)) - ((|concat| ($ $ |#2|)) T (ELT $ NIL)) - ((|concat| ($ (|List| $))) T (ELT $ 36)) - ((|elt| ($ $ (|UniversalSegment| (|Integer|)))) T - (ELT $ 31)) - ((|setelt| - (|#2| $ (|UniversalSegment| (|Integer|)) |#2|)) - T (ELT $ 44)) - ((|setelt| (|#2| $ "last" |#2|)) T (ELT $ NIL)) - ((|setelt| ($ $ "rest" $)) T (ELT $ NIL)) - ((|setelt| (|#2| $ "first" |#2|)) T (ELT $ NIL)) - ((|concat!| ($ $ |#2|)) T (ELT $ NIL)) - ((|concat!| ($ $ $)) T (ELT $ 47)) - ((|elt| (|#2| $ "last")) T (ELT $ NIL)) - ((|elt| ($ $ "rest")) T (ELT $ NIL)) - ((|first| ($ $ (|NonNegativeInteger|))) T (ELT $ 17)) - ((|elt| (|#2| $ "first")) T (ELT $ NIL)) - ((|first| (|#2| $)) T (ELT $ NIL)) - ((|concat| ($ |#2| $)) T (ELT $ NIL)) - ((|concat| ($ $ $)) T (ELT $ 33)) - ((|setelt| (|#2| $ "value" |#2|)) T (ELT $ NIL)) - ((|elt| (|#2| $ "value")) T (ELT $ NIL)) - ((|map!| ($ (|Mapping| |#2| |#2|) $)) T (ELT $ 39))) - (|addModemap| '|StreamAggregate&| - '(|StreamAggregate&| |#1| |#2|) - '((CATEGORY |domain| - (SIGNATURE |possiblyInfinite?| - ((|Boolean|) |#1|)) - (SIGNATURE |explicitlyFinite?| - ((|Boolean|) |#1|)) - (SIGNATURE |setelt| - (|#2| |#1| (|Integer|) |#2|)) - (SIGNATURE |elt| (|#2| |#1| (|Integer|) |#2|)) - (SIGNATURE |elt| (|#2| |#1| (|Integer|))) - (SIGNATURE |fill!| (|#1| |#1| |#2|)) - (SIGNATURE |concat| (|#1| |#1| |#2|)) - (SIGNATURE |concat| (|#1| (|List| |#1|))) - (SIGNATURE |elt| - (|#1| |#1| (|UniversalSegment| (|Integer|)))) - (SIGNATURE |setelt| - (|#2| |#1| (|UniversalSegment| (|Integer|)) - |#2|)) - (SIGNATURE |setelt| (|#2| |#1| "last" |#2|)) - (SIGNATURE |setelt| (|#1| |#1| "rest" |#1|)) - (SIGNATURE |setelt| (|#2| |#1| "first" |#2|)) - (SIGNATURE |concat!| (|#1| |#1| |#2|)) - (SIGNATURE |concat!| (|#1| |#1| |#1|)) - (SIGNATURE |elt| (|#2| |#1| "last")) - (SIGNATURE |elt| (|#1| |#1| "rest")) - (SIGNATURE |first| - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE |elt| (|#2| |#1| "first")) - (SIGNATURE |first| (|#2| |#1|)) - (SIGNATURE |concat| (|#1| |#2| |#1|)) - (SIGNATURE |concat| (|#1| |#1| |#1|)) - (SIGNATURE |setelt| (|#2| |#1| "value" |#2|)) - (SIGNATURE |elt| (|#2| |#1| "value")) - (SIGNATURE |map!| - (|#1| (|Mapping| |#2| |#2|) |#1|))) - (|StreamAggregate| |#2|) (|Type|)) - T '|StreamAggregate&| - (|put| '|StreamAggregate&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |possiblyInfinite?| - ((|Boolean|) |#1|)) - (SIGNATURE |explicitlyFinite?| - ((|Boolean|) |#1|)) - (SIGNATURE |setelt| - (|#2| |#1| (|Integer|) |#2|)) - (SIGNATURE |elt| - (|#2| |#1| (|Integer|) |#2|)) - (SIGNATURE |elt| - (|#2| |#1| (|Integer|))) - (SIGNATURE |fill!| (|#1| |#1| |#2|)) - (SIGNATURE |concat| (|#1| |#1| |#2|)) - (SIGNATURE |concat| - (|#1| (|List| |#1|))) - (SIGNATURE |elt| - (|#1| |#1| - (|UniversalSegment| (|Integer|)))) - (SIGNATURE |setelt| - (|#2| |#1| - (|UniversalSegment| (|Integer|)) - |#2|)) - (SIGNATURE |setelt| - (|#2| |#1| "last" |#2|)) - (SIGNATURE |setelt| - (|#1| |#1| "rest" |#1|)) - (SIGNATURE |setelt| - (|#2| |#1| "first" |#2|)) - (SIGNATURE |concat!| (|#1| |#1| |#2|)) - (SIGNATURE |concat!| (|#1| |#1| |#1|)) - (SIGNATURE |elt| (|#2| |#1| "last")) - (SIGNATURE |elt| (|#1| |#1| "rest")) - (SIGNATURE |first| - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE |elt| (|#2| |#1| "first")) - (SIGNATURE |first| (|#2| |#1|)) - (SIGNATURE |concat| (|#1| |#2| |#1|)) - (SIGNATURE |concat| (|#1| |#1| |#1|)) - (SIGNATURE |setelt| - (|#2| |#1| "value" |#2|)) - (SIGNATURE |elt| (|#2| |#1| "value")) - (SIGNATURE |map!| - (|#1| (|Mapping| |#2| |#2|) |#1|))) - (|StreamAggregate| |#2|) (|Type|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/STAGG.lsp b/src/algebra/strap/STAGG.lsp index 01d3f13a..03bb692d 100644 --- a/src/algebra/strap/STAGG.lsp +++ b/src/algebra/strap/STAGG.lsp @@ -27,7 +27,8 @@ T)) NIL '((|Boolean|)) NIL)) . #1=(|StreamAggregate|))))) . #1#) - (SETELT #0# 0 (LIST '|StreamAggregate| (|devaluate| |t#1|))))))) + (|setShellEntry| #0# 0 + (LIST '|StreamAggregate| (|devaluate| |t#1|))))))) (DEFUN |StreamAggregate| (#0=#:G1405) (LET (#1=#:G1406) @@ -39,9 +40,3 @@ (SETQ #1# (|StreamAggregate;| #0#))) |StreamAggregate;AL|)) #1#)))) - -(SETQ |$CategoryFrame| - (|put| '|StreamAggregate| '|isCategory| T - (|addModemap| '|StreamAggregate| '(|StreamAggregate| |#1|) - '((|Category|) (|Type|)) T '|StreamAggregate| - |$CategoryFrame|))) diff --git a/src/algebra/strap/SYMBOL.lsp b/src/algebra/strap/SYMBOL.lsp index 8f641a49..f19cf4da 100644 --- a/src/algebra/strap/SYMBOL.lsp +++ b/src/algebra/strap/SYMBOL.lsp @@ -915,191 +915,4 @@ 1 2 0 21 0 0 50))))) '|lookupComplete|)) -(SETQ |$CategoryFrame| - (|put| '|Symbol| '|isFunctor| - '(((|sample| ($)) T (CONST $ 124)) - ((|list| ((|List| $) $)) T (ELT $ 107)) - ((|string| ((|String|) $)) T (ELT $ 84)) - ((|elt| ($ $ (|List| (|OutputForm|)))) T (ELT $ 58)) - ((|argscript| ($ $ (|List| (|OutputForm|)))) T - (ELT $ 60)) - ((|superscript| ($ $ (|List| (|OutputForm|)))) T - (ELT $ 59)) - ((|subscript| ($ $ (|List| (|OutputForm|)))) T - (ELT $ 57)) - ((|script| - ($ $ - (|Record| (|:| |sub| (|List| (|OutputForm|))) - (|:| |sup| (|List| (|OutputForm|))) - (|:| |presup| (|List| (|OutputForm|))) - (|:| |presub| (|List| (|OutputForm|))) - (|:| |args| (|List| (|OutputForm|)))))) - T (ELT $ 82)) - ((|script| ($ $ (|List| (|List| (|OutputForm|))))) T - (ELT $ 56)) - ((|scripts| - ((|Record| (|:| |sub| (|List| (|OutputForm|))) - (|:| |sup| (|List| (|OutputForm|))) - (|:| |presup| (|List| (|OutputForm|))) - (|:| |presub| (|List| (|OutputForm|))) - (|:| |args| (|List| (|OutputForm|)))) - $)) - T (ELT $ 87)) - ((|scripted?| ((|Boolean|) $)) T (ELT $ 22)) - ((|name| ($ $)) T (ELT $ 83)) - ((|coerce| ($ (|String|))) T (ELT $ 48)) - ((|resetNew| ((|Void|))) T (ELT $ 106)) - ((|new| ($ $)) T (ELT $ 101)) ((|new| ($)) T (ELT $ 95)) - ((|patternMatch| - ((|PatternMatchResult| (|Float|) $) $ - (|Pattern| (|Float|)) - (|PatternMatchResult| (|Float|) $))) - T (ELT $ 73)) - ((|patternMatch| - ((|PatternMatchResult| (|Integer|) $) $ - (|Pattern| (|Integer|)) - (|PatternMatchResult| (|Integer|) $))) - T (ELT $ 66)) - ((|convert| ((|Pattern| (|Float|)) $)) T (ELT $ 75)) - ((|convert| ((|Pattern| (|Integer|)) $)) T (ELT $ 77)) - ((|convert| ((|Symbol|) $)) T (ELT $ 47)) - ((|OMwrite| ((|Void|) (|OpenMathDevice|) $ (|Boolean|))) - T (ELT $ 36)) - ((|OMwrite| ((|Void|) (|OpenMathDevice|) $)) T - (ELT $ 35)) - ((|OMwrite| ((|String|) $ (|Boolean|))) T (ELT $ 34)) - ((|OMwrite| ((|String|) $)) T (ELT $ 33)) - ((|convert| ((|InputForm|) $)) T (ELT $ 46)) - ((|min| ($ $ $)) T (ELT $ NIL)) - ((|max| ($ $ $)) T (ELT $ NIL)) - ((<= ((|Boolean|) $ $)) T (ELT $ NIL)) - ((>= ((|Boolean|) $ $)) T (ELT $ NIL)) - ((> ((|Boolean|) $ $)) T (ELT $ NIL)) - ((< ((|Boolean|) $ $)) T (ELT $ 50)) - ((|latex| ((|String|) $)) T (ELT $ 90)) - ((|hash| ((|SingleInteger|) $)) T (ELT $ NIL)) - ((|coerce| ((|OutputForm|) $)) T (ELT $ 53)) - ((= ((|Boolean|) $ $)) T (ELT $ 49)) - ((~= ((|Boolean|) $ $)) T (ELT $ NIL))) - (|addModemap| '|Symbol| '(|Symbol|) - '((|Join| (|OrderedSet|) - (|ConvertibleTo| (|InputForm|)) (|OpenMath|) - (|ConvertibleTo| (|Symbol|)) - (|ConvertibleTo| (|Pattern| (|Integer|))) - (|ConvertibleTo| (|Pattern| (|Float|))) - (|PatternMatchable| (|Integer|)) - (|PatternMatchable| (|Float|)) - (CATEGORY |domain| (SIGNATURE |new| ($)) - (SIGNATURE |new| ($ $)) - (SIGNATURE |resetNew| ((|Void|))) - (SIGNATURE |coerce| ($ (|String|))) - (SIGNATURE |name| ($ $)) - (SIGNATURE |scripted?| ((|Boolean|) $)) - (SIGNATURE |scripts| - ((|Record| - (|:| |sub| - (|List| (|OutputForm|))) - (|:| |sup| - (|List| (|OutputForm|))) - (|:| |presup| - (|List| (|OutputForm|))) - (|:| |presub| - (|List| (|OutputForm|))) - (|:| |args| - (|List| (|OutputForm|)))) - $)) - (SIGNATURE |script| - ($ $ - (|List| (|List| (|OutputForm|))))) - (SIGNATURE |script| - ($ $ - (|Record| - (|:| |sub| - (|List| (|OutputForm|))) - (|:| |sup| - (|List| (|OutputForm|))) - (|:| |presup| - (|List| (|OutputForm|))) - (|:| |presub| - (|List| (|OutputForm|))) - (|:| |args| - (|List| (|OutputForm|)))))) - (SIGNATURE |subscript| - ($ $ (|List| (|OutputForm|)))) - (SIGNATURE |superscript| - ($ $ (|List| (|OutputForm|)))) - (SIGNATURE |argscript| - ($ $ (|List| (|OutputForm|)))) - (SIGNATURE |elt| - ($ $ (|List| (|OutputForm|)))) - (SIGNATURE |string| ((|String|) $)) - (SIGNATURE |list| ((|List| $) $)) - (SIGNATURE |sample| ($) |constant|)))) - T '|Symbol| - (|put| '|Symbol| '|mode| - '(|Mapping| - (|Join| (|OrderedSet|) - (|ConvertibleTo| (|InputForm|)) - (|OpenMath|) - (|ConvertibleTo| (|Symbol|)) - (|ConvertibleTo| - (|Pattern| (|Integer|))) - (|ConvertibleTo| - (|Pattern| (|Float|))) - (|PatternMatchable| (|Integer|)) - (|PatternMatchable| (|Float|)) - (CATEGORY |domain| - (SIGNATURE |new| ($)) - (SIGNATURE |new| ($ $)) - (SIGNATURE |resetNew| ((|Void|))) - (SIGNATURE |coerce| - ($ (|String|))) - (SIGNATURE |name| ($ $)) - (SIGNATURE |scripted?| - ((|Boolean|) $)) - (SIGNATURE |scripts| - ((|Record| - (|:| |sub| - (|List| (|OutputForm|))) - (|:| |sup| - (|List| (|OutputForm|))) - (|:| |presup| - (|List| (|OutputForm|))) - (|:| |presub| - (|List| (|OutputForm|))) - (|:| |args| - (|List| (|OutputForm|)))) - $)) - (SIGNATURE |script| - ($ $ - (|List| - (|List| (|OutputForm|))))) - (SIGNATURE |script| - ($ $ - (|Record| - (|:| |sub| - (|List| (|OutputForm|))) - (|:| |sup| - (|List| (|OutputForm|))) - (|:| |presup| - (|List| (|OutputForm|))) - (|:| |presub| - (|List| (|OutputForm|))) - (|:| |args| - (|List| (|OutputForm|)))))) - (SIGNATURE |subscript| - ($ $ (|List| (|OutputForm|)))) - (SIGNATURE |superscript| - ($ $ (|List| (|OutputForm|)))) - (SIGNATURE |argscript| - ($ $ (|List| (|OutputForm|)))) - (SIGNATURE |elt| - ($ $ (|List| (|OutputForm|)))) - (SIGNATURE |string| - ((|String|) $)) - (SIGNATURE |list| ((|List| $) $)) - (SIGNATURE |sample| ($) - |constant|)))) - |$CategoryFrame|)))) - (MAKEPROP '|Symbol| 'NILADIC T) diff --git a/src/algebra/strap/TSETCAT-.lsp b/src/algebra/strap/TSETCAT-.lsp index da0e9e85..10ae2d9c 100644 --- a/src/algebra/strap/TSETCAT-.lsp +++ b/src/algebra/strap/TSETCAT-.lsp @@ -1150,302 +1150,3 @@ 43 2 0 11 0 99 100 1 0 114 0 115 2 0 11 9 0 118 2 0 11 0 0 19))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|TriangularSetCategory&| '|isFunctor| - '(((|coHeight| ((|NonNegativeInteger|) $)) T (ELT $ 130)) - ((|extend| ($ $ |#5|)) T (ELT $ 127)) - ((|select| ((|Union| |#5| "failed") $ |#4|)) T - (ELT $ 119)) - ((|algebraic?| ((|Boolean|) |#4| $)) T (ELT $ 118)) - ((|algebraicVariables| ((|List| |#4|) $)) T (ELT $ 115)) - ((|rest| ((|Union| $ "failed") $)) T (ELT $ 112)) - ((|last| ((|Union| |#5| "failed") $)) T (ELT $ 110)) - ((|first| ((|Union| |#5| "failed") $)) T (ELT $ 109)) - ((|reduceByQuasiMonic| (|#5| |#5| $)) T (ELT $ 98)) - ((|collectQuasiMonic| ($ $)) T (ELT $ 120)) - ((|removeZero| (|#5| |#5| $)) T (ELT $ 94)) - ((|initiallyReduce| (|#5| |#5| $)) T (ELT $ 81)) - ((|headReduce| (|#5| |#5| $)) T (ELT $ 78)) - ((|stronglyReduce| (|#5| |#5| $)) T (ELT $ 75)) - ((|rewriteSetWithReduction| - ((|List| |#5|) (|List| |#5|) $ - (|Mapping| |#5| |#5| |#5|) - (|Mapping| (|Boolean|) |#5| |#5|))) - T (ELT $ 73)) - ((|reduce| - (|#5| |#5| $ (|Mapping| |#5| |#5| |#5|) - (|Mapping| (|Boolean|) |#5| |#5|))) - T (ELT $ 69)) - ((|initiallyReduced?| ((|Boolean|) $)) T (ELT $ 107)) - ((|headReduced?| ((|Boolean|) $)) T (ELT $ 105)) - ((|stronglyReduced?| ((|Boolean|) $)) T (ELT $ 102)) - ((|autoReduced?| - ((|Boolean|) $ - (|Mapping| (|Boolean|) |#5| (|List| |#5|)))) - T (ELT $ 100)) - ((|initiallyReduced?| ((|Boolean|) |#5| $)) T - (ELT $ 67)) - ((|headReduced?| ((|Boolean|) |#5| $)) T (ELT $ 63)) - ((|stronglyReduced?| ((|Boolean|) |#5| $)) T (ELT $ 60)) - ((|reduced?| - ((|Boolean|) |#5| $ - (|Mapping| (|Boolean|) |#5| |#5|))) - T (ELT $ 31)) - ((|normalized?| ((|Boolean|) $)) T (ELT $ 103)) - ((|normalized?| ((|Boolean|) |#5| $)) T (ELT $ 58)) - ((|quasiComponent| - ((|Record| (|:| |close| (|List| |#5|)) - (|:| |open| (|List| |#5|))) - $)) - T (ELT $ 55)) - ((|degree| ((|NonNegativeInteger|) $)) T (ELT $ 52)) - ((|initials| ((|List| |#5|) $)) T (ELT $ 49)) - ((|basicSet| - ((|Union| (|Record| (|:| |bas| $) - (|:| |top| (|List| |#5|))) - "failed") - (|List| |#5|) (|Mapping| (|Boolean|) |#5|) - (|Mapping| (|Boolean|) |#5| |#5|))) - T (ELT $ 45)) - ((|basicSet| - ((|Union| (|Record| (|:| |bas| $) - (|:| |top| (|List| |#5|))) - "failed") - (|List| |#5|) (|Mapping| (|Boolean|) |#5| |#5|))) - T (ELT $ 43)) - ((|infRittWu?| ((|Boolean|) $ $)) T (ELT $ 27)) - ((|collectUpper| ($ $ |#4|)) T (ELT $ 122)) - ((|collectUnder| ($ $ |#4|)) T (ELT $ 121)) - ((|mvar| (|#4| $)) T (ELT $ 108)) - ((|retractIfCan| ((|Union| $ "failed") (|List| |#5|))) T - (ELT $ 126)) - ((|coerce| ((|List| |#5|) $)) T (ELT $ 113)) - ((|construct| ($ (|List| |#5|))) T (ELT $ 124)) - ((|reduce| (|#5| (|Mapping| |#5| |#5| |#5|) $)) T - (ELT $ NIL)) - ((|reduce| (|#5| (|Mapping| |#5| |#5| |#5|) $ |#5|)) T - (ELT $ NIL)) - ((|select| ($ (|Mapping| (|Boolean|) |#5|) $)) T - (ELT $ NIL)) - ((|reduce| - (|#5| (|Mapping| |#5| |#5| |#5|) $ |#5| |#5|)) - T (ELT $ NIL)) - ((|coerce| ((|OutputForm|) $)) T (ELT $ NIL)) - ((= ((|Boolean|) $ $)) T (ELT $ 19))) - (|addModemap| '|TriangularSetCategory&| - '(|TriangularSetCategory&| |#1| |#2| |#3| |#4| |#5|) - '((CATEGORY |domain| - (SIGNATURE |coHeight| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |extend| (|#1| |#1| |#5|)) - (SIGNATURE |select| - ((|Union| |#5| "failed") |#1| |#4|)) - (SIGNATURE |algebraic?| ((|Boolean|) |#4| |#1|)) - (SIGNATURE |algebraicVariables| - ((|List| |#4|) |#1|)) - (SIGNATURE |rest| - ((|Union| |#1| "failed") |#1|)) - (SIGNATURE |last| - ((|Union| |#5| "failed") |#1|)) - (SIGNATURE |first| - ((|Union| |#5| "failed") |#1|)) - (SIGNATURE |reduceByQuasiMonic| - (|#5| |#5| |#1|)) - (SIGNATURE |collectQuasiMonic| (|#1| |#1|)) - (SIGNATURE |removeZero| (|#5| |#5| |#1|)) - (SIGNATURE |initiallyReduce| (|#5| |#5| |#1|)) - (SIGNATURE |headReduce| (|#5| |#5| |#1|)) - (SIGNATURE |stronglyReduce| (|#5| |#5| |#1|)) - (SIGNATURE |rewriteSetWithReduction| - ((|List| |#5|) (|List| |#5|) |#1| - (|Mapping| |#5| |#5| |#5|) - (|Mapping| (|Boolean|) |#5| |#5|))) - (SIGNATURE |reduce| - (|#5| |#5| |#1| (|Mapping| |#5| |#5| |#5|) - (|Mapping| (|Boolean|) |#5| |#5|))) - (SIGNATURE |initiallyReduced?| - ((|Boolean|) |#1|)) - (SIGNATURE |headReduced?| ((|Boolean|) |#1|)) - (SIGNATURE |stronglyReduced?| - ((|Boolean|) |#1|)) - (SIGNATURE |autoReduced?| - ((|Boolean|) |#1| - (|Mapping| (|Boolean|) |#5| (|List| |#5|)))) - (SIGNATURE |initiallyReduced?| - ((|Boolean|) |#5| |#1|)) - (SIGNATURE |headReduced?| - ((|Boolean|) |#5| |#1|)) - (SIGNATURE |stronglyReduced?| - ((|Boolean|) |#5| |#1|)) - (SIGNATURE |reduced?| - ((|Boolean|) |#5| |#1| - (|Mapping| (|Boolean|) |#5| |#5|))) - (SIGNATURE |normalized?| ((|Boolean|) |#1|)) - (SIGNATURE |normalized?| - ((|Boolean|) |#5| |#1|)) - (SIGNATURE |quasiComponent| - ((|Record| (|:| |close| (|List| |#5|)) - (|:| |open| (|List| |#5|))) - |#1|)) - (SIGNATURE |degree| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |initials| ((|List| |#5|) |#1|)) - (SIGNATURE |basicSet| - ((|Union| (|Record| (|:| |bas| |#1|) - (|:| |top| (|List| |#5|))) - "failed") - (|List| |#5|) (|Mapping| (|Boolean|) |#5|) - (|Mapping| (|Boolean|) |#5| |#5|))) - (SIGNATURE |basicSet| - ((|Union| (|Record| (|:| |bas| |#1|) - (|:| |top| (|List| |#5|))) - "failed") - (|List| |#5|) - (|Mapping| (|Boolean|) |#5| |#5|))) - (SIGNATURE |infRittWu?| ((|Boolean|) |#1| |#1|)) - (SIGNATURE |collectUpper| (|#1| |#1| |#4|)) - (SIGNATURE |collectUnder| (|#1| |#1| |#4|)) - (SIGNATURE |mvar| (|#4| |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| |#1| "failed") (|List| |#5|))) - (SIGNATURE |coerce| ((|List| |#5|) |#1|)) - (SIGNATURE |construct| (|#1| (|List| |#5|))) - (SIGNATURE |reduce| - (|#5| (|Mapping| |#5| |#5| |#5|) |#1|)) - (SIGNATURE |reduce| - (|#5| (|Mapping| |#5| |#5| |#5|) |#1| |#5|)) - (SIGNATURE |select| - (|#1| (|Mapping| (|Boolean|) |#5|) |#1|)) - (SIGNATURE |reduce| - (|#5| (|Mapping| |#5| |#5| |#5|) |#1| |#5| - |#5|)) - (SIGNATURE |coerce| ((|OutputForm|) |#1|)) - (SIGNATURE = ((|Boolean|) |#1| |#1|))) - (|TriangularSetCategory| |#2| |#3| |#4| |#5|) - (|IntegralDomain|) (|OrderedAbelianMonoidSup|) - (|OrderedSet|) - (|RecursivePolynomialCategory| |#2| |#3| |#4|)) - T '|TriangularSetCategory&| - (|put| '|TriangularSetCategory&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |coHeight| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |extend| (|#1| |#1| |#5|)) - (SIGNATURE |select| - ((|Union| |#5| "failed") |#1| - |#4|)) - (SIGNATURE |algebraic?| - ((|Boolean|) |#4| |#1|)) - (SIGNATURE |algebraicVariables| - ((|List| |#4|) |#1|)) - (SIGNATURE |rest| - ((|Union| |#1| "failed") |#1|)) - (SIGNATURE |last| - ((|Union| |#5| "failed") |#1|)) - (SIGNATURE |first| - ((|Union| |#5| "failed") |#1|)) - (SIGNATURE |reduceByQuasiMonic| - (|#5| |#5| |#1|)) - (SIGNATURE |collectQuasiMonic| - (|#1| |#1|)) - (SIGNATURE |removeZero| - (|#5| |#5| |#1|)) - (SIGNATURE |initiallyReduce| - (|#5| |#5| |#1|)) - (SIGNATURE |headReduce| - (|#5| |#5| |#1|)) - (SIGNATURE |stronglyReduce| - (|#5| |#5| |#1|)) - (SIGNATURE |rewriteSetWithReduction| - ((|List| |#5|) (|List| |#5|) |#1| - (|Mapping| |#5| |#5| |#5|) - (|Mapping| (|Boolean|) |#5| |#5|))) - (SIGNATURE |reduce| - (|#5| |#5| |#1| - (|Mapping| |#5| |#5| |#5|) - (|Mapping| (|Boolean|) |#5| |#5|))) - (SIGNATURE |initiallyReduced?| - ((|Boolean|) |#1|)) - (SIGNATURE |headReduced?| - ((|Boolean|) |#1|)) - (SIGNATURE |stronglyReduced?| - ((|Boolean|) |#1|)) - (SIGNATURE |autoReduced?| - ((|Boolean|) |#1| - (|Mapping| (|Boolean|) |#5| - (|List| |#5|)))) - (SIGNATURE |initiallyReduced?| - ((|Boolean|) |#5| |#1|)) - (SIGNATURE |headReduced?| - ((|Boolean|) |#5| |#1|)) - (SIGNATURE |stronglyReduced?| - ((|Boolean|) |#5| |#1|)) - (SIGNATURE |reduced?| - ((|Boolean|) |#5| |#1| - (|Mapping| (|Boolean|) |#5| |#5|))) - (SIGNATURE |normalized?| - ((|Boolean|) |#1|)) - (SIGNATURE |normalized?| - ((|Boolean|) |#5| |#1|)) - (SIGNATURE |quasiComponent| - ((|Record| - (|:| |close| (|List| |#5|)) - (|:| |open| (|List| |#5|))) - |#1|)) - (SIGNATURE |degree| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |initials| - ((|List| |#5|) |#1|)) - (SIGNATURE |basicSet| - ((|Union| - (|Record| (|:| |bas| |#1|) - (|:| |top| (|List| |#5|))) - "failed") - (|List| |#5|) - (|Mapping| (|Boolean|) |#5|) - (|Mapping| (|Boolean|) |#5| |#5|))) - (SIGNATURE |basicSet| - ((|Union| - (|Record| (|:| |bas| |#1|) - (|:| |top| (|List| |#5|))) - "failed") - (|List| |#5|) - (|Mapping| (|Boolean|) |#5| |#5|))) - (SIGNATURE |infRittWu?| - ((|Boolean|) |#1| |#1|)) - (SIGNATURE |collectUpper| - (|#1| |#1| |#4|)) - (SIGNATURE |collectUnder| - (|#1| |#1| |#4|)) - (SIGNATURE |mvar| (|#4| |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| |#1| "failed") - (|List| |#5|))) - (SIGNATURE |coerce| - ((|List| |#5|) |#1|)) - (SIGNATURE |construct| - (|#1| (|List| |#5|))) - (SIGNATURE |reduce| - (|#5| (|Mapping| |#5| |#5| |#5|) - |#1|)) - (SIGNATURE |reduce| - (|#5| (|Mapping| |#5| |#5| |#5|) - |#1| |#5|)) - (SIGNATURE |select| - (|#1| (|Mapping| (|Boolean|) |#5|) - |#1|)) - (SIGNATURE |reduce| - (|#5| (|Mapping| |#5| |#5| |#5|) - |#1| |#5| |#5|)) - (SIGNATURE |coerce| - ((|OutputForm|) |#1|)) - (SIGNATURE = ((|Boolean|) |#1| |#1|))) - (|TriangularSetCategory| |#2| |#3| |#4| - |#5|) - (|IntegralDomain|) - (|OrderedAbelianMonoidSup|) (|OrderedSet|) - (|RecursivePolynomialCategory| |#2| |#3| - |#4|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/TSETCAT.lsp b/src/algebra/strap/TSETCAT.lsp index 12fb6a33..acfb9eb0 100644 --- a/src/algebra/strap/TSETCAT.lsp +++ b/src/algebra/strap/TSETCAT.lsp @@ -179,10 +179,10 @@ (|List| |t#4|) (|List| $)) NIL)) . #1=(|TriangularSetCategory|))))) . #1#) - (SETELT #0# 0 - (LIST '|TriangularSetCategory| (|devaluate| |t#1|) - (|devaluate| |t#2|) (|devaluate| |t#3|) - (|devaluate| |t#4|))))))) + (|setShellEntry| #0# 0 + (LIST '|TriangularSetCategory| (|devaluate| |t#1|) + (|devaluate| |t#2|) (|devaluate| |t#3|) + (|devaluate| |t#4|))))))) (DEFUN |TriangularSetCategory| (&REST #0=#:G1451 &AUX #1=#:G1449) (DSETQ #1# #0#) @@ -198,12 +198,3 @@ #1#))) |TriangularSetCategory;AL|)) #2#)))) - -(SETQ |$CategoryFrame| - (|put| '|TriangularSetCategory| '|isCategory| T - (|addModemap| '|TriangularSetCategory| - '(|TriangularSetCategory| |#1| |#2| |#3| |#4|) - '((|Category|) (|IntegralDomain|) - (|OrderedAbelianMonoidSup|) (|OrderedSet|) - (|RecursivePolynomialCategory| |t#1| |t#2| |t#3|)) - T '|TriangularSetCategory| |$CategoryFrame|))) diff --git a/src/algebra/strap/UFD-.lsp b/src/algebra/strap/UFD-.lsp index 1b71367c..9b2273b3 100644 --- a/src/algebra/strap/UFD-.lsp +++ b/src/algebra/strap/UFD-.lsp @@ -87,24 +87,3 @@ 0 0 0 15 0 6 0 16 1 6 7 0 18 1 9 21 0 22 1 0 0 0 17 1 0 23 0 24))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|UniqueFactorizationDomain&| '|isFunctor| - '(((|squareFreePart| ($ $)) T (ELT $ 17)) - ((|prime?| ((|Boolean|) $)) T (ELT $ 24))) - (|addModemap| '|UniqueFactorizationDomain&| - '(|UniqueFactorizationDomain&| |#1|) - '((CATEGORY |domain| - (SIGNATURE |squareFreePart| (|#1| |#1|)) - (SIGNATURE |prime?| ((|Boolean|) |#1|))) - (|UniqueFactorizationDomain|)) - T '|UniqueFactorizationDomain&| - (|put| '|UniqueFactorizationDomain&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |squareFreePart| - (|#1| |#1|)) - (SIGNATURE |prime?| - ((|Boolean|) |#1|))) - (|UniqueFactorizationDomain|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/UFD.lsp b/src/algebra/strap/UFD.lsp index f92b4bf5..1379c56d 100644 --- a/src/algebra/strap/UFD.lsp +++ b/src/algebra/strap/UFD.lsp @@ -15,7 +15,7 @@ ((|factor| ((|Factored| $) $)) T)) NIL '((|Factored| $) (|Boolean|)) NIL)) |UniqueFactorizationDomain|) - (SETELT #0# 0 '(|UniqueFactorizationDomain|)))))) + (|setShellEntry| #0# 0 '(|UniqueFactorizationDomain|)))))) (DEFUN |UniqueFactorizationDomain| () (LET () @@ -24,10 +24,4 @@ (T (SETQ |UniqueFactorizationDomain;AL| (|UniqueFactorizationDomain;|)))))) -(SETQ |$CategoryFrame| - (|put| '|UniqueFactorizationDomain| '|isCategory| T - (|addModemap| '|UniqueFactorizationDomain| - '(|UniqueFactorizationDomain|) '((|Category|)) T - '|UniqueFactorizationDomain| |$CategoryFrame|))) - (MAKEPROP '|UniqueFactorizationDomain| 'NILADIC T) diff --git a/src/algebra/strap/ULSCAT.lsp b/src/algebra/strap/ULSCAT.lsp index e87c6157..c3b72800 100644 --- a/src/algebra/strap/ULSCAT.lsp +++ b/src/algebra/strap/ULSCAT.lsp @@ -93,9 +93,9 @@ (|:| |c| |t#1|)))) NIL)) . #2=(|UnivariateLaurentSeriesCategory|)))))) . #2#) - (SETELT #0# 0 - (LIST '|UnivariateLaurentSeriesCategory| - (|devaluate| |t#1|))))))) + (|setShellEntry| #0# 0 + (LIST '|UnivariateLaurentSeriesCategory| + (|devaluate| |t#1|))))))) (DEFUN |UnivariateLaurentSeriesCategory| (#0=#:G1400) (LET (#1=#:G1401) @@ -111,10 +111,3 @@ #0#))) |UnivariateLaurentSeriesCategory;AL|)) #1#)))) - -(SETQ |$CategoryFrame| - (|put| '|UnivariateLaurentSeriesCategory| '|isCategory| T - (|addModemap| '|UnivariateLaurentSeriesCategory| - '(|UnivariateLaurentSeriesCategory| |#1|) - '((|Category|) (|Ring|)) T - '|UnivariateLaurentSeriesCategory| |$CategoryFrame|))) diff --git a/src/algebra/strap/UPOLYC-.lsp b/src/algebra/strap/UPOLYC-.lsp index ceef39e9..ddb992a4 100644 --- a/src/algebra/strap/UPOLYC-.lsp +++ b/src/algebra/strap/UPOLYC-.lsp @@ -1402,642 +1402,3 @@ 19 0 14 20 2 0 0 0 12 125 2 0 120 0 0 161 2 0 156 143 0 157 1 0 0 12 51))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|UnivariatePolynomialCategory&| '|isFunctor| - '(((|coerce| ($ $)) T (ELT $ NIL)) - ((|gcdPolynomial| - ((|SparseUnivariatePolynomial| $) - (|SparseUnivariatePolynomial| $) - (|SparseUnivariatePolynomial| $))) - T (ELT $ 182)) - ((|squareFree| ((|Factored| $) $)) T (ELT $ 173)) - ((|squareFreePart| ($ $)) T (ELT $ 175)) - ((|coerce| ($ (|Fraction| (|Integer|)))) T (ELT $ NIL)) - ((|init| ($)) T (ELT $ 119)) - ((|nextItem| ((|Union| $ "failed") $)) T (ELT $ 123)) - ((|elt| ((|Fraction| $) $ (|Fraction| $))) T - (ELT $ 169)) - ((|euclideanSize| ((|NonNegativeInteger|) $)) T - (ELT $ 188)) - ((|divide| - ((|Record| (|:| |quotient| $) (|:| |remainder| $)) - $ $)) - T (ELT $ 191)) - ((|integrate| ($ $)) T (ELT $ 197)) - ((|elt| (|#2| (|Fraction| $) |#2|)) T (ELT $ 187)) - ((|separate| - ((|Record| (|:| |primePart| $) - (|:| |commonPart| $)) - $ $)) - T (ELT $ 130)) - ((|pseudoDivide| - ((|Record| (|:| |coef| |#2|) (|:| |quotient| $) - (|:| |remainder| $)) - $ $)) - T (ELT $ 153)) - ((|pseudoQuotient| ($ $ $)) T (ELT $ 151)) - ((|composite| - ((|Union| (|Fraction| $) "failed") (|Fraction| $) - $)) - T (ELT $ 157)) - ((|composite| ((|Union| $ "failed") $ $)) T (ELT $ 161)) - ((|order| ((|NonNegativeInteger|) $ $)) T (ELT $ 170)) - ((|elt| ((|Fraction| $) (|Fraction| $) (|Fraction| $))) - T (ELT $ 147)) - ((|differentiate| ($ $ (|Mapping| |#2| |#2|) $)) T - (ELT $ 134)) - ((|shiftLeft| ($ $ (|NonNegativeInteger|))) T - (ELT $ 73)) - ((|shiftRight| ($ $ (|NonNegativeInteger|))) T - (ELT $ 71)) - ((|karatsubaDivide| - ((|Record| (|:| |quotient| $) (|:| |remainder| $)) - $ (|NonNegativeInteger|))) - T (ELT $ 70)) - ((|unmakeSUP| ($ (|SparseUnivariatePolynomial| |#2|))) T - (ELT $ 67)) - ((|makeSUP| ((|SparseUnivariatePolynomial| |#2|) $)) T - (ELT $ 59)) - ((|vectorise| - ((|Vector| |#2|) $ (|NonNegativeInteger|))) - T (ELT $ 114)) - ((|differentiate| ($ $ (|Mapping| |#2| |#2|))) T - (ELT $ 137)) - ((|differentiate| - ($ $ (|Mapping| |#2| |#2|) (|NonNegativeInteger|))) - T (ELT $ NIL)) - ((|differentiate| - ($ $ (|List| (|Symbol|)) - (|List| (|NonNegativeInteger|)))) - T (ELT $ NIL)) - ((|differentiate| - ($ $ (|Symbol|) (|NonNegativeInteger|))) - T (ELT $ NIL)) - ((|differentiate| ($ $ (|List| (|Symbol|)))) T - (ELT $ NIL)) - ((|differentiate| ($ $ (|Symbol|))) T (ELT $ NIL)) - ((|differentiate| ($ $)) T (ELT $ 138)) - ((|differentiate| ($ $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|elt| ($ $ $)) T (ELT $ NIL)) - ((|elt| (|#2| $ |#2|)) T (ELT $ NIL)) - ((|factor| ((|Factored| $) $)) T (ELT $ 107)) - ((|squareFreePolynomial| - ((|Factored| (|SparseUnivariatePolynomial| $)) - (|SparseUnivariatePolynomial| $))) - T (ELT $ 185)) - ((|factorPolynomial| - ((|Factored| (|SparseUnivariatePolynomial| $)) - (|SparseUnivariatePolynomial| $))) - T (ELT $ 86)) - ((|factorSquareFreePolynomial| - ((|Factored| (|SparseUnivariatePolynomial| $)) - (|SparseUnivariatePolynomial| $))) - T (ELT $ 88)) - ((|solveLinearPolynomialEquation| - ((|Union| (|List| (|SparseUnivariatePolynomial| $)) - "failed") - (|List| (|SparseUnivariatePolynomial| $)) - (|SparseUnivariatePolynomial| $))) - T (ELT $ 82)) - ((|content| ($ $ (|SingletonAsOrderedSet|))) T - (ELT $ 125)) - ((|variables| ((|List| (|SingletonAsOrderedSet|)) $)) T - (ELT $ 15)) - ((|totalDegree| - ((|NonNegativeInteger|) $ - (|List| (|SingletonAsOrderedSet|)))) - T (ELT $ 18)) - ((|totalDegree| ((|NonNegativeInteger|) $)) T - (ELT $ NIL)) - ((|monomial| - ($ $ (|List| (|SingletonAsOrderedSet|)) - (|List| (|NonNegativeInteger|)))) - T (ELT $ NIL)) - ((|monomial| - ($ $ (|SingletonAsOrderedSet|) - (|NonNegativeInteger|))) - T (ELT $ 47)) - ((|minimumDegree| - ((|List| (|NonNegativeInteger|)) $ - (|List| (|SingletonAsOrderedSet|)))) - T (ELT $ 43)) - ((|minimumDegree| - ((|NonNegativeInteger|) $ - (|SingletonAsOrderedSet|))) - T (ELT $ 42)) - ((|mainVariable| - ((|Union| (|SingletonAsOrderedSet|) "failed") $)) - T (ELT $ 40)) - ((|degree| - ((|List| (|NonNegativeInteger|)) $ - (|List| (|SingletonAsOrderedSet|)))) - T (ELT $ 20)) - ((|degree| - ((|NonNegativeInteger|) $ - (|SingletonAsOrderedSet|))) - T (ELT $ 16)) - ((|retract| ((|SingletonAsOrderedSet|) $)) T - (ELT $ NIL)) - ((|retractIfCan| - ((|Union| (|SingletonAsOrderedSet|) "failed") $)) - T (ELT $ NIL)) - ((|coerce| ($ (|SingletonAsOrderedSet|))) T (ELT $ 51)) - ((|eval| ($ $ (|List| (|SingletonAsOrderedSet|)) - (|List| $))) - T (ELT $ 23)) - ((|eval| ($ $ (|SingletonAsOrderedSet|) $)) T - (ELT $ 25)) - ((|eval| ($ $ (|List| (|SingletonAsOrderedSet|)) - (|List| |#2|))) - T (ELT $ 28)) - ((|eval| ($ $ (|SingletonAsOrderedSet|) |#2|)) T - (ELT $ 31)) - ((|eval| ($ $ (|List| $) (|List| $))) T (ELT $ NIL)) - ((|eval| ($ $ $ $)) T (ELT $ NIL)) - ((|eval| ($ $ (|Equation| $))) T (ELT $ NIL)) - ((|eval| ($ $ (|List| (|Equation| $)))) T (ELT $ 39)) - ((|degree| ((|NonNegativeInteger|) $)) T (ELT $ NIL)) - ((|monomial| ($ |#2| (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|retract| ((|Integer|) $)) T (ELT $ NIL)) - ((|retractIfCan| ((|Union| (|Integer|) "failed") $)) T - (ELT $ NIL)) - ((|retract| ((|Fraction| (|Integer|)) $)) T (ELT $ NIL)) - ((|retractIfCan| - ((|Union| (|Fraction| (|Integer|)) "failed") $)) - T (ELT $ NIL)) - ((|coerce| ($ |#2|)) T (ELT $ NIL)) - ((|retractIfCan| ((|Union| |#2| "failed") $)) T - (ELT $ 117)) - ((|retract| (|#2| $)) T (ELT $ 115)) - ((|minimumDegree| ((|NonNegativeInteger|) $)) T - (ELT $ NIL)) - ((|content| (|#2| $)) T (ELT $ NIL)) - ((|differentiate| - ($ $ (|List| (|SingletonAsOrderedSet|)) - (|List| (|NonNegativeInteger|)))) - T (ELT $ NIL)) - ((|differentiate| - ($ $ (|SingletonAsOrderedSet|) - (|NonNegativeInteger|))) - T (ELT $ NIL)) - ((|differentiate| - ($ $ (|List| (|SingletonAsOrderedSet|)))) - T (ELT $ NIL)) - ((|differentiate| ($ $ (|SingletonAsOrderedSet|))) T - (ELT $ 140)) - ((|coerce| ($ (|Integer|))) T (ELT $ NIL)) - ((|coerce| ((|OutputForm|) $)) T (ELT $ NIL))) - (|addModemap| '|UnivariatePolynomialCategory&| - '(|UnivariatePolynomialCategory&| |#1| |#2|) - '((CATEGORY |domain| (SIGNATURE |coerce| (|#1| |#1|)) - (SIGNATURE |gcdPolynomial| - ((|SparseUnivariatePolynomial| |#1|) - (|SparseUnivariatePolynomial| |#1|) - (|SparseUnivariatePolynomial| |#1|))) - (SIGNATURE |squareFree| - ((|Factored| |#1|) |#1|)) - (SIGNATURE |squareFreePart| (|#1| |#1|)) - (SIGNATURE |coerce| - (|#1| (|Fraction| (|Integer|)))) - (SIGNATURE |init| (|#1|)) - (SIGNATURE |nextItem| - ((|Union| |#1| "failed") |#1|)) - (SIGNATURE |elt| - ((|Fraction| |#1|) |#1| (|Fraction| |#1|))) - (SIGNATURE |euclideanSize| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |divide| - ((|Record| (|:| |quotient| |#1|) - (|:| |remainder| |#1|)) - |#1| |#1|)) - (SIGNATURE |integrate| (|#1| |#1|)) - (SIGNATURE |elt| (|#2| (|Fraction| |#1|) |#2|)) - (SIGNATURE |separate| - ((|Record| (|:| |primePart| |#1|) - (|:| |commonPart| |#1|)) - |#1| |#1|)) - (SIGNATURE |pseudoDivide| - ((|Record| (|:| |coef| |#2|) - (|:| |quotient| |#1|) - (|:| |remainder| |#1|)) - |#1| |#1|)) - (SIGNATURE |pseudoQuotient| (|#1| |#1| |#1|)) - (SIGNATURE |composite| - ((|Union| (|Fraction| |#1|) "failed") - (|Fraction| |#1|) |#1|)) - (SIGNATURE |composite| - ((|Union| |#1| "failed") |#1| |#1|)) - (SIGNATURE |order| - ((|NonNegativeInteger|) |#1| |#1|)) - (SIGNATURE |elt| - ((|Fraction| |#1|) (|Fraction| |#1|) - (|Fraction| |#1|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|Mapping| |#2| |#2|) |#1|)) - (SIGNATURE |shiftLeft| - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE |shiftRight| - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE |karatsubaDivide| - ((|Record| (|:| |quotient| |#1|) - (|:| |remainder| |#1|)) - |#1| (|NonNegativeInteger|))) - (SIGNATURE |unmakeSUP| - (|#1| (|SparseUnivariatePolynomial| |#2|))) - (SIGNATURE |makeSUP| - ((|SparseUnivariatePolynomial| |#2|) |#1|)) - (SIGNATURE |vectorise| - ((|Vector| |#2|) |#1| - (|NonNegativeInteger|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|Mapping| |#2| |#2|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|Mapping| |#2| |#2|) - (|NonNegativeInteger|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|List| (|Symbol|)) - (|List| (|NonNegativeInteger|)))) - (SIGNATURE |differentiate| - (|#1| |#1| (|Symbol|) - (|NonNegativeInteger|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|List| (|Symbol|)))) - (SIGNATURE |differentiate| - (|#1| |#1| (|Symbol|))) - (SIGNATURE |differentiate| (|#1| |#1|)) - (SIGNATURE |differentiate| - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE |elt| (|#1| |#1| |#1|)) - (SIGNATURE |elt| (|#2| |#1| |#2|)) - (SIGNATURE |factor| ((|Factored| |#1|) |#1|)) - (SIGNATURE |squareFreePolynomial| - ((|Factored| - (|SparseUnivariatePolynomial| |#1|)) - (|SparseUnivariatePolynomial| |#1|))) - (SIGNATURE |factorPolynomial| - ((|Factored| - (|SparseUnivariatePolynomial| |#1|)) - (|SparseUnivariatePolynomial| |#1|))) - (SIGNATURE |factorSquareFreePolynomial| - ((|Factored| - (|SparseUnivariatePolynomial| |#1|)) - (|SparseUnivariatePolynomial| |#1|))) - (SIGNATURE |solveLinearPolynomialEquation| - ((|Union| (|List| - (|SparseUnivariatePolynomial| - |#1|)) - "failed") - (|List| (|SparseUnivariatePolynomial| |#1|)) - (|SparseUnivariatePolynomial| |#1|))) - (SIGNATURE |content| - (|#1| |#1| (|SingletonAsOrderedSet|))) - (SIGNATURE |variables| - ((|List| (|SingletonAsOrderedSet|)) |#1|)) - (SIGNATURE |totalDegree| - ((|NonNegativeInteger|) |#1| - (|List| (|SingletonAsOrderedSet|)))) - (SIGNATURE |totalDegree| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |monomial| - (|#1| |#1| - (|List| (|SingletonAsOrderedSet|)) - (|List| (|NonNegativeInteger|)))) - (SIGNATURE |monomial| - (|#1| |#1| (|SingletonAsOrderedSet|) - (|NonNegativeInteger|))) - (SIGNATURE |minimumDegree| - ((|List| (|NonNegativeInteger|)) |#1| - (|List| (|SingletonAsOrderedSet|)))) - (SIGNATURE |minimumDegree| - ((|NonNegativeInteger|) |#1| - (|SingletonAsOrderedSet|))) - (SIGNATURE |mainVariable| - ((|Union| (|SingletonAsOrderedSet|) - "failed") - |#1|)) - (SIGNATURE |degree| - ((|List| (|NonNegativeInteger|)) |#1| - (|List| (|SingletonAsOrderedSet|)))) - (SIGNATURE |degree| - ((|NonNegativeInteger|) |#1| - (|SingletonAsOrderedSet|))) - (SIGNATURE |retract| - ((|SingletonAsOrderedSet|) |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| (|SingletonAsOrderedSet|) - "failed") - |#1|)) - (SIGNATURE |coerce| - (|#1| (|SingletonAsOrderedSet|))) - (SIGNATURE |eval| - (|#1| |#1| - (|List| (|SingletonAsOrderedSet|)) - (|List| |#1|))) - (SIGNATURE |eval| - (|#1| |#1| (|SingletonAsOrderedSet|) |#1|)) - (SIGNATURE |eval| - (|#1| |#1| - (|List| - (|SingletonAsOrderedSet|)) - (|List| |#2|))) - (SIGNATURE |eval| - (|#1| |#1| (|SingletonAsOrderedSet|) |#2|)) - (SIGNATURE |eval| - (|#1| |#1| (|List| |#1|) (|List| |#1|))) - (SIGNATURE |eval| (|#1| |#1| |#1| |#1|)) - (SIGNATURE |eval| (|#1| |#1| (|Equation| |#1|))) - (SIGNATURE |eval| - (|#1| |#1| (|List| (|Equation| |#1|)))) - (SIGNATURE |degree| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |monomial| - (|#1| |#2| (|NonNegativeInteger|))) - (SIGNATURE |retract| ((|Integer|) |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| (|Integer|) "failed") |#1|)) - (SIGNATURE |retract| - ((|Fraction| (|Integer|)) |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| (|Fraction| (|Integer|)) "failed") - |#1|)) - (SIGNATURE |coerce| (|#1| |#2|)) - (SIGNATURE |retractIfCan| - ((|Union| |#2| "failed") |#1|)) - (SIGNATURE |retract| (|#2| |#1|)) - (SIGNATURE |minimumDegree| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |content| (|#2| |#1|)) - (SIGNATURE |differentiate| - (|#1| |#1| - (|List| (|SingletonAsOrderedSet|)) - (|List| (|NonNegativeInteger|)))) - (SIGNATURE |differentiate| - (|#1| |#1| (|SingletonAsOrderedSet|) - (|NonNegativeInteger|))) - (SIGNATURE |differentiate| - (|#1| |#1| - (|List| (|SingletonAsOrderedSet|)))) - (SIGNATURE |differentiate| - (|#1| |#1| (|SingletonAsOrderedSet|))) - (SIGNATURE |coerce| (|#1| (|Integer|))) - (SIGNATURE |coerce| ((|OutputForm|) |#1|))) - (|UnivariatePolynomialCategory| |#2|) (|Ring|)) - T '|UnivariatePolynomialCategory&| - (|put| '|UnivariatePolynomialCategory&| '|mode| - '(|Mapping| - (CATEGORY |domain| - (SIGNATURE |coerce| (|#1| |#1|)) - (SIGNATURE |gcdPolynomial| - ((|SparseUnivariatePolynomial| - |#1|) - (|SparseUnivariatePolynomial| - |#1|) - (|SparseUnivariatePolynomial| - |#1|))) - (SIGNATURE |squareFree| - ((|Factored| |#1|) |#1|)) - (SIGNATURE |squareFreePart| - (|#1| |#1|)) - (SIGNATURE |coerce| - (|#1| (|Fraction| (|Integer|)))) - (SIGNATURE |init| (|#1|)) - (SIGNATURE |nextItem| - ((|Union| |#1| "failed") |#1|)) - (SIGNATURE |elt| - ((|Fraction| |#1|) |#1| - (|Fraction| |#1|))) - (SIGNATURE |euclideanSize| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |divide| - ((|Record| (|:| |quotient| |#1|) - (|:| |remainder| |#1|)) - |#1| |#1|)) - (SIGNATURE |integrate| (|#1| |#1|)) - (SIGNATURE |elt| - (|#2| (|Fraction| |#1|) |#2|)) - (SIGNATURE |separate| - ((|Record| (|:| |primePart| |#1|) - (|:| |commonPart| |#1|)) - |#1| |#1|)) - (SIGNATURE |pseudoDivide| - ((|Record| (|:| |coef| |#2|) - (|:| |quotient| |#1|) - (|:| |remainder| |#1|)) - |#1| |#1|)) - (SIGNATURE |pseudoQuotient| - (|#1| |#1| |#1|)) - (SIGNATURE |composite| - ((|Union| (|Fraction| |#1|) - "failed") - (|Fraction| |#1|) |#1|)) - (SIGNATURE |composite| - ((|Union| |#1| "failed") |#1| - |#1|)) - (SIGNATURE |order| - ((|NonNegativeInteger|) |#1| |#1|)) - (SIGNATURE |elt| - ((|Fraction| |#1|) - (|Fraction| |#1|) - (|Fraction| |#1|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|Mapping| |#2| |#2|) - |#1|)) - (SIGNATURE |shiftLeft| - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE |shiftRight| - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE |karatsubaDivide| - ((|Record| (|:| |quotient| |#1|) - (|:| |remainder| |#1|)) - |#1| (|NonNegativeInteger|))) - (SIGNATURE |unmakeSUP| - (|#1| - (|SparseUnivariatePolynomial| - |#2|))) - (SIGNATURE |makeSUP| - ((|SparseUnivariatePolynomial| - |#2|) - |#1|)) - (SIGNATURE |vectorise| - ((|Vector| |#2|) |#1| - (|NonNegativeInteger|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|Mapping| |#2| |#2|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|Mapping| |#2| |#2|) - (|NonNegativeInteger|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|List| (|Symbol|)) - (|List| (|NonNegativeInteger|)))) - (SIGNATURE |differentiate| - (|#1| |#1| (|Symbol|) - (|NonNegativeInteger|))) - (SIGNATURE |differentiate| - (|#1| |#1| (|List| (|Symbol|)))) - (SIGNATURE |differentiate| - (|#1| |#1| (|Symbol|))) - (SIGNATURE |differentiate| - (|#1| |#1|)) - (SIGNATURE |differentiate| - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE |elt| (|#1| |#1| |#1|)) - (SIGNATURE |elt| (|#2| |#1| |#2|)) - (SIGNATURE |factor| - ((|Factored| |#1|) |#1|)) - (SIGNATURE |squareFreePolynomial| - ((|Factored| - (|SparseUnivariatePolynomial| - |#1|)) - (|SparseUnivariatePolynomial| - |#1|))) - (SIGNATURE |factorPolynomial| - ((|Factored| - (|SparseUnivariatePolynomial| - |#1|)) - (|SparseUnivariatePolynomial| - |#1|))) - (SIGNATURE - |factorSquareFreePolynomial| - ((|Factored| - (|SparseUnivariatePolynomial| - |#1|)) - (|SparseUnivariatePolynomial| - |#1|))) - (SIGNATURE - |solveLinearPolynomialEquation| - ((|Union| - (|List| - (|SparseUnivariatePolynomial| - |#1|)) - "failed") - (|List| - (|SparseUnivariatePolynomial| - |#1|)) - (|SparseUnivariatePolynomial| - |#1|))) - (SIGNATURE |content| - (|#1| |#1| - (|SingletonAsOrderedSet|))) - (SIGNATURE |variables| - ((|List| - (|SingletonAsOrderedSet|)) - |#1|)) - (SIGNATURE |totalDegree| - ((|NonNegativeInteger|) |#1| - (|List| - (|SingletonAsOrderedSet|)))) - (SIGNATURE |totalDegree| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |monomial| - (|#1| |#1| - (|List| - (|SingletonAsOrderedSet|)) - (|List| (|NonNegativeInteger|)))) - (SIGNATURE |monomial| - (|#1| |#1| - (|SingletonAsOrderedSet|) - (|NonNegativeInteger|))) - (SIGNATURE |minimumDegree| - ((|List| (|NonNegativeInteger|)) - |#1| - (|List| - (|SingletonAsOrderedSet|)))) - (SIGNATURE |minimumDegree| - ((|NonNegativeInteger|) |#1| - (|SingletonAsOrderedSet|))) - (SIGNATURE |mainVariable| - ((|Union| - (|SingletonAsOrderedSet|) - "failed") - |#1|)) - (SIGNATURE |degree| - ((|List| (|NonNegativeInteger|)) - |#1| - (|List| - (|SingletonAsOrderedSet|)))) - (SIGNATURE |degree| - ((|NonNegativeInteger|) |#1| - (|SingletonAsOrderedSet|))) - (SIGNATURE |retract| - ((|SingletonAsOrderedSet|) |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| - (|SingletonAsOrderedSet|) - "failed") - |#1|)) - (SIGNATURE |coerce| - (|#1| (|SingletonAsOrderedSet|))) - (SIGNATURE |eval| - (|#1| |#1| - (|List| - (|SingletonAsOrderedSet|)) - (|List| |#1|))) - (SIGNATURE |eval| - (|#1| |#1| - (|SingletonAsOrderedSet|) |#1|)) - (SIGNATURE |eval| - (|#1| |#1| - (|List| - (|SingletonAsOrderedSet|)) - (|List| |#2|))) - (SIGNATURE |eval| - (|#1| |#1| - (|SingletonAsOrderedSet|) |#2|)) - (SIGNATURE |eval| - (|#1| |#1| (|List| |#1|) - (|List| |#1|))) - (SIGNATURE |eval| - (|#1| |#1| |#1| |#1|)) - (SIGNATURE |eval| - (|#1| |#1| (|Equation| |#1|))) - (SIGNATURE |eval| - (|#1| |#1| - (|List| (|Equation| |#1|)))) - (SIGNATURE |degree| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |monomial| - (|#1| |#2| (|NonNegativeInteger|))) - (SIGNATURE |retract| - ((|Integer|) |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| (|Integer|) "failed") - |#1|)) - (SIGNATURE |retract| - ((|Fraction| (|Integer|)) |#1|)) - (SIGNATURE |retractIfCan| - ((|Union| (|Fraction| (|Integer|)) - "failed") - |#1|)) - (SIGNATURE |coerce| (|#1| |#2|)) - (SIGNATURE |retractIfCan| - ((|Union| |#2| "failed") |#1|)) - (SIGNATURE |retract| (|#2| |#1|)) - (SIGNATURE |minimumDegree| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |content| (|#2| |#1|)) - (SIGNATURE |differentiate| - (|#1| |#1| - (|List| - (|SingletonAsOrderedSet|)) - (|List| (|NonNegativeInteger|)))) - (SIGNATURE |differentiate| - (|#1| |#1| - (|SingletonAsOrderedSet|) - (|NonNegativeInteger|))) - (SIGNATURE |differentiate| - (|#1| |#1| - (|List| - (|SingletonAsOrderedSet|)))) - (SIGNATURE |differentiate| - (|#1| |#1| - (|SingletonAsOrderedSet|))) - (SIGNATURE |coerce| - (|#1| (|Integer|))) - (SIGNATURE |coerce| - ((|OutputForm|) |#1|))) - (|UnivariatePolynomialCategory| |#2|) - (|Ring|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/UPOLYC.lsp b/src/algebra/strap/UPOLYC.lsp index a84a5c3a..1a1726c7 100644 --- a/src/algebra/strap/UPOLYC.lsp +++ b/src/algebra/strap/UPOLYC.lsp @@ -138,9 +138,8 @@ (|Vector| |t#1|)) NIL)) . #3=(|UnivariatePolynomialCategory|)))))) . #3#) - (SETELT #0# 0 - (LIST '|UnivariatePolynomialCategory| - (|devaluate| |t#1|))))))) + (|setShellEntry| #0# 0 + (LIST '|UnivariatePolynomialCategory| (|devaluate| |t#1|))))))) (DEFUN |UnivariatePolynomialCategory| (#0=#:G1436) (LET (#1=#:G1437) @@ -156,10 +155,3 @@ #0#))) |UnivariatePolynomialCategory;AL|)) #1#)))) - -(SETQ |$CategoryFrame| - (|put| '|UnivariatePolynomialCategory| '|isCategory| T - (|addModemap| '|UnivariatePolynomialCategory| - '(|UnivariatePolynomialCategory| |#1|) - '((|Category|) (|Ring|)) T - '|UnivariatePolynomialCategory| |$CategoryFrame|))) diff --git a/src/algebra/strap/URAGG-.lsp b/src/algebra/strap/URAGG-.lsp index 9fb56330..c5870cbe 100644 --- a/src/algebra/strap/URAGG-.lsp +++ b/src/algebra/strap/URAGG-.lsp @@ -770,170 +770,3 @@ 1 0 30 0 41 1 0 0 0 40 2 0 0 0 0 58 1 0 25 0 27 2 0 19 0 0 48 1 0 30 0 35))))) '|lookupComplete|)) - -(SETQ |$CategoryFrame| - (|put| '|UnaryRecursiveAggregate&| '|isFunctor| - '(((|split!| ($ $ (|Integer|))) T (ELT $ 64)) - ((|setelt| (|#2| $ "last" |#2|)) T (ELT $ 54)) - ((|setlast!| (|#2| $ |#2|)) T (ELT $ 59)) - ((|setelt| ($ $ "rest" $)) T (ELT $ 56)) - ((|setelt| (|#2| $ "first" |#2|)) T (ELT $ 52)) - ((|cycleSplit!| ($ $)) T (ELT $ 65)) - ((|cycleTail| ($ $)) T (ELT $ 39)) - ((|cycleLength| ((|NonNegativeInteger|) $)) T - (ELT $ 41)) - ((|cycleEntry| ($ $)) T (ELT $ 40)) - ((|third| (|#2| $)) T (ELT $ 18)) - ((|second| (|#2| $)) T (ELT $ 17)) - ((|tail| ($ $)) T (ELT $ 36)) - ((|last| ($ $ (|NonNegativeInteger|))) T (ELT $ 46)) - ((|elt| (|#2| $ "last")) T (ELT $ 13)) - ((|last| (|#2| $)) T (ELT $ 24)) - ((|rest| ($ $ (|NonNegativeInteger|))) T (ELT $ 42)) - ((|elt| ($ $ "rest")) T (ELT $ 16)) - ((|rest| ($ $)) T (ELT $ NIL)) - ((|elt| (|#2| $ "first")) T (ELT $ 10)) - ((|concat| ($ |#2| $)) T (ELT $ NIL)) - ((|concat| ($ $ $)) T (ELT $ 58)) - ((|setvalue!| (|#2| $ |#2|)) T (ELT $ 61)) - ((|setelt| (|#2| $ "value" |#2|)) T (ELT $ NIL)) - ((|setchildren!| ($ $ (|List| $))) T (ELT $ 60)) - ((|node?| ((|Boolean|) $ $)) T (ELT $ 50)) - ((|cyclic?| ((|Boolean|) $)) T (ELT $ 22)) - ((|elt| (|#2| $ "value")) T (ELT $ NIL)) - ((|value| (|#2| $)) T (ELT $ 29)) - ((|leaf?| ((|Boolean|) $)) T (ELT $ 28)) - ((|nodes| ((|List| $) $)) T (ELT $ 26)) - ((|children| ((|List| $) $)) T (ELT $ 27)) - ((= ((|Boolean|) $ $)) T (ELT $ 48)) - ((|#| ((|NonNegativeInteger|) $)) T (ELT $ 35)) - ((|size?| ((|Boolean|) $ (|NonNegativeInteger|))) T - (ELT $ 33)) - ((|more?| ((|Boolean|) $ (|NonNegativeInteger|))) T - (ELT $ 32)) - ((|less?| ((|Boolean|) $ (|NonNegativeInteger|))) T - (ELT $ 31))) - (|addModemap| '|UnaryRecursiveAggregate&| - '(|UnaryRecursiveAggregate&| |#1| |#2|) - '((CATEGORY |domain| - (SIGNATURE |split!| (|#1| |#1| (|Integer|))) - (SIGNATURE |setelt| (|#2| |#1| "last" |#2|)) - (SIGNATURE |setlast!| (|#2| |#1| |#2|)) - (SIGNATURE |setelt| (|#1| |#1| "rest" |#1|)) - (SIGNATURE |setelt| (|#2| |#1| "first" |#2|)) - (SIGNATURE |cycleSplit!| (|#1| |#1|)) - (SIGNATURE |cycleTail| (|#1| |#1|)) - (SIGNATURE |cycleLength| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |cycleEntry| (|#1| |#1|)) - (SIGNATURE |third| (|#2| |#1|)) - (SIGNATURE |second| (|#2| |#1|)) - (SIGNATURE |tail| (|#1| |#1|)) - (SIGNATURE |last| - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE |elt| (|#2| |#1| "last")) - (SIGNATURE |last| (|#2| |#1|)) - (SIGNATURE |rest| - (|#1| |#1| (|NonNegativeInteger|))) - (SIGNATURE |elt| (|#1| |#1| "rest")) - (SIGNATURE |rest| (|#1| |#1|)) - (SIGNATURE |elt| (|#2| |#1| "first")) - (SIGNATURE |concat| (|#1| |#2| |#1|)) - (SIGNATURE |concat| (|#1| |#1| |#1|)) - (SIGNATURE |setvalue!| (|#2| |#1| |#2|)) - (SIGNATURE |setelt| (|#2| |#1| "value" |#2|)) - (SIGNATURE |setchildren!| - (|#1| |#1| (|List| |#1|))) - (SIGNATURE |node?| ((|Boolean|) |#1| |#1|)) - (SIGNATURE |cyclic?| ((|Boolean|) |#1|)) - (SIGNATURE |elt| (|#2| |#1| "value")) - (SIGNATURE |value| (|#2| |#1|)) - (SIGNATURE |leaf?| ((|Boolean|) |#1|)) - (SIGNATURE |nodes| ((|List| |#1|) |#1|)) - (SIGNATURE |children| ((|List| |#1|) |#1|)) - (SIGNATURE = ((|Boolean|) |#1| |#1|)) - (SIGNATURE |#| ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |size?| - ((|Boolean|) |#1| (|NonNegativeInteger|))) - (SIGNATURE |more?| - ((|Boolean|) |#1| (|NonNegativeInteger|))) - (SIGNATURE |less?| - ((|Boolean|) |#1| (|NonNegativeInteger|)))) - (|UnaryRecursiveAggregate| |#2|) (|Type|)) - T '|UnaryRecursiveAggregate&| - (|put| '|UnaryRecursiveAggregate&| '|mode| - '(|Mapping| (CATEGORY |domain| - (SIGNATURE |split!| - (|#1| |#1| (|Integer|))) - (SIGNATURE |setelt| - (|#2| |#1| "last" |#2|)) - (SIGNATURE |setlast!| - (|#2| |#1| |#2|)) - (SIGNATURE |setelt| - (|#1| |#1| "rest" |#1|)) - (SIGNATURE |setelt| - (|#2| |#1| "first" |#2|)) - (SIGNATURE |cycleSplit!| - (|#1| |#1|)) - (SIGNATURE |cycleTail| - (|#1| |#1|)) - (SIGNATURE |cycleLength| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |cycleEntry| - (|#1| |#1|)) - (SIGNATURE |third| (|#2| |#1|)) - (SIGNATURE |second| (|#2| |#1|)) - (SIGNATURE |tail| (|#1| |#1|)) - (SIGNATURE |last| - (|#1| |#1| - (|NonNegativeInteger|))) - (SIGNATURE |elt| - (|#2| |#1| "last")) - (SIGNATURE |last| (|#2| |#1|)) - (SIGNATURE |rest| - (|#1| |#1| - (|NonNegativeInteger|))) - (SIGNATURE |elt| - (|#1| |#1| "rest")) - (SIGNATURE |rest| (|#1| |#1|)) - (SIGNATURE |elt| - (|#2| |#1| "first")) - (SIGNATURE |concat| - (|#1| |#2| |#1|)) - (SIGNATURE |concat| - (|#1| |#1| |#1|)) - (SIGNATURE |setvalue!| - (|#2| |#1| |#2|)) - (SIGNATURE |setelt| - (|#2| |#1| "value" |#2|)) - (SIGNATURE |setchildren!| - (|#1| |#1| (|List| |#1|))) - (SIGNATURE |node?| - ((|Boolean|) |#1| |#1|)) - (SIGNATURE |cyclic?| - ((|Boolean|) |#1|)) - (SIGNATURE |elt| - (|#2| |#1| "value")) - (SIGNATURE |value| (|#2| |#1|)) - (SIGNATURE |leaf?| - ((|Boolean|) |#1|)) - (SIGNATURE |nodes| - ((|List| |#1|) |#1|)) - (SIGNATURE |children| - ((|List| |#1|) |#1|)) - (SIGNATURE = - ((|Boolean|) |#1| |#1|)) - (SIGNATURE |#| - ((|NonNegativeInteger|) |#1|)) - (SIGNATURE |size?| - ((|Boolean|) |#1| - (|NonNegativeInteger|))) - (SIGNATURE |more?| - ((|Boolean|) |#1| - (|NonNegativeInteger|))) - (SIGNATURE |less?| - ((|Boolean|) |#1| - (|NonNegativeInteger|)))) - (|UnaryRecursiveAggregate| |#2|) - (|Type|)) - |$CategoryFrame|)))) diff --git a/src/algebra/strap/URAGG.lsp b/src/algebra/strap/URAGG.lsp index 9cd5bea8..acc123db 100644 --- a/src/algebra/strap/URAGG.lsp +++ b/src/algebra/strap/URAGG.lsp @@ -96,8 +96,8 @@ (|NonNegativeInteger|)) NIL)) . #1=(|UnaryRecursiveAggregate|))))) . #1#) - (SETELT #0# 0 - (LIST '|UnaryRecursiveAggregate| (|devaluate| |t#1|))))))) + (|setShellEntry| #0# 0 + (LIST '|UnaryRecursiveAggregate| (|devaluate| |t#1|))))))) (DEFUN |UnaryRecursiveAggregate| (#0=#:G1426) (LET (#1=#:G1427) @@ -111,10 +111,3 @@ (|UnaryRecursiveAggregate;| #0#))) |UnaryRecursiveAggregate;AL|)) #1#)))) - -(SETQ |$CategoryFrame| - (|put| '|UnaryRecursiveAggregate| '|isCategory| T - (|addModemap| '|UnaryRecursiveAggregate| - '(|UnaryRecursiveAggregate| |#1|) - '((|Category|) (|Type|)) T '|UnaryRecursiveAggregate| - |$CategoryFrame|))) diff --git a/src/algebra/strap/VECTOR.lsp b/src/algebra/strap/VECTOR.lsp index 3fb2fb67..61c9ca51 100644 --- a/src/algebra/strap/VECTOR.lsp +++ b/src/algebra/strap/VECTOR.lsp @@ -137,216 +137,3 @@ 13 0 19 1 0 0 7 9 1 0 7 0 15 1 3 13 0 19 1 0 0 7 8))))) '|lookupIncomplete|)) - -(SETQ |$CategoryFrame| - (|put| '|Vector| '|isFunctor| - '(((~= ((|Boolean|) $ $)) (|has| |#1| (|SetCategory|)) - (ELT $ NIL)) - ((= ((|Boolean|) $ $)) (|has| |#1| (|SetCategory|)) - (ELT $ NIL)) - ((|coerce| ((|OutputForm|) $)) - (|has| |#1| (|CoercibleTo| (|OutputForm|))) - (ELT $ NIL)) - ((|hash| ((|SingleInteger|) $)) - (|has| |#1| (|SetCategory|)) (ELT $ NIL)) - ((|latex| ((|String|) $)) (|has| |#1| (|SetCategory|)) - (ELT $ NIL)) - ((|vector| ($ (|List| |#1|))) T (ELT $ 9)) - ((|magnitude| (|#1| $)) - (AND (|has| |#1| (|RadicalCategory|)) - (|has| |#1| (|Ring|))) - (ELT $ NIL)) - ((|length| (|#1| $)) - (AND (|has| |#1| (|RadicalCategory|)) - (|has| |#1| (|Ring|))) - (ELT $ NIL)) - ((|cross| ($ $ $)) (|has| |#1| (|Ring|)) (ELT $ NIL)) - ((|outerProduct| ((|Matrix| |#1|) $ $)) - (|has| |#1| (|Ring|)) (ELT $ NIL)) - ((|dot| (|#1| $ $)) (|has| |#1| (|Ring|)) (ELT $ NIL)) - ((* ($ $ |#1|)) (|has| |#1| (|Monoid|)) (ELT $ NIL)) - ((* ($ |#1| $)) (|has| |#1| (|Monoid|)) (ELT $ NIL)) - ((* ($ (|Integer|) $)) (|has| |#1| (|AbelianGroup|)) - (ELT $ NIL)) - ((- ($ $ $)) (|has| |#1| (|AbelianGroup|)) (ELT $ NIL)) - ((- ($ $)) (|has| |#1| (|AbelianGroup|)) (ELT $ NIL)) - ((|zero| ($ (|NonNegativeInteger|))) - (|has| |#1| (|AbelianMonoid|)) (ELT $ NIL)) - ((+ ($ $ $)) (|has| |#1| (|AbelianSemiGroup|)) - (ELT $ NIL)) - ((< ((|Boolean|) $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((> ((|Boolean|) $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((>= ((|Boolean|) $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((<= ((|Boolean|) $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((|max| ($ $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((|min| ($ $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((|sort!| ($ $)) - (AND (|has| $ (ATTRIBUTE |shallowlyMutable|)) - (|has| |#1| (|OrderedSet|))) - (ELT $ NIL)) - ((|sort!| ($ (|Mapping| (|Boolean|) |#1| |#1|) $)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|reverse!| ($ $)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|copyInto!| ($ $ $ (|Integer|))) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|sorted?| ((|Boolean|) $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((|sort| ($ $)) (|has| |#1| (|OrderedSet|)) (ELT $ NIL)) - ((|merge| ($ $ $)) (|has| |#1| (|OrderedSet|)) - (ELT $ NIL)) - ((|position| ((|Integer|) |#1| $ (|Integer|))) - (|has| |#1| (|SetCategory|)) (ELT $ NIL)) - ((|position| ((|Integer|) |#1| $)) - (|has| |#1| (|SetCategory|)) (ELT $ NIL)) - ((|position| - ((|Integer|) (|Mapping| (|Boolean|) |#1|) $)) - T (ELT $ NIL)) - ((|sorted?| - ((|Boolean|) (|Mapping| (|Boolean|) |#1| |#1|) $)) - T (ELT $ NIL)) - ((|sort| ($ (|Mapping| (|Boolean|) |#1| |#1|) $)) T - (ELT $ NIL)) - ((|reverse| ($ $)) T (ELT $ NIL)) - ((|merge| ($ (|Mapping| (|Boolean|) |#1| |#1|) $ $)) T - (ELT $ NIL)) - ((|setelt| - (|#1| $ (|UniversalSegment| (|Integer|)) |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|insert| ($ $ $ (|Integer|))) T (ELT $ NIL)) - ((|insert| ($ |#1| $ (|Integer|))) T (ELT $ NIL)) - ((|delete| ($ $ (|UniversalSegment| (|Integer|)))) T - (ELT $ NIL)) - ((|delete| ($ $ (|Integer|))) T (ELT $ NIL)) - ((|elt| ($ $ (|UniversalSegment| (|Integer|)))) T - (ELT $ NIL)) - ((|map| ($ (|Mapping| |#1| |#1| |#1|) $ $)) T - (ELT $ NIL)) - ((|concat| ($ (|List| $))) T (ELT $ NIL)) - ((|concat| ($ $ $)) T (ELT $ NIL)) - ((|concat| ($ |#1| $)) T (ELT $ NIL)) - ((|concat| ($ $ |#1|)) T (ELT $ NIL)) - ((|new| ($ (|NonNegativeInteger|) |#1|)) T (ELT $ NIL)) - ((|construct| ($ (|List| |#1|))) T (ELT $ 8)) - ((|find| ((|Union| |#1| "failed") - (|Mapping| (|Boolean|) |#1|) $)) - T (ELT $ NIL)) - ((|reduce| (|#1| (|Mapping| |#1| |#1| |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|reduce| (|#1| (|Mapping| |#1| |#1| |#1|) $ |#1|)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|remove| ($ (|Mapping| (|Boolean|) |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|select| ($ (|Mapping| (|Boolean|) |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|reduce| - (|#1| (|Mapping| |#1| |#1| |#1|) $ |#1| |#1|)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|remove| ($ |#1| $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|removeDuplicates| ($ $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|convert| ((|InputForm|) $)) - (|has| |#1| (|ConvertibleTo| (|InputForm|))) - (ELT $ 19)) - ((|swap!| ((|Void|) $ (|Integer|) (|Integer|))) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|fill!| ($ $ |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|first| (|#1| $)) (|has| (|Integer|) (|OrderedSet|)) - (ELT $ NIL)) - ((|minIndex| ((|Integer|) $)) - (|has| (|Integer|) (|OrderedSet|)) (ELT $ NIL)) - ((|maxIndex| ((|Integer|) $)) - (|has| (|Integer|) (|OrderedSet|)) (ELT $ NIL)) - ((|entry?| ((|Boolean|) |#1| $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|indices| ((|List| (|Integer|)) $)) T (ELT $ NIL)) - ((|index?| ((|Boolean|) (|Integer|) $)) T (ELT $ NIL)) - ((|entries| ((|List| |#1|) $)) T (ELT $ NIL)) - ((|elt| (|#1| $ (|Integer|))) T (ELT $ NIL)) - ((|elt| (|#1| $ (|Integer|) |#1|)) T (ELT $ NIL)) - ((|qelt| (|#1| $ (|Integer|))) T (ELT $ NIL)) - ((|setelt| (|#1| $ (|Integer|) |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|qsetelt!| (|#1| $ (|Integer|) |#1|)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|eval| ($ $ (|List| |#1|) (|List| |#1|))) - (AND (|has| |#1| (|Evalable| |#1|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|eval| ($ $ |#1| |#1|)) - (AND (|has| |#1| (|Evalable| |#1|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|eval| ($ $ (|Equation| |#1|))) - (AND (|has| |#1| (|Evalable| |#1|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|eval| ($ $ (|List| (|Equation| |#1|)))) - (AND (|has| |#1| (|Evalable| |#1|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|member?| ((|Boolean|) |#1| $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|count| ((|NonNegativeInteger|) |#1| $)) - (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) - (|has| |#1| (|SetCategory|))) - (ELT $ NIL)) - ((|members| ((|List| |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|parts| ((|List| |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ 15)) - ((|count| ((|NonNegativeInteger|) - (|Mapping| (|Boolean|) |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|every?| ((|Boolean|) (|Mapping| (|Boolean|) |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|any?| ((|Boolean|) (|Mapping| (|Boolean|) |#1|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|map!| ($ (|Mapping| |#1| |#1|) $)) - (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) - ((|map| ($ (|Mapping| |#1| |#1|) $)) T (ELT $ NIL)) - ((|#| ((|NonNegativeInteger|) $)) - (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) - ((|sample| ($)) T (CONST $ NIL)) - ((|size?| ((|Boolean|) $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|more?| ((|Boolean|) $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|less?| ((|Boolean|) $ (|NonNegativeInteger|))) T - (ELT $ NIL)) - ((|empty?| ((|Boolean|) $)) T (ELT $ NIL)) - ((|empty| ($)) T (ELT $ NIL)) - ((|copy| ($ $)) T (ELT $ NIL)) - ((|eq?| ((|Boolean|) $ $)) T (ELT $ NIL))) - (|addModemap| '|Vector| '(|Vector| |#1|) - '((|Join| (|VectorCategory| |#1|) - (CATEGORY |domain| - (SIGNATURE |vector| ($ (|List| |#1|))))) - (|Type|)) - T '|Vector| - (|put| '|Vector| '|mode| - '(|Mapping| - (|Join| (|VectorCategory| |#1|) - (CATEGORY |domain| - (SIGNATURE |vector| - ($ (|List| |#1|))))) - (|Type|)) - |$CategoryFrame|)))) |