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