[ab] [FIX] make the call parameters to initialise-font properly ordered

[Samium Gromoff]

Ditto.

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 02:01:43.000000000 +0300
@@ -47,7 +47,7 @@
   `(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)
        , at body
        (close-font :font *default-font*)
        (setf *default-font* nil))))

regards, Samium Gromoff