OpenMCL test for maxima-5.9.1.9rc1



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