From: Robert D. <rob...@us...> - 2006-05-21 01:10:10
|
Update of /cvsroot/maxima/maxima/src In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv21661/src Modified Files: rat3c.lisp Log Message: Cutting references to unimplemented gcd algorithms $eez and $sphen. - src/rat3c.lisp: Cut references to $eez and $sphen in code. - doc/info/Polynomials.texi: Cut references to $eez in documentation. Index: rat3c.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/rat3c.lisp,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- rat3c.lisp 21 Mar 2006 22:59:11 -0000 1.10 +++ rat3c.lisp 21 May 2006 01:10:06 -0000 1.11 @@ -23,7 +23,7 @@ ;; List of GCD algorithms. Default one is first. -(defmvar *gcdl* '($subres $ez $red $spmod $mod $sphen $eez $algebraic)) +(defmvar *gcdl* '($subres $ez $red $spmod $mod $algebraic)) (defmvar $gcd (car *gcdl*)) ;Sparse Modular @@ -120,8 +120,6 @@ ((eq $gcd '$ez) (ezgcd2 x y)) ((eq $gcd '$red) (list (oldgcd x y))) ((eq $gcd '$mod) (newgcd x y modulus)) - ((eq $gcd '$sphen) (merror "sphgcd not implemented")) ; (SPHGCD X Y)) - ((eq $gcd '$eez) (merror "eezgcd not implemented")) ; (EEZGCD X Y)) ((not (memq $gcd *gcdl*)) (merror "`gcd' set incorrectly:~%~M" $gcd)) (t (list 1 x y)))) |