diff options
Diffstat (limited to 'src/algebra/strap/DIFRING.lsp')
-rw-r--r-- | src/algebra/strap/DIFRING.lsp | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/algebra/strap/DIFRING.lsp b/src/algebra/strap/DIFRING.lsp index 621d91b3..63e3b4fd 100644 --- a/src/algebra/strap/DIFRING.lsp +++ b/src/algebra/strap/DIFRING.lsp @@ -3,14 +3,8 @@ (DEFPARAMETER |DifferentialRing;AL| 'NIL) -(DEFUN |DifferentialRing| () - (LET (#:G1396) - (COND - (|DifferentialRing;AL|) - (T (SETQ |DifferentialRing;AL| (|DifferentialRing;|)))))) - (DEFUN |DifferentialRing;| () - (PROG (#0=#:G1394) + (PROG (#0=#:G1397) (RETURN (PROG1 (LETT #0# (|Join| (|Ring|) @@ -25,6 +19,12 @@ |DifferentialRing|) (SETELT #0# 0 '(|DifferentialRing|)))))) +(DEFUN |DifferentialRing| () + (LET () + (COND + (|DifferentialRing;AL|) + (T (SETQ |DifferentialRing;AL| (|DifferentialRing;|)))))) + (SETQ |$CategoryFrame| (|put| '|DifferentialRing| '|isCategory| T (|addModemap| '|DifferentialRing| '(|DifferentialRing|) |