[version 0.5.3
ediware**20070319060011] {
hunk ./CHANGELOG 1
+Version 0.5.3
+2007-03-19
+Fixed bug in DRAW-FREETYPE-STRING (reported by Andrei Stebakov)
+
hunk ./cl-gd.asd 2
-;;; $Header: /usr/local/cvsrep/gd/cl-gd.asd,v 1.14 2007/02/28 15:47:58 edi Exp $
+;;; $Header: /usr/local/cvsrep/gd/cl-gd.asd,v 1.15 2007/03/19 00:35:27 edi Exp $
hunk ./cl-gd.asd 43
-  :version "0.5.2"
+  :version "0.5.3"
hunk ./doc/index.html 206
-current version is 0.5.2.  A <a href="http://packages.debian.org/cgi-bin/search_packages.pl?keywords=cl-gd&amp;searchon=names&amp;subword=1&amp;version=all&amp;release=all">Debian package</a> is available thanks to <a href="http://pvaneynd.mailworks.org/">Peter van Eynde</a> and <a href="http://b9.com/">Kevin Rosenberg</a>, so if you're on Debian you should have no problems installing CL-GD. There's also a port
+current version is 0.5.3.  A <a href="http://packages.debian.org/cgi-bin/search_packages.pl?keywords=cl-gd&amp;searchon=names&amp;subword=1&amp;version=all&amp;release=all">Debian package</a> is available thanks to <a href="http://pvaneynd.mailworks.org/">Peter van Eynde</a> and <a href="http://b9.com/">Kevin Rosenberg</a>, so if you're on Debian you should have no problems installing CL-GD. There's also a port
hunk ./doc/index.html 999
-          :if-exists :supersede))
+                       :if-exists :supersede))
hunk ./doc/index.html 1435
-$Header: /usr/local/cvsrep/gd/doc/index.html,v 1.68 2007/02/28 15:54:41 edi Exp $
+$Header: /usr/local/cvsrep/gd/doc/index.html,v 1.70 2007/03/19 00:35:28 edi Exp $
hunk ./strings.lisp 2
-;;; $Header: /usr/local/cvsrep/gd/strings.lisp,v 1.19 2007/01/01 23:41:00 edi Exp $
+;;; $Header: /usr/local/cvsrep/gd/strings.lisp,v 1.20 2007/03/19 00:35:27 edi Exp $
hunk ./strings.lisp 136
-  (check-type color integer)
-  (check-type image image)
+  (cond (do-not-draw
+         (setq color 0
+               image *null-image*))
+        (t
+         (check-type color integer)
+         (check-type image image)))
hunk ./strings.lisp 167
-                               (gd-image-string-ft-ex (if do-not-draw
-                                                          *null-image*
-                                                          (img image))
+                               (gd-image-string-ft-ex (img image)
hunk ./strings.lisp 177
-                             (gd-image-string-ft (img (if do-not-draw
-                                                          *null-image*
-                                                          image))
+                             (gd-image-string-ft (img image)
}