anchor.diff:    (setf (x vec) (/ (x vec) n))
     (setf (y vec) (/ (y vec) n)))
   
  -
   (defun mag-vectors (vec)
     (sqrt (+ (* (x vec) (x vec))
   	   (* (y vec) (y vec)))))
  
positive.code:     (if (zerop m)
  	0
  	(div-vectors vec m))))
  
  (defun help ()
    (format t "Vectors~%")
  
negative.code: (defparameter *y* 0)
  (defparameter *xspeed* 0)
  (defparameter *yspeed* 0)
  (defparameter *topspeed* 0)
  
  
  (defclass pvector ()
  