anchor.diff:  ;; cxml-stp test:
   
   (defparameter m-stp (cxml:parse *xml-path* (stp:make-builder)))
  +
  +(defclass mesh ()
  +  ((attributes :accessor attrs)
  +   (indices :accessor inds)
  +   (stp-obj :accessor so)
  +   (vbo :accessor vbo)))
  +
  +(defclass attribute ()
  +  ((index :accessor index) (type :accessor attr-type) (size :accessor size)
  +   (data :accessor data)))
  +
  +(defclass indices ()
  +  ((command :accessor cmd) (type :accessor indices-type) (data :accessor data)))
   
   ;; everything is a node, every node has PARENTS
   ;; (stp:parent m-stp) , some CAN have children:
  
positive.code: 
  
  
  (defclass mesh ()
    ((vbo :accessor vbo)
     (attributes :accessor attrs)
     (indices :accessor inds)
     (stp-obj :accessor so)))
  
  (defclass attribute ()
    ((index :accessor index) (type :accessor attr-type) (size :accessor size)
     (data :accessor data)))
  
  (defclass indices ()
    ((command :accessor cmd) (type :accessor indices-type)))
  
  (defun vertex-data (stp-obj)
    ;; check out this APPLY use!! Could solve all problems of the sort
  
negative.code: (defun make-mesh (stp-obj)
    (let ((mesh (make-instance 'mesh)))
      (setf (attrs mesh) (stp-obj->attributes stp-obj))
      (setf (inds mesh) (stp-obj->indices stp-obj))
      (setf (so mesh) stp-obj)
  mesh))
  
  (defun mesh->vao (path-to-xml)
  