diff options
Diffstat (limited to 'src/algebra/strap/RING.lsp')
| -rw-r--r-- | src/algebra/strap/RING.lsp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/algebra/strap/RING.lsp b/src/algebra/strap/RING.lsp index de80c4c5..016a3ee0 100644 --- a/src/algebra/strap/RING.lsp +++ b/src/algebra/strap/RING.lsp @@ -3,11 +3,8 @@ (DEFPARAMETER |Ring;AL| 'NIL) -(DEFUN |Ring| () - (LET (#:G1396) (COND (|Ring;AL|) (T (SETQ |Ring;AL| (|Ring;|)))))) - (DEFUN |Ring;| () - (PROG (#0=#:G1394) + (PROG (#0=#:G1397) (RETURN (PROG1 (LETT #0# (|Join| (|Rng|) (|Monoid|) (|LeftModule| '$) @@ -22,6 +19,9 @@ |Ring|) (SETELT #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| |