anchor.diff:    (values 0))
   
   
  -(defmethod make-color* (red green blue)
  +(defun 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))
  
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:   (values))
  
  
  (defun process-parameters (&rest args)
    (apply #'process-parameters* *default-interface* args)
    (values))
  
  