diff options
Diffstat (limited to 'src/algebra/strap/ABELGRP.lsp')
-rw-r--r-- | src/algebra/strap/ABELGRP.lsp | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/algebra/strap/ABELGRP.lsp b/src/algebra/strap/ABELGRP.lsp index c1c07bac..dd8da1ef 100644 --- a/src/algebra/strap/ABELGRP.lsp +++ b/src/algebra/strap/ABELGRP.lsp @@ -3,14 +3,8 @@ (DEFPARAMETER |AbelianGroup;AL| 'NIL) -(DEFUN |AbelianGroup| () - (LET (#:G1397) - (COND - (|AbelianGroup;AL|) - (T (SETQ |AbelianGroup;AL| (|AbelianGroup;|)))))) - (DEFUN |AbelianGroup;| () - (PROG (#0=#:G1395) + (PROG (#0=#:G1398) (RETURN (PROG1 (LETT #0# (|Join| (|CancellationAbelianMonoid|) @@ -21,6 +15,12 @@ |AbelianGroup|) (SETELT #0# 0 '(|AbelianGroup|)))))) +(DEFUN |AbelianGroup| () + (LET () + (COND + (|AbelianGroup;AL|) + (T (SETQ |AbelianGroup;AL| (|AbelianGroup;|)))))) + (SETQ |$CategoryFrame| (|put| '|AbelianGroup| '|isCategory| T (|addModemap| '|AbelianGroup| '(|AbelianGroup|) |