From: Robert D. <rob...@us...> - 2008-10-11 16:38:06
|
Update of /cvsroot/maxima/maxima/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv2716/src Modified Files: commac.lisp Log Message: In INTERN-INVERT-CASE, intern symbols in the :maxima package instead of the current package. This ensures that expressions parsed in other packages (e.g. by calling MAXIMA::MREAD) yield symbols in the :maxima package. Index: commac.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/commac.lisp,v retrieving revision 1.53 retrieving revision 1.54 diff -u -d -r1.53 -r1.54 --- commac.lisp 26 Jul 2008 17:23:48 -0000 1.53 +++ commac.lisp 11 Oct 2008 16:38:01 -0000 1.54 @@ -427,10 +427,9 @@ (defun intern-invert-case (string) ;; Like read-from-string with readtable-case :invert - ;; - ;; No explicit package for INTERN. It seems maxima sets *package* - ;; as needed. - (intern (maybe-invert-string-case string))) + ;; Supply package argument in case this function is called + ;; from outside the :maxima package. + (intern (maybe-invert-string-case string) :maxima)) #-(or gcl scl allegro) |