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:   (values 0))
  
  
  (defmethod make-color* (red green blue)
    ;;; Make-color with sensible arguments
    "given red, green, and blue, returns an encoded rgb value"
    (make-color** (default-interface) red green blue))
  
negative.code:   (declare (ignore interface instrument args))
    (error "I don't know how to select instruments."))
  
  (defun select-instrument (instrument &rest args)
    (apply #'select-instrument* *default-interface* instrument args))
  
  
  