diff --git a/changelog b/changelog index 52076b8..03731e7 100644 --- a/changelog +++ b/changelog @@ -1,3 +1,7 @@ +20110524 tpd src/axiom-website/patches.html 20110523.01.tpd.patch +20110524 tdt src/input/Makefile bug report regression test +20110524 tdt src/input/telford.input bug report regression test +20110524 tdt T. Doug Telford 20110523 tpd src/axiom-website/patches.html 20110523.01.tpd.patch 20110523 tpd src/interp/vmlisp.lisp treeshake compiler 20110523 tpd src/interp/define.lisp treeshake compiler diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html index 4e122f9..d17d6dd 100644 --- a/src/axiom-website/patches.html +++ b/src/axiom-website/patches.html @@ -3484,5 +3484,7 @@ books/bookvol9 treeshake compiler
books/bookvol9 treeshake compiler
20110523.01.tpd.patch books/bookvol9 treeshake compiler
+20110524.01.tpd.patch +T. Doug Telford bug report regression test diff --git a/src/input/Makefile.pamphlet b/src/input/Makefile.pamphlet index 5145a99..1f3aeb6 100644 --- a/src/input/Makefile.pamphlet +++ b/src/input/Makefile.pamphlet @@ -388,7 +388,8 @@ REGRESSTESTS= ackermann.regress \ stbl.regress stream2.regress stream.regress streams.regress \ string.regress strtbl.regress summation.regress \ symbol.regress t111293.regress table.regress tancot.regress \ - tanhcoth.regress tanatan.regress tbagg.regress test.regress \ + tanhcoth.regress tanatan.regress tbagg.regress telford.regress \ + test.regress \ testprob.regress textfile.regress torus.regress tuplebug.regress \ tpiezas001.regress \ tpiezas002.regress \ @@ -789,7 +790,8 @@ FILES= ${OUT}/ackermann.input \ ${OUT}/symbol.input \ ${OUT}/synonym.input ${OUT}/t111293.input \ ${OUT}/table.input ${OUT}/tancot.input ${OUT}/tanhcoth.input \ - ${OUT}/tanatan.input ${OUT}/tbagg.input ${OUT}/test.input \ + ${OUT}/tanatan.input ${OUT}/tbagg.input ${OUT}/telford.input \ + ${OUT}/test.input \ ${OUT}/testprob.input \ ${OUT}/tetra.input ${OUT}/textfile.input ${OUT}/tknot.input \ ${OUT}/tpiezas001.input \ @@ -1247,7 +1249,7 @@ DOCFILES= \ ${DOC}/synonym.input.dvi ${DOC}/t111293.input.dvi \ ${DOC}/table.input.dvi ${DOC}/tanatan.input.dvi \ ${DOC}/tancot.input.dvi ${DOC}/tanhcoth.input.dvi \ - ${DOC}/tbagg.input.dvi \ + ${DOC}/tbagg.input.dvi ${DOC}/telford.input.dvi \ ${DOC}/test.input.dvi ${DOC}/tetra.input.dvi \ ${DOC}/textfile.input.dvi ${DOC}/tknot.input.dvi \ ${DOC}/torus.input.dvi ${DOC}/testprob.input.dvi \ diff --git a/src/input/telford.input.pamphlet b/src/input/telford.input.pamphlet new file mode 100644 index 0000000..7b3fe26 --- /dev/null +++ b/src/input/telford.input.pamphlet @@ -0,0 +1,64 @@ +\documentclass{article} +\usepackage{axiom} +\setlength{\textwidth}{400pt} +\begin{document} +\title{\$SPAD/src/input telford.input} +\author{T.Doug Telford} +\maketitle +\begin{abstract} +\end{abstract} +\eject +\tableofcontents +\eject +\begin{chunk}{*} +)set break resume +)spool telford.output +)set message test on +)set message auto off +)clear all + +--S 1 of 5 +p(0)==1 +--R Type: Void +--E 1 + +--S 2 of 5 +p(1)==x +--R Type: Void +--E 2 + +--S 3 of 5 +p(n)==((2*n-1)*x*p(n-1)-(n-1)*p(n-2))/n +--R Type: Void +--E 3 + +--S 4 of 5 +p(10) +--R Compiling function p with type Integer -> Polynomial Fraction +--R Integer +--R Compiling function p as a recurrence relation. +--R +--R 46189 10 109395 8 45045 6 15015 4 3465 2 63 +--R (4) ----- x - ------ x + ----- x - ----- x + ---- x - --- +--R 256 256 128 128 256 256 +--R Type: Polynomial Fraction Integer +--E 4 + +--S 5 of 5 +coefficient(p(10),x,10) +--R +--R 46189 +--R (5) ----- +--R 256 +--R Type: Polynomial Fraction Integer +--E 5 + +)spool +)lisp (bye) + +\end{chunk} +\eject +\begin{thebibliography}{99} +\bibitem{1} nothing +\end{thebibliography} +\end{document}