anchor.diff:           (desktop-height (comp:height window))
            (framebuffer (comp:window-buffer window))
            (font (font desktop))
  -         (text-cache (build-text-cache *icons* font theme:*desktop-text*)))
  +         (text-cache (build-text-cache *icons* font)))
       (gui:bitset :set
                   desktop-width desktop-height
                   (colour desktop)
  
positive.code:          (destructuring-bind (icon name fn) icon-repr
             (declare (ignore fn icon))
             (when (not (gethash name cache))
               (setf (gethash name cache) (rasterize-string name font colour)))))
      cache))
  
  (defparameter *icon-vertical-space* 20)
  
negative.code:   (let* ((font (font desktop))
           (window (window desktop))
           (desktop-height (comp:height window))
           (text-cache (build-text-cache *icons* font :geometry-only t)))
      (loop
         with icon-pen = 0
         with column = *icon-horizontal-offset*
  