anchor.diff:           (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)
  
positive.code:    (make-pathname :name (filename plot)
                    :type "data"
                    :directory (filepath plot))))
  
  ;;; ---------------------------------------------------------------------------
  
  (defclass* gnuplot (plot-abstract)
    ((filename "plot" ia)
  
negative.code: write-plot-settings has too much similarity
  make-data-set has too much similarity
  |#
  
  (defvar *plot-default-host* "clnuplot")
  (defvar *plot-default-directory* "plots")
  