diff options
Diffstat (limited to 'src/algebra/strap/FPS-.lsp')
| -rw-r--r-- | src/algebra/strap/FPS-.lsp | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/src/algebra/strap/FPS-.lsp b/src/algebra/strap/FPS-.lsp index d9a74d7e..c85e10be 100644 --- a/src/algebra/strap/FPS-.lsp +++ b/src/algebra/strap/FPS-.lsp @@ -18,8 +18,8 @@ (MAX 1 (QUOTIENT2 (SPADCALL 4004 - (- (SPADCALL (|getShellEntry| $ 13)) 1) - (|getShellEntry| $ 14)) + (- (SPADCALL (|getShellEntry| $ 14)) 1) + (|getShellEntry| $ 16)) 13301)) |FPS-;digits;Pi;2|) (|check-subtype| @@ -32,7 +32,7 @@ (PROGN (LETT |dv$1| (|devaluate| |#1|) . #0=(|FloatingPointSystem&|)) (LETT |dv$| (LIST '|FloatingPointSystem&| |dv$1|) . #0#) - (LETT $ (|newShell| 17) . #0#) + (LETT $ (|newShell| 21) . #0#) (|setShellEntry| $ 0 |dv$|) (|setShellEntry| $ 3 (LETT |pv$| @@ -46,14 +46,15 @@ (MAKEPROP '|FloatingPointSystem&| '|infovec| (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|PositiveInteger|) (0 . |base|) (|Integer|) (4 . |float|) |FPS-;float;2IS;1| - (11 . |One|) (15 . |bits|) (19 . *) (25 . |max|) - |FPS-;digits;Pi;2|) - '#(|float| 29 |digits| 35) 'NIL + (11 . |One|) (15 . |One|) (19 . |bits|) (23 . -) (29 . *) + (35 . |max|) (39 . |quo|) (45 . |max|) |FPS-;digits;Pi;2|) + '#(|float| 51 |digits| 57) 'NIL (CONS (|makeByteWordVec2| 1 'NIL) (CONS '#() (CONS '#() - (|makeByteWordVec2| 16 - '(0 6 7 8 3 6 0 9 9 7 10 0 6 0 12 0 6 7 - 13 2 9 0 7 0 14 0 6 0 15 2 0 0 9 9 11 - 0 0 7 16))))) + (|makeByteWordVec2| 20 + '(0 6 7 8 3 6 0 9 9 7 10 0 6 0 12 0 7 0 + 13 0 6 7 14 2 9 0 0 0 15 2 9 0 7 0 16 + 0 6 0 17 2 9 0 0 0 18 2 9 0 0 0 19 2 + 0 0 9 9 11 0 0 7 20))))) '|lookupComplete|)) |