From c42526006076b88ff2755f33eb1defd2e455e67e Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 1 Mar 2009 05:22:19 +0000
Subject: 	Optimization should not change slot numbers.

---
 src/algebra/strap/FPS-.lsp | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

(limited to 'src/algebra/strap/FPS-.lsp')

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|)) 
-- 
cgit v1.2.3