diff options
Diffstat (limited to 'src/algebra/strap/FPS.lsp')
-rw-r--r-- | src/algebra/strap/FPS.lsp | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/algebra/strap/FPS.lsp b/src/algebra/strap/FPS.lsp index f3935aa4..313baa93 100644 --- a/src/algebra/strap/FPS.lsp +++ b/src/algebra/strap/FPS.lsp @@ -70,7 +70,7 @@ '((|approximate| T)) '((|PositiveInteger|) (|Integer|)) NIL)) |FloatingPointSystem|) - (SETELT #0# 0 '(|FloatingPointSystem|)))))) + (|setShellEntry| #0# 0 '(|FloatingPointSystem|)))))) (DEFUN |FloatingPointSystem| () (LET () @@ -78,10 +78,4 @@ (|FloatingPointSystem;AL|) (T (SETQ |FloatingPointSystem;AL| (|FloatingPointSystem;|)))))) -(SETQ |$CategoryFrame| - (|put| '|FloatingPointSystem| '|isCategory| T - (|addModemap| '|FloatingPointSystem| - '(|FloatingPointSystem|) '((|Category|)) T - '|FloatingPointSystem| |$CategoryFrame|))) - (MAKEPROP '|FloatingPointSystem| 'NILADIC T) |