Commit d5fc6d87 authored by Hans Huebner's avatar Hans Huebner
Browse files

use unix-namestring instead of namestring on cmucl - this works with 

embedded logical pathnames for me (home: etc)


git-svn-id: svn://bknr.net/svn/trunk/thirdparty/cl-gd@1272 4281704c-cde7-0310-8518-8e2dc76b1ff0
parent 0d55d8dd

images.lisp

+3 −1
Original line number Diff line number Diff line
@@ -110,7 +110,9 @@ done with it. It is advisable to use WITH-IMAGE-FROM-FILE instead." 
    (unless (probe-file file-name)

      (error "File ~S could not be found" file-name))

    (when (pathnamep file-name)

      (setq file-name (namestring file-name)))

      (setq file-name

	    #+cmu (ext:unix-namestring file-name)

	    #-cmu (namestring file-name)))

    (with-foreign-object (err :int)

      (with-cstring (c-file-name file-name)

        (let ((image (ecase %type