anchor.diff:    (declare (ignore interface thing))
     (error "I don't know anything about clipboards."))
   
  -
  -(defmethod put-item-on-clipboard (thing)
  +(defun put-item-on-clipboard (thing)
     (put-item-on-clipboard* *default-interface* thing)
     thing)
   
  
positive.code:   (make-color** interface level level level))
  
  
  (defmethod make-gray (level)
    ;;; These use a 0-255 scale for component levels
    (make-gray* (default-interface) level))
  
  
negative.code:                 (round (* blue scale))))
  
  
  (defun make-scaled-color (red green blue scale)
    (make-scaled-color* (default-interface) red green blue scale))
  
    
  