Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Paket-Hygiene (boah, sieht das eklig aus)

cms-Header modifiziert, logo gibt jetzt keinen Seitentitel mehr aus (das
war von der Reihenfolge her unnoetig).  Braucht neue Style Sheets, um
vernuenftig auszusehen.


git-svn-id: svn://bknr.net/svn/trunk/thirdparty/cl-gd@1609 4281704c-cde7-0310-8518-8e2dc76b1ff0
  • Loading branch information...
commit 721b251f6984d40cf22dcc7dde938f41c0f8fad3 1 parent 8fd0fa0
Hans Hübner authored March 30, 2005

Showing 1 changed file with 5 additions and 2 deletions. Show diff stats Hide diff stats

  1. 7  images.lisp
7  images.lisp
@@ -109,7 +109,9 @@ done with it. It is advisable to use WITH-IMAGE-FROM-FILE instead."
109 109
     (unless (probe-file file-name)
110 110
       (error "File ~S could not be found" file-name))
111 111
     (when (pathnamep file-name)
112  
-      (setq file-name (namestring file-name)))
  112
+      (setq file-name
  113
+	    #+cmu (ext:unix-namestring file-name)
  114
+	    #-cmu (namestring file-name)))
113 115
     (with-foreign-object (err :int)
114 116
       (with-cstring (c-file-name file-name)
115 117
         (let ((image (ecase %type
@@ -174,7 +176,8 @@ with it. It is advisable to use WITH-IMAGE-FROM-GD2-PART instead."
174 176
   (unless (probe-file file-name)
175 177
     (error "File ~S could not be found" file-name))
176 178
   (when (pathnamep file-name)
177  
-    (setq file-name (namestring file-name)))
  179
+    (setq file-name (namestring #+cmu (ext:unix-namestring file-name)
  180
+				#-cmu (namestring file-name))))
178 181
   (with-foreign-object (err :int)
179 182
     (with-cstring (c-file-name file-name)
180 183
       (let ((image (gd-image-create-from-gd2-part-file c-file-name err src-x src-y width height)))

0 notes on commit 721b251

Please sign in to comment.
Something went wrong with that request. Please try again.