anchor.diff:  		    collect parm-ass
   		    else collect (list parm 0))))
         (setq data-function
  -	    (let ((*terminal-io* #+lucid lcl::*initial-io*
  -				     #-lucid *terminal-io*))
  +	    (let ((*terminal-io* *terminal-io*))
   	      (compile
   	       nil
   	       `(lambda (,variable ,@(map 'list #'(lambda (p) (first p)) parameters))
  
positive.code: 	(y-label self) (label-this-accessor self y-accessor))
    ;; flush old annotations...
    ;; (setf (annotations self) nil)
    #-genera
    (setf (auto-scale self) :both)
    #+genera
    (funcall #'(setf auto-scale) self :both)) ; +++ Unresolved genera problem?
  
  (defmethod initialize-instance :after ((self graph-with-reselectable-axes) &key)
    (when (and (x-accessor self) (y-accessor self))
  
negative.code:      basic-graph-data)
    ())
  
  ;;; Specialize this by providing a :COMPUTE method.
  (defclass BASIC-LINE-FIT (graph-sample-data-mixin line-data)
    ())
  