diff options
Diffstat (limited to 'src/algebra/strap/RNS.lsp')
| -rw-r--r-- | src/algebra/strap/RNS.lsp | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/src/algebra/strap/RNS.lsp b/src/algebra/strap/RNS.lsp index 7955ad3e..6132cdab 100644 --- a/src/algebra/strap/RNS.lsp +++ b/src/algebra/strap/RNS.lsp @@ -4,18 +4,18 @@ (DEFPARAMETER |RealNumberSystem;AL| 'NIL) (DEFUN |RealNumberSystem| () - (LET (#:G1396) + (LET (#:G1405) (COND (|RealNumberSystem;AL|) (T (SETQ |RealNumberSystem;AL| (|RealNumberSystem;|)))))) (DEFUN |RealNumberSystem;| () - (PROG (#0=#:G1394) + (PROG (#0=#:G1403) (RETURN (PROG1 (LETT #0# (|sublisV| - (PAIR '(#1=#:G1390 #2=#:G1391 #3=#:G1392 - #4=#:G1393) + (PAIR '(#1=#:G1399 #2=#:G1400 #3=#:G1401 + #4=#:G1402) (LIST '(|Integer|) '(|Fraction| (|Integer|)) '(|Pattern| (|Float|)) '(|Float|))) @@ -39,4 +39,10 @@ |RealNumberSystem|) (SETELT #0# 0 '(|RealNumberSystem|)))))) +(SETQ |$CategoryFrame| + (|put| '|RealNumberSystem| '|isCategory| T + (|addModemap| '|RealNumberSystem| '(|RealNumberSystem|) + '((|Category|)) T '|RealNumberSystem| + |$CategoryFrame|))) + (MAKEPROP '|RealNumberSystem| 'NILADIC T) |