Skip to content
Browse files

fix bug in with-open-font

  • Loading branch information...
1 parent 5f69de8 commit c70849465912f0c275a8ce234a76e010482687fe @filonenko-mikhail committed Sep 4, 2012
Showing with 3 additions and 2 deletions.
  1. +3 −2 clx-truetype.lisp
View
5 clx-truetype.lisp
@@ -113,9 +113,10 @@
(font-path (gensym)))
`(let ((,font-path (get-font-pathname ,font)))
(multiple-value-bind (,loader ,exists-p)
- (gethash ,font-path *font-loader-cache* (zpb-ttf:open-font-loader ,font-path))
+ (gethash ,font-path *font-loader-cache*)
(unless ,exists-p
- (setf (gethash ,font-path *font-loader-cache*) ,loader))
+ (setf ,loader (setf (gethash ,font-path *font-loader-cache*)
+ (zpb-ttf:open-font-loader ,font-path))))
,@body))))
;;; Screen DPI

0 comments on commit c708494

Please sign in to comment.
Something went wrong with that request. Please try again.