aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/strap/MTSCAT.lsp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-01-26 19:40:22 +0000
committerdos-reis <gdr@axiomatics.org>2011-01-26 19:40:22 +0000
commit908960a455e09bf5440ab87ed288efc989f8b29e (patch)
tree1a5b46323e66a6302d10b4e1da8e9af6f8fdb4c1 /src/algebra/strap/MTSCAT.lsp
parentd093a22f14e8f669b08ac407b4a2d6fc32d1e2ae (diff)
downloadopen-axiom-908960a455e09bf5440ab87ed288efc989f8b29e.tar.gz
Replace more occurences of LIST with %listlit.
Diffstat (limited to 'src/algebra/strap/MTSCAT.lsp')
-rw-r--r--src/algebra/strap/MTSCAT.lsp3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/algebra/strap/MTSCAT.lsp b/src/algebra/strap/MTSCAT.lsp
index 56b20cbe..cb1148e9 100644
--- a/src/algebra/strap/MTSCAT.lsp
+++ b/src/algebra/strap/MTSCAT.lsp
@@ -11,8 +11,7 @@
(PAIR '(|t#1| |t#2|)
(LIST (|devaluate| |t#1|) (|devaluate| |t#2|)))
(|sublisV|
- (PAIR '(#1=#:G1373)
- (LIST '(|IndexedExponents| |t#2|)))
+ (PAIR '(#1=#:G1373) '((|IndexedExponents| |t#2|)))
(COND
(|MultivariateTaylorSeriesCategory;CAT|)
(T (SETQ |MultivariateTaylorSeriesCategory;CAT|