anchor.diff:                (setf val (setf (gethash key *concrete-font-hash*)
                                 (deref facef)))
                 (error "Freetype error in make-concrete-font"))))
  -      (let ((face val))
  -        (declare (type (alien freetype:face) face))
  -        (freetype:set-char-size face 0 (round (* size 64)) (round dpi) (round dpi))
  -        face))))
  -
  -(declaim (inline make-concrete-font))
  +      val)))
  +
  +(defun set-concrete-font-size (face size dpi)
  +  (declare (type (alien freetype:face) face))
  +  (freetype:set-char-size face 0 (round (* size 64)) (round dpi) (round dpi))
  +  face)
   
   (defun glyph-pixarray (face char)
     (declare (optimize (speed 3) (debug 1))
  
positive.code:     ((:sans-serif (:italic :bold)) . "VeraBI.ttf")
      ((:sans-serif :bold) . "VeraBd.ttf")))
  
  (defvar *freetype-font-path*)
  
  (fmakunbound 'clim-clx::text-style-to-x-font)
  
negative.code:                                        (make-vague-font font))))
                       (f (make-concrete-font f.font size)))
                  (declare (type (alien freetype:face) f))
                  (set-concrete-font-size f size *dpi*)
                  (make-instance 'freetype-face
                                 :display display
                                 :font font
                                 :matrix size
                                 :concrete-font f
                                 :ascent  (/ (slot (slot (slot f 'freetype:size_s) 'freetype:metrics) 'freetype:ascender) 64)
                                 :descent (/ (slot (slot (slot f 'freetype:size_s) 'freetype:metrics) 'freetype:descender) -64)))))))
  
  