aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/strap/SETCAT-.lsp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-10-11 21:16:28 +0000
committerdos-reis <gdr@axiomatics.org>2008-10-11 21:16:28 +0000
commit5687e549faf2a00133c91dd21b48d876e0e2c449 (patch)
tree81c27b56ba305a55c7aba8442ff36f7333096050 /src/algebra/strap/SETCAT-.lsp
parent567d3bbfc92aad2305987e3d6adedcb92615d5d5 (diff)
downloadopen-axiom-5687e549faf2a00133c91dd21b48d876e0e2c449.tar.gz
Update algebra bootstrap cache.
Diffstat (limited to 'src/algebra/strap/SETCAT-.lsp')
-rw-r--r--src/algebra/strap/SETCAT-.lsp8
1 files changed, 7 insertions, 1 deletions
diff --git a/src/algebra/strap/SETCAT-.lsp b/src/algebra/strap/SETCAT-.lsp
index 57bf43e1..b7ec1f9d 100644
--- a/src/algebra/strap/SETCAT-.lsp
+++ b/src/algebra/strap/SETCAT-.lsp
@@ -1,13 +1,19 @@
(/VERSIONCHECK 2)
+(DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Short|)
+ |SETCAT-;hash;SSi;1|))
+
(PUT '|SETCAT-;hash;SSi;1| '|SPADreplace| '(XLAM (|s|) 0))
-(DEFUN |SETCAT-;hash;SSi;1| (|s| $) 0)
+(DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%String|)
+ |SETCAT-;latex;SS;2|))
(PUT '|SETCAT-;latex;SS;2| '|SPADreplace|
'(XLAM (|s|) "\\mbox{\\bf Unimplemented}"))
+(DEFUN |SETCAT-;hash;SSi;1| (|s| $) 0)
+
(DEFUN |SETCAT-;latex;SS;2| (|s| $) "\\mbox{\\bf Unimplemented}")
(DEFUN |SetCategory&| (|#1|)