aboutsummaryrefslogtreecommitdiff
path: root/src/algebra
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra')
-rw-r--r--src/algebra/Makefile.in5
-rw-r--r--src/algebra/Makefile.pamphlet5
-rw-r--r--src/algebra/strap/ULSCAT.lsp113
3 files changed, 4 insertions, 119 deletions
diff --git a/src/algebra/Makefile.in b/src/algebra/Makefile.in
index 0443731e..59b98af8 100644
--- a/src/algebra/Makefile.in
+++ b/src/algebra/Makefile.in
@@ -202,7 +202,7 @@ axiom_algebra_bootstrap = \
RNG RNS RNS- SETAGG \
SETAGG- SINT \
STAGG STAGG- SYMBOL \
- UFD UFD- ULSCAT \
+ UFD UFD- \
URAGG URAGG- \
VECTOR
@@ -220,7 +220,6 @@ axiom_algebra_bootstrap_last_layer = \
RNS RNS- \
SINT \
SYMBOL \
- ULSCAT \
VECTOR
@@ -583,7 +582,7 @@ axiom_algebra_layer_11_objects = \
$(addprefix $(OUT)/, \
$(addsuffix .$(FASLEXT),$(axiom_algebra_layer_11)))
axiom_algebra_layer_12 = \
- BITS DIRPROD2 IMATRIX \
+ ULSCAT BITS DIRPROD2 IMATRIX \
IVECTOR LPOLY LSMP LSMP1 MATCAT2 PTCAT TRIMAT \
SYSTEM HOSTNAME PORTNUM
diff --git a/src/algebra/Makefile.pamphlet b/src/algebra/Makefile.pamphlet
index 289e88bf..ee0867c5 100644
--- a/src/algebra/Makefile.pamphlet
+++ b/src/algebra/Makefile.pamphlet
@@ -151,7 +151,7 @@ axiom_algebra_bootstrap = \
RNG RNS RNS- SETAGG \
SETAGG- SINT \
STAGG STAGG- SYMBOL \
- UFD UFD- ULSCAT \
+ UFD UFD- \
URAGG URAGG- \
VECTOR
@@ -169,7 +169,6 @@ axiom_algebra_bootstrap_last_layer = \
RNS RNS- \
SINT \
SYMBOL \
- ULSCAT \
VECTOR
@@ -600,7 +599,7 @@ axiom_algebra_layer_11_objects = \
<<layer12>>=
axiom_algebra_layer_12 = \
- BITS DIRPROD2 IMATRIX \
+ ULSCAT BITS DIRPROD2 IMATRIX \
IVECTOR LPOLY LSMP LSMP1 MATCAT2 PTCAT TRIMAT \
SYSTEM HOSTNAME PORTNUM
diff --git a/src/algebra/strap/ULSCAT.lsp b/src/algebra/strap/ULSCAT.lsp
deleted file mode 100644
index d82c1a35..00000000
--- a/src/algebra/strap/ULSCAT.lsp
+++ /dev/null
@@ -1,113 +0,0 @@
-
-(/VERSIONCHECK 2)
-
-(DEFPARAMETER |UnivariateLaurentSeriesCategory;CAT| 'NIL)
-
-(DEFPARAMETER |UnivariateLaurentSeriesCategory;AL| 'NIL)
-
-(DEFUN |UnivariateLaurentSeriesCategory;| (|t#1|)
- (PROG (#0=#:G1400)
- (RETURN
- (PROG1 (LETT #0#
- (|sublisV|
- (PAIR '(|t#1|) (LIST (|devaluate| |t#1|)))
- (|sublisV|
- (PAIR '(#1=#:G1399) (LIST '(|Integer|)))
- (COND
- (|UnivariateLaurentSeriesCategory;CAT|)
- ('T
- (LETT |UnivariateLaurentSeriesCategory;CAT|
- (|Join|
- (|UnivariatePowerSeriesCategory|
- '|t#1| '#1#)
- (|mkCategory| '|domain|
- '(((|series|
- ($
- (|Stream|
- (|Record|
- (|:| |k| (|Integer|))
- (|:| |c| |t#1|)))))
- T)
- ((|multiplyCoefficients|
- ($
- (|Mapping| |t#1|
- (|Integer|))
- $))
- T)
- ((|rationalFunction|
- ((|Fraction|
- (|Polynomial| |t#1|))
- $ (|Integer|)))
- (|has| |t#1|
- (|IntegralDomain|)))
- ((|rationalFunction|
- ((|Fraction|
- (|Polynomial| |t#1|))
- $ (|Integer|) (|Integer|)))
- (|has| |t#1|
- (|IntegralDomain|)))
- ((|integrate| ($ $))
- (|has| |t#1|
- (|Algebra|
- (|Fraction| (|Integer|)))))
- ((|integrate| ($ $ (|Symbol|)))
- (AND
- (|has| |t#1|
- (SIGNATURE |variables|
- ((|List| (|Symbol|)) |t#1|)))
- (|has| |t#1|
- (SIGNATURE |integrate|
- (|t#1| |t#1| (|Symbol|))))
- (|has| |t#1|
- (|Algebra|
- (|Fraction| (|Integer|))))))
- ((|integrate| ($ $ (|Symbol|)))
- (AND
- (|has| |t#1|
- (|AlgebraicallyClosedFunctionSpace|
- (|Integer|)))
- (|has| |t#1|
- (|PrimitiveFunctionCategory|))
- (|has| |t#1|
- (|TranscendentalFunctionCategory|))
- (|has| |t#1|
- (|Algebra|
- (|Fraction| (|Integer|)))))))
- '(((|RadicalCategory|)
- (|has| |t#1|
- (|Algebra|
- (|Fraction| (|Integer|)))))
- ((|TranscendentalFunctionCategory|)
- (|has| |t#1|
- (|Algebra|
- (|Fraction| (|Integer|)))))
- ((|Field|)
- (|has| |t#1| (|Field|))))
- '((|Symbol|)
- (|Fraction|
- (|Polynomial| |t#1|))
- (|Integer|)
- (|Stream|
- (|Record|
- (|:| |k| (|Integer|))
- (|:| |c| |t#1|))))
- NIL))
- . #2=(|UnivariateLaurentSeriesCategory|)))))) . #2#)
- (|setShellEntry| #0# 0
- (LIST '|UnivariateLaurentSeriesCategory|
- (|devaluate| |t#1|)))))))
-
-(DEFUN |UnivariateLaurentSeriesCategory| (#0=#:G1401)
- (LET (#1=#:G1402)
- (COND
- ((SETQ #1#
- (|assoc| (|devaluate| #0#)
- |UnivariateLaurentSeriesCategory;AL|))
- (CDR #1#))
- (T (SETQ |UnivariateLaurentSeriesCategory;AL|
- (|cons5| (CONS (|devaluate| #0#)
- (SETQ #1#
- (|UnivariateLaurentSeriesCategory;|
- #0#)))
- |UnivariateLaurentSeriesCategory;AL|))
- #1#))))