anchor.diff:  
   (defmethod map-data ((dataset t) function (data sequence))
     "Map FUNCTION over each datum."
  -  #-(or sbcl cmu)
  -  (declare (downward-funarg function))
     (map nil function data))
   
   (defmethod map-data-xy ((dataset ESSENTIAL-GRAPH-DATA-MAP-MIXIN) function data)
     "Map function over each x y pair."
  -  #-(or sbcl cmu)
  -  (declare (downward-funarg function))
  -  (declare (compiled-function function))
     (map-data dataset
   	    #'(lambda (datum)
   		(declare (downward-function))
  
positive.code:   (:documentation "Fancy graphics style."))
  
  (defvar *SCI-GRAPH-AVAILABLE-STIPPLES*
  	(nconc '(("None" :value nil) ("Filled" :value t))
  	       #+(and (not clim) broken)
  	       (loop for STIP in graphics:*STIPPLE-ARRAYS*
  		     collecting (list (graphics:stipple-array-name STIP)
  				      :value
  				      STIP))))
  
  
  
negative.code:   ((data :initform () :initarg :data :accessor data))) ; data to display
  
  (defclass BASIC-GRAPH-DATA (named-object)
    (;; The alu is basically a (relatively) internal representation of a color so the
     ;; value here is implementation specific.
     ;; On LISPM it is either a number like tv:alu-xor, a keyword like :DRAW
     ;; In CLIM, it is an ink.
  