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)
,@body
(close-font :font *default-font*)
(setf *default-font* nil))))
regards, Samium Gromoff
_______________________________________________
application-builder mailing list
application-builder@lispniks.com
http://www.lispniks.com/mailman/listinfo/application-builder
