anchor.diff:  				(format stream label)
   				(terpri stream)
   				(setq highlighted-values
  -				  #+clim-2
   				  (accept
   				   ptype
   				   :default highlighted-values
   				   :view
   				   '(check-box-view :orientation :vertical)
   				   :prompt "Choose Several"
  -				   :stream stream)
  -				  #-clim-2
  -				  (accept ptype
  -					  :default highlighted-values
  -					  :prompt "Choose Several"
  -					  :stream stream))
  +				   :stream stream))
   				(terpri stream)))
   	  (values nil t)
   	(nreverse highlighted-values)))))
  
positive.code:   (when format-args
      ;; Typically, the formatter is not needed.
      (setq format-string (apply #'format nil format-string format-args)))
    #+clim-1.0
    (when (eq style clim:*null-text-style*)
      ;; A kludge for sure.  
      (setq style clim:*default-text-style*))
    #+clim
    (let* ((return #.(aref (format nil "~%") 0))
  	 (line-cnt (1+ (count return format-string :test #'char=))))
      ;; This is 2-3 times faster than using continuation-output-size.
      (multiple-value-bind (x xmax)
  	(stream-string-width stream format-string :text-style style)
        (declare (ignore x))
        (values xmax (* line-cnt (stream-line-height stream style)))))
    #-clim
    (continuation-output-size #'(lambda (s)
  				(if style
  				    (with-character-style (style s)
  				      (format s format-string))
  				  (format s format-string)))
  			    stream))
  
  ;;; These things are needed mainly for annotations, but they are kept in a separate
  ;;; file to minimize the clutter in the annotations code.
  
negative.code:   (let* ((rad (values (truncate (- size 2) 2)))
  	 (offset rad))
      ;; Since clim insists on flipping the coordinate system...
      (setq offset (- offset))
      (multiple-value-bind (x y) (stream-cursor-position* stream)
        (draw-circle (+ x offset) (+ y offset)
  		   rad :stream stream :filled selected-p)
        (if selected-p
  