anchor.diff:  
   
   (defmethod port-force-output ((port clx-fb-port))
  -  (maphash #'(lambda (key val)
  -               (when (typep key 'clx-fb-mirrored-sheet-mixin)
  -                 (mcclim-render-internals::%mirror-force-output (sheet-mirror key))))
  -           (slot-value port 'climi::sheet->mirror))
  +  (alexandria:maphash-keys
  +   (lambda (key)
  +     (when (typep key 'clx-fb-mirrored-sheet-mixin)
  +       (mcclim-render-internals::%mirror-force-output (sheet-mirror key))))
  +   (slot-value port 'climi::sheet->mirror))
     (xlib:display-force-output (clx-port-display port)))
   
   ;;; Pixmap
  
positive.code: (defmethod port-deallocate-pixmap ((port clx-fb-port) pixmap)
    (when (port-lookup-mirror port pixmap)
      (destroy-mirror port pixmap)))
  
  
negative.code: 
  
  (defmethod make-medium ((port clx-fb-port) sheet)
    (make-instance 'clx-fb-medium
  		 ;; :port port
  		 ;; :graft (find-graft :port port)
  		 :sheet sheet))
  
  
  