anchor.diff:                          (legend-creator (lambda (x) (format nil "~A" x)))
                           &allow-other-keys)
     (remf args :key)
  -  (bind ((first? t)
  -         (result nil)
  +  (bind ((result nil)
            (plot (apply #'make-plot nil nil 
                         :title title
                         :xlabel xlabel
  
positive.code:                   :width width
                    :offset (incf offset offset-delta)
                    :fill (list :solid 0.50)
                    :legend (when legend-creator (funcall legend-creator data-kind)))
         (setf first? nil)))
      (values plot)))
  
  (defun data->n-buckets (data bucket-count key &key bucket-center)
  
negative.code:                           (legend-creator (lambda (x) (format nil "~A" x)))
                            &allow-other-keys)
    (remf args :key)
    (bind ((result nil)
           (plot (apply #'make-plot nil nil 
                        :title title
                        :xlabel xlabel
  