anchor.diff:                (if offset offset 0)))
        nil)
      (if y-coord (list (funcall y-coord datum)) nil)
  -   (list (determine-width width))))
  +   (list (determine-width width))
  +   (if label (list (funcall label datum)) nil)
  +   ))
   
   (defmethod determine-width ((width number))
     (values width))
  
positive.code:          #+Ignore
           (make-container 'sorted-list-container
                           :key 'first :stable? t) r)))
  
  (defmethod write-plot ((plot gnuplot) (style (eql :gnuplot)))
    (let ((pathname (fullpath plot))
  
negative.code: 
  (defmethod make-data-point ((point-kind (eql :box)) datum
                              &key (x-coord 'first) (y-coord 'second) (width 0.5)
  			    (label 'third)
                              (offset nil)
                              &allow-other-keys)
    (append 
  