Dear Robert san,
Sorry for the duplicate posting. Please ignore this.
Y.Honda
imaxima@mac.com
On 2005/09/12, at 0:23 AM, imaxima@mac.com wrote:
> Hi maxima 5.9.2 release manager,
>
> I would like to report the maxima-5.9.1.9rc1 installation test in
> the following
> environment:
> Mac OS X 10.4.2
> Fink 8.0
> OpenMCL 0.14.3
>
> I needed to modify some source code of maxima. Here goes what I did
> to run maixma-5.9.1.9rc on OpenMCL. I hope these to be included in the
> 5.9.2 release.
>
> Y. Honda
>
> --------------------
>
> ./configure --enable-openmcl
> make
>
> - insert # at the beginning of the line:
> binary-openmcl/maxima.image : SYS-DECLAIM.lisp
> in the src/Makefile to look like:
> #binary-openmcl/maxima.image : SYS-DECLAIM.lisp
>
> - replace defsystem.lisp with the one used in 5.9.1.
>
> - edit src/mforma.lisp line 170 to look it like:
> `(member ,x '(#\linefeed #\return #\space #\tab #\page #-(or
> clisp gcl openmcl) #\vt #+clisp #\code11)
>
> Above changes make the compilation succeeded. However, commands
> such as example() does not work. To work around:
>
> - edit src/init-cl.lisp function maxima-parse-dirstring() to look
> like:
>
> (defun maxima-parse-dirstring (str)
> (let ((sep "/"))
> (if (position (character "\\") str)
> (setq sep "\\"))
> (setf str (concatenate 'string (string-right-trim sep str) sep))
> (concatenate 'string
> (let ((dev (pathname-device str)))
> (if (consp dev)
> (setf dev (first dev)))
> (if (and dev (not (string= dev ""))
> ;; It is allowed to returns :unspecific as a
> ;; value for (pathname-device) function and openmcl
> does this. We must be
> ;; prepared for this.
> (not (string= dev :unspecific)))
> (concatenate 'string
> (string-right-trim
> ":" dev) ":")
> ""))
> "/"
> (combine-path
> (rest (pathname-directory str))))))
>
> Above change make maxima to work correctly in command line use. If
> you want to use imaxima, you need additional modification in the
> file command-line.lisp:
>
> - edit very last of command-line.lisp to have openmcl version of
> get-application-args() function:
>
> ;; FIXME: openmcl version missing
> #+openmcl
> (rest (ccl::command-line-arguments))
> )
>
>
>
> Yasuaki Honda
> Chiba, Japan
>
> http://members3.jcom.home.ne.jp/imaxima/
>
> mailto:imaxima@mac.com
>
>
>
> _______________________________________________
> Maxima mailing list
> Maxima@math.utexas.edu
> http://www.math.utexas.edu/mailman/listinfo/maxima
>