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/ABELMON-.lsp | 13 +++++++++++++
 1 file changed, 13 insertions(+)

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

diff --git a/src/algebra/strap/ABELMON-.lsp b/src/algebra/strap/ABELMON-.lsp
index 82017e64..1c1cdd43 100644
--- a/src/algebra/strap/ABELMON-.lsp
+++ b/src/algebra/strap/ABELMON-.lsp
@@ -1,6 +1,19 @@
 
 (/VERSIONCHECK 2) 
 
+(DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Boolean|)
+                |ABELMON-;zero?;SB;1|)) 
+
+(DECLAIM (FTYPE (FUNCTION ((|%IntegerSection| 1) |%Thing| |%Shell|)
+                    |%Thing|)
+                |ABELMON-;*;Pi2S;2|)) 
+
+(DECLAIM (FTYPE (FUNCTION (|%Shell|) |%Thing|) |ABELMON-;sample;S;3|)) 
+
+(DECLAIM (FTYPE (FUNCTION ((|%IntegerSection| 0) |%Thing| |%Shell|)
+                    |%Thing|)
+                |ABELMON-;*;Nni2S;4|)) 
+
 (DEFUN |ABELMON-;zero?;SB;1| (|x| $)
   (SPADCALL |x| (|spadConstant| $ 7) (|getShellEntry| $ 9))) 
 
-- 
cgit v1.2.3