Commit 721b251f authored by Hans Huebner's avatar Hans Huebner
Browse files

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
parent 8fd0fa01
Loading
Loading
Loading
Loading
+5 −2
Original line number Diff line number Diff line
@@ -109,7 +109,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
@@ -174,7 +176,8 @@ with it. It is advisable to use WITH-IMAGE-FROM-GD2-PART 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 (namestring #+cmu (ext:unix-namestring file-name)
				#-cmu (namestring file-name))))
  (with-foreign-object (err :int)
    (with-cstring (c-file-name file-name)
      (let ((image (gd-image-create-from-gd2-part-file c-file-name err src-x src-y width height)))