From 5687e549faf2a00133c91dd21b48d876e0e2c449 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 11 Oct 2008 21:16:28 +0000
Subject: Update algebra bootstrap cache.

---
 src/algebra/strap/FPS-.lsp | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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

diff --git a/src/algebra/strap/FPS-.lsp b/src/algebra/strap/FPS-.lsp
index 1ec37dce..312a0bbc 100644
--- a/src/algebra/strap/FPS-.lsp
+++ b/src/algebra/strap/FPS-.lsp
@@ -1,12 +1,18 @@
 
 (/VERSIONCHECK 2) 
 
+(DECLAIM (FTYPE (FUNCTION (|%Integer| |%Integer| |%Shell|) |%Thing|)
+                |FPS-;float;2IS;1|)) 
+
+(DECLAIM (FTYPE (FUNCTION (|%Shell|) (|%IntegerSection| 1))
+                |FPS-;digits;Pi;2|)) 
+
 (DEFUN |FPS-;float;2IS;1| (|ma| |ex| $)
   (SPADCALL |ma| |ex| (SPADCALL (|getShellEntry| $ 8))
       (|getShellEntry| $ 10))) 
 
 (DEFUN |FPS-;digits;Pi;2| ($)
-  (PROG (#0=#:G1398)
+  (PROG (#0=#:G1401)
     (RETURN
       (PROG1 (LETT #0#
                    (MAX 1
-- 
cgit v1.2.3