diff options
Diffstat (limited to 'src/algebra/strap/RNG.lsp')
| -rw-r--r-- | src/algebra/strap/RNG.lsp | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/src/algebra/strap/RNG.lsp b/src/algebra/strap/RNG.lsp index 6a2f53a5..7e7bf619 100644 --- a/src/algebra/strap/RNG.lsp +++ b/src/algebra/strap/RNG.lsp @@ -7,14 +7,9 @@ (PROG (#0=#:G1397) (RETURN (PROG1 (LETT #0# (|Join| (|AbelianGroup|) (|SemiGroup|)) |Rng|) - (SETELT #0# 0 '(|Rng|)))))) + (|setShellEntry| #0# 0 '(|Rng|)))))) (DEFUN |Rng| () (LET () (COND (|Rng;AL|) (T (SETQ |Rng;AL| (|Rng;|)))))) -(SETQ |$CategoryFrame| - (|put| '|Rng| '|isCategory| T - (|addModemap| '|Rng| '(|Rng|) '((|Category|)) T '|Rng| - |$CategoryFrame|))) - (MAKEPROP '|Rng| 'NILADIC T) |