From: Robert D. <rob...@us...> - 2007-12-26 07:21:53
|
Update of /cvsroot/maxima/maxima/src In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv17727/src Modified Files: transl.lisp Log Message: In translation of local, call MLOCAL via MAPPLY, since MLOCAL is a DEFMSPEC, not DEFUN. Resolves [ 545794 ] Local Array does not compile properly. Index: transl.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/transl.lisp,v retrieving revision 1.35 retrieving revision 1.36 diff -u -d -r1.35 -r1.36 --- transl.lisp 17 Nov 2007 17:51:42 -0000 1.35 +++ transl.lisp 26 Dec 2007 07:21:50 -0000 1.36 @@ -1060,7 +1060,7 @@ ~%Try to use value cell and the Use_fast_arrays:true ~%if this is for arrays. For functions, local definitions are~ ~%not advised so use lambda expression") - (cons nil (cons 'mlocal (cdr form)))) + (cons nil `(mapply 'mlocal ',(cdr form) '$local))) (def%tr mquote (form) |