anchor.diff:  	  (setq left right right (+ right increment))
   	  (incf intensity quantum))))))
   
  -#-clim-2
  -(define-presentation-type color-presentation ()
  -  :description "a color"
  -  :parser ((stream)
  -	   (completing-from-suggestions (stream)
  -					(dolist (color *colors*)
  -					  (suggest (first color) (third color)))))
  -  :printer ((object stream)
  -	    ;; Present the textual name, rather than a swatch of color.
  -	    (write-string (string object) stream))
  -  :accept-values-displayer
  -  ((stream object query-identifier)
  -   (accept-values-choose-from-sequence
  -    stream *colors* object query-identifier
  -    :drawer
  -    #'(lambda (stream object name selected-p)
  -	(draw-color-swatch stream object name selected-p)))))
  -
  -#+clim-2
   (clim:define-presentation-type-abbreviation color-presentation ()
     ;; Can't simply call this 'color' because that already names a class.
     `((member ,@(mapcar #'third *colors*))
  
positive.code:     :printer present-color
      :highlighter highlight-color))
  
  #+clim-2
  (defun present-color (object stream &key acceptably)
    (declare (ignore acceptably))
    (with-room-for-graphics (stream)
  
negative.code: 		       (string object)
  		       nil)))
  
  (defun highlight-color (continuation object stream)
    (clim:surrounding-output-with-border
     (stream)
  