[ab] [FIX] make lispbuilder-sdl-ttf "less free"

[Samium Gromoff]

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)
>  	  , at 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 :-)

>         , at body
> -       (close-font :font *default-font*)
>         (setf *default-font* nil))))
>  
>  ;;; Functions
> 
> 
> regards, Samium Gromoff