anchor.diff:  	    window colormap color (namestring (truename source))))
    	  ((vector string)
   	   (%pixmap-colormap-create-from-xpm-d window colormap color source)))
  -      (unreference-instance pixmap)
  -      (unreference-instance mask)
  +;;       (unreference-instance pixmap)
  +;;       (unreference-instance mask)
         (values pixmap mask))))
  -|#  
  +
   
   
   ;;; Color
  
positive.code: 
  
  ;;; Pixmaps
  #|
  (defbinding pixmap-new (width height depth &key window) pixmap
    (width int)
    (height int)
  
negative.code:   (y int :out)
    (mask modifier-type :out))
  
  (defbinding %get-default-root-window () window)
  
  (defun get-root-window (%optional display)
    (if display
        (error "Not implemented")
      (%get-default-root-window)))
  
  
  ;;
  