Browse files

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

embedded logical pathnames for me (home: etc)

git-svn-id: svn:// 4281704c-cde7-0310-8518-8e2dc76b1ff0
  • Loading branch information...
1 parent 0d55d8d commit d5fc6d879f4b4dc2c1326ed8890b26ad8809c061 @hanshuebner hanshuebner committed Feb 17, 2005
Showing with 3 additions and 1 deletion.
  1. +3 −1 images.lisp
@@ -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

0 comments on commit d5fc6d8

Please sign in to comment.