Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
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
  • Loading branch information...
commit d5fc6d879f4b4dc2c1326ed8890b26ad8809c061 1 parent 0d55d8d
@hanshuebner hanshuebner authored
Showing with 3 additions and 1 deletion.
  1. +3 −1 images.lisp
View
4 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
Please sign in to comment.
Something went wrong with that request. Please try again.