Hello,
Seems that there is a bug in transl.lisp. It makes maxima to get into
debugger on attempt to output some warnings to the UNLISP file during
translation (this happens, say, if you try to translate the function
f(t,a):=t(a);
)
Here is the patch to cure it.
Fedor Bezrukov http://www.inr.ac.ru/~fedor/
--- src/transl.lisp.flb Sun Mar 3 00:53:38 2002
+++ src/transl.lisp Sun Mar 3 00:37:38 2002
@@ -221,15 +221,16 @@
(DEFTRFUN TR-TELL (&REST X &AUX (TP T))
(DO ((X X (CDR X)))
((NULL X))
(COND ((ATOM (CAR X)) ;;; simple heuristic that seems to work.
(COND ((OR TP (> (FLATC (CAR X)) 10.))
- (TERPRI *TRANSLATION-MSGS-FILES*)
+ (dolist (v *TRANSLATION-MSGS-FILES*) (TERPRI v))
(SETQ TP NIL)))
- (PRINC (STRIPDOLLAR (CAR X)) *TRANSLATION-MSGS-FILES*))
+ (dolist (v *TRANSLATION-MSGS-FILES*)
+ (PRINC (STRIPDOLLAR (CAR X)) v)))
(T
- (MGRIND (CAR X) *TRANSLATION-MSGS-FILES*)))))
+ (dolist (v *TRANSLATION-MSGS-FILES*) (MGRIND (CAR X) v))))))
(DEFTRFUN BARFO (&REST L)
(APPLY #'TR-TELL
(nconc l
'("***BARFO*** gasp. Internal TRANSLATE error. i.e. *BUG*")))