On 30 Aug 2002, James Amundson wrote:
> (I'm forwarding this to the Maxima mailing list.)
Ack.
> Sigh. We have hacked around many such problems. Try globally replacing
> intersection with hyp-intersection in hyp.lisp. Be sure to include both
> uppercase and lowercase versions.
Emacs does this automatically. Here my diff:
126c126
< (COND ((NULL (SETQ IL (INTERSECTION L1 L2)))
---
> (COND ((NULL (SETQ IL (MAXIMA-HYP-INTERSECTION L1 L2)))
471c471
< (DEFUN INTERSECTION
---
> (DEFUN MAXIMA-HYP-INTERSECTION
476c476
< (intersection (cdr l1)
---
> (maxima-hyp-intersection (cdr l1)
478c478
< (t (intersection (cdr l1) l2))))
---
> (t (maxima-hyp-intersection (cdr l1) l2))))
> I hope that will solve the problem. Please let me know either way.
Oh dear. If this is bound to happen on a regular basis, it sounds like
a "recipe for desaster". I would strongly suggest letting a
primitive code-walker analyze the source for other such conflicts.
Anyway, after doing this manually, "make check" says:
======
Running test suite with cmucl...
*** Summary results for tests recorded in
*** log file tests-cmucl.log:
Error summary:
Error(s) found in rtest15.mac: (4)
Expected failures (known bugs in this version of Maxima):
rtest15.mac: (4)
Timing:
19.24f0 seconds of real time
17.89f0 seconds of user run time
0.88f0 seconds of system run time
[Run times include 3.1f0 seconds GC run time]
*** end of summary for tests-cmucl.log
======
then "make install" and /usr/local/bin/maxima (I also have the debian
package installed which uses GCL) works.
However, I still do have a very bad feeling converning the possibility of
accidentally having overwritten other symbols...
> Does anyone know how the Debian version number for CMUCL relates to the
> official CMUCL version number?
Peter Van Eynde <pvaneynd@debian.org> is the right one to ask here.
--
regards, tf@cip.physik.uni-muenchen.de (o_
Thomas Fischbacher - http://www.cip.physik.uni-muenchen.de/~tf //\
(lambda (n) ((lambda (p q r) (p p q r)) (lambda (g x y) V_/_
(if (= x 0) y (g g (- x 1) (* x y)))) n 1)) (Debian GNU)