At Sat, 03 Feb 2007 08:03:11 +0300, Samium Gromoff wrote: [snip] > diff -urN lispbuilder-new/trunk/lispbuilder-sdl-ttf/sdl-ttf/sdl-util-ttf.lisp > lispbuilder-ultranew/trunk/lispbuilder-sdl-ttf/sdl-ttf/sdl-util-ttf.lisp > --- lispbuilder-new/trunk/lispbuilder-sdl-ttf/sdl-ttf/sdl-util-ttf.lisp > 2007-02-02 22:51:51.000000000 +0300 > +++ lispbuilder-ultranew/trunk/lispbuilder-sdl-ttf/sdl-ttf/sdl-util-ttf.lisp > 2007-02-03 04:18:06.000000000 +0300 > @@ -27,7 +27,6 @@ > `(unwind-protect > (when (init-ttf) > ,@body) > - (close-font :font *default-font*) > (quit-ttf))) > > (defmacro with-open-font ((font-name size &optional font-path) &body body) > @@ -47,9 +47,8 @@ > `(with-init () > (when (typep *default-font* 'font) > (error "WITH-OPEN-FONT; *default-font* is already bound to a FONT.")) > - (when (initialise-font ,font-name ,size ,font-path) > + (when (initialise-font ,font-name ,font-path ,size)
Oh, this has a previous patch leaked in, sorry... hopefully you like it too :-) > ,@body > - (close-font :font *default-font*) > (setf *default-font* nil)))) > > ;;; Functions > > > regards, Samium Gromoff _______________________________________________ application-builder mailing list [email protected] http://www.lispniks.com/mailman/listinfo/application-builder
