anchor.diff:  		(setf (point-crs p) (second n)))
   	       ((equal (first n) 'alt)
   		(setf (point-alt p) (second n)))
  +	       ((equal (first n) 'sats)
  +		(setf (point-sats p) (second n)))
  +	       ((equal (first n) 'mode)
  +		(setf (point-mode p) (second n)))
   	       ((equal (first n) 'datum)
   		(setf (point-datum p) (second n)))
   	       ))
  
positive.code:   (format t "Alt:  ~F~%" (point-alt p))
    (format t "Spd:  ~F~%" (point-spd p))
    (format t "Crs:  ~F~%" (point-crs p))
    (format t "Datum:  ~A~%" (point-datum p)))
  
  (defmethod point-deserialize-method ((p gps-point) point-data)
  
negative.code:   ((spd :accessor point-spd
  	:initarg :spd
  	:initform nil)
     (mode :accessor point-mode
  	 :initarg :mode
  	 :initform nil)
     (sats :accessor point-sats
  	 :initarg :sats
  	 :initform nil)
  