CVS maxima on openmcl

[Piet van Oostrum <piet@cs.uu.nl>]

openmcl returns :unspecific as result of pathname-device (which is
perfectly correct). But the cvs cersion of maxima can't deal with it and
includes UNSPECIFIC: in front of filenames.
The following patch solves this. Can somebody change this in the sources?

diff -c /Users/piet/Projects/cvs/maxima/src/init-cl.lisp.\~2\~ /Users/piet/Projects/cvs/maxima/src/init-cl.lisp
*** /Users/piet/Projects/cvs/maxima/src/init-cl.lisp.~2~	Mon Mar 22 19:09:54 2004
--- /Users/piet/Projects/cvs/maxima/src/init-cl.lisp	Sat Mar 20 23:42:22 2004
***************
*** 105,111 ****
  		 (let ((dev (pathname-device str)))
  		   (if (consp dev)
  		       (setf dev (first dev)))
! 		   (if (and dev (not (string= dev "")))
  		       (concatenate 'string
  				    (string-right-trim 
  				     ":" dev) ":")
--- 105,111 ----
  		 (let ((dev (pathname-device str)))
  		   (if (consp dev)
  		       (setf dev (first dev)))
! 		   (if (and dev (not (eq dev :unspecific)) (not (string= dev "")))
  		       (concatenate 'string
  				    (string-right-trim 
  				     ":" dev) ":")

-- 
Piet van Oostrum <piet@cs.uu.nl>
URL: http://www.cs.uu.nl/~piet [PGP]
Private email: P.van.Oostrum@hccnet.nl