From: Robert D. <rob...@us...> - 2008-07-27 15:26:22
|
Update of /cvsroot/maxima/maxima/share/orthopoly In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv16744/share/orthopoly Modified Files: orthopoly.lisp Log Message: Autoload declarations for SIMP-UNIT-STEP and SIMP-POCHHAMMER in orthopoly. I hope this resolves some errors in the test suite. Index: orthopoly.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/share/orthopoly/orthopoly.lisp,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- orthopoly.lisp 22 Jul 2008 10:46:26 -0000 1.10 +++ orthopoly.lisp 27 Jul 2008 15:26:18 -0000 1.11 @@ -64,7 +64,6 @@ ;; ((unk) input from user). We "simplify" this form by printing an error. (defprop unk simp-unk operators) - (defun simp-unk (x y z) (declare (ignore y z)) (merror "Maxima doesn't know the derivative of ~:M with respect the ~:M argument" (nth 2 x) (nth 1 x))) @@ -76,7 +75,6 @@ ;; This function differs from (1 + signum(x))/2 which isn't left or right ;; continuous at 0. -(defprop $unit_step simp-unit-step operators) (defprop $unit_step "\\Theta" texword) (defun simp-unit-step (a y z) @@ -241,7 +239,6 @@ (meval `(($declare) $pochhammer $complex)) (defmvar $pochhammer_max_index 100) -(defprop $pochhammer simp-pochhammer operators) (defun $pochhammer (x n) (simplify `(($pochhammer) ,x ,n))) |