diff options
Diffstat (limited to 'src/algebra/strap/ABELSG.lsp')
| -rw-r--r-- | src/algebra/strap/ABELSG.lsp | 8 |
1 files changed, 1 insertions, 7 deletions
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) |