X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela_ttf.lisp;h=6fbe4e58c958bcffc2d9b692403455cc6760ae16;hb=90f83164ea36dae4c0f3370f8ebbf7e30fe83297;hp=63b4b2d6326df139dbddb059e6995d83847afd8e;hpb=870f146b156daf8910c0ee549df1bc47d509169e;p=gacela.git

diff --git a/gacela_ttf.lisp b/gacela_ttf.lisp
index 63b4b2d..6fbe4e5 100644
--- a/gacela_ttf.lisp
+++ b/gacela_ttf.lisp
@@ -24,7 +24,10 @@
 	     (cond ((/= font 0)
 		    (ftglSetFontFaceSize font size 72)
 		    (ftglSetFontCharMap font encoding)
-		    (set-resource key `(:id-font ,font) nil :static static)
+		    (set-resource key
+				  `(:id-font ,font)
+				  (lambda () (ftglDestroyFont font))
+				  :static static)
 		    key)))))))
 
 (defun render-text (text font)