diff options
Diffstat (limited to 'src/algebra/strap/RNS.lsp')
-rw-r--r-- | src/algebra/strap/RNS.lsp | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/algebra/strap/RNS.lsp b/src/algebra/strap/RNS.lsp index 2ece00ea..f9641660 100644 --- a/src/algebra/strap/RNS.lsp +++ b/src/algebra/strap/RNS.lsp @@ -31,7 +31,7 @@ ((|abs| ($ $)) T)) NIL '((|Integer|)) NIL))) |RealNumberSystem|) - (SETELT #0# 0 '(|RealNumberSystem|)))))) + (|setShellEntry| #0# 0 '(|RealNumberSystem|)))))) (DEFUN |RealNumberSystem| () (LET () @@ -39,10 +39,4 @@ (|RealNumberSystem;AL|) (T (SETQ |RealNumberSystem;AL| (|RealNumberSystem;|)))))) -(SETQ |$CategoryFrame| - (|put| '|RealNumberSystem| '|isCategory| T - (|addModemap| '|RealNumberSystem| '(|RealNumberSystem|) - '((|Category|)) T '|RealNumberSystem| - |$CategoryFrame|))) - (MAKEPROP '|RealNumberSystem| 'NILADIC T) |