anchor.diff:                (setf (xlib:gcontext-font gc)
                       fn))))))))
   
  -;;;
   ;;; This fixes the worst offenders making the assumption that drawing
   ;;; would be idempotent.
  -;;;
   
   (defmethod clim:handle-repaint :around ((s clim:sheet-with-medium-mixin) r)
     (let ((m (clim:sheet-medium s))
  
positive.code: 
  (defparameter *vague-font-hash* (make-hash-table :test #'equal))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (let ((lookaside nil))
    (defun display-the-glyph-set (display)
  
negative.code:            glyph-ids
             :end (- end start)))))))
  
  (defparameter *sizes*
    '(:normal 12
      :small 10
  