X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela_ttf.lisp;fp=gacela_ttf.lisp;h=0077ad42aa4c372cb5056bf9e9132c387199e9d6;hb=c31ef82b8f98c9011aa5a80777ad374566d743aa;hp=6fbe4e58c958bcffc2d9b692403455cc6760ae16;hpb=90f83164ea36dae4c0f3370f8ebbf7e30fe83297;p=gacela.git

diff --git a/gacela_ttf.lisp b/gacela_ttf.lisp
index 6fbe4e5..0077ad4 100644
--- a/gacela_ttf.lisp
+++ b/gacela_ttf.lisp
@@ -26,6 +26,7 @@
 		    (ftglSetFontCharMap font encoding)
 		    (set-resource key
 				  `(:id-font ,font)
+				  (lambda () (open-font font-file :size size :encoding encoding :static static))
 				  (lambda () (ftglDestroyFont font))
 				  :static static)
 		    key)))))))