(defmethod move-to ((atom cqm-atom) &rest r)
  (destructuring-bind (x-or-v &optional y z) r
    (setf (location atom)
          (if (and y z)
              (make-instance 'vector-3d :x x-or-v :y y :z z)
              x-or-v))))