2002-10-07 Sam Steingold <sds@gnu.org>
* hyp.lisp (intersection): shadow the CL symbol that we are
redefining
(step7): call `hyp-algv' with a correct number of arguments
--
Sam Steingold (http://www.podval.org/~sds) running RedHat7.3 GNU/Linux
<http://www.camera.org>; <http://www.iris.org.il>; <http://www.memri.org/>;
<http://www.mideasttruth.com/>; <http://www.palestine-central.com/links.html>;
There are 3 kinds of people: those who can count and those who cannot.
--- hyp.lisp.~1.2.~ Fri Apr 20 15:18:49 2001
+++ hyp.lisp Mon Oct 7 10:20:28 2002
@@ -3,6 +3,9 @@
(in-package "MAXIMA")
+(eval-when (compile eval load)
+ (shadow '(maxima::intersection)))
+
(macsyma-module hyp)
(eval-when (compile eval)
@@ -559,15 +562,15 @@
l ($denom kl))
(cond ((equal (* 2 l) n)
(cond ((maxima-integerp (// (- k m) n))
- (return (hyp-algv k l m n a b))))))
+ (return (hyp-algv k l m n a b c))))))
(cond ((maxima-integerp (// k (* 2 l)))
(cond ((maxima-integerp (// m n))
- (return (hyp-algv k l m n a b)))
+ (return (hyp-algv k l m n a b c)))
(t (return nil))))
((maxima-integerp (// m n))
(return nil))
((maxima-integerp (/ (- (* k n) (* 2 l m)) (* 2 l n)))
- (return (hyp-algv k l m n a b))))
+ (return (hyp-algv k l m n a b c))))
(return nil)))
(defun getxy