anchor.diff:            (when it
               (setf (item-at (settings object) name) it)))))
   
  -;;; ---------------------------------------------------------------------------
  -
   (defmethod handle-setting ((kind (eql nil)) name data value)
     (values name value))
   
  -;;; ---------------------------------------------------------------------------
  -
   (defmethod handle-setting ((kind (eql :translate)) name data value)
     (values (getf data :translate) value))
   
  -;;; ---------------------------------------------------------------------------
  -
   (defmethod handle-setting ((kind (eql :range)) name data value)
     (values nil nil))
   
  -;;; ---------------------------------------------------------------------------
  -
   (defmethod format-value-for-gnuplot (name (value string))
     (format nil "\"~A\"" (make-string-safe-for-unix value)))
   
  -;;; ---------------------------------------------------------------------------
  -
   (defmethod format-value-for-gnuplot (name (value symbol))
     (format nil "~(~A~)" (symbol-name value)))
   
  -;;; ---------------------------------------------------------------------------
  -
   (defmethod format-value-for-gnuplot (name (value integer))
     (format nil "~D" value))
   
  -;;; ---------------------------------------------------------------------------
  -
   (defmethod format-value-for-gnuplot (name (value number))
     (format nil "~F" value))
  -
  -;;; ---------------------------------------------------------------------------
   
   (defmethod format-value-for-gnuplot (name (value list))
     (with-output-to-string (out)
  
positive.code:   {linewidth | lw <line_width>}}}
  |#
  
  ;;; ---------------------------------------------------------------------------
  
  (defparameter *plot-data-set-settings*
    `((:style)
      (:legend :translate :title)
  
negative.code:          (setf first? nil))))
      pathname))
  
  (defmethod write-plot ((plot gnuplot) (style (eql :postscript)))
    (with-new-file (out (fullpath plot))
      (format out "set term push~C" #\Linefeed)
  