anchor.diff:  (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)
  
positive.code: ;; cxml-stp test:
  
  (defparameter m-stp (cxml:parse *xml-path* (stp:make-builder)))
  
  ;; everything is a node, every node has PARENTS
  ;; (stp:parent m-stp) , some CAN have children:
  
negative.code: 
  (defun stp-obj->attributes (stp-obj)
    (node-attributes-list (list-element-nodes stp-obj)))
  
  ;;;INDICES
  
  (defun node->index (indx-node)
    (let ((indx (make-instance 'indices)))
      (stp:with-attributes
  	((c "cmd") (ty "type")) indx-node
        (setf (cmd indx) (read-from-string c))
        (setf (indices-type indx) (read-from-string ty))
        (setf (data indx) (list-from-string (stp:data (stp:first-child indx-node)))))
      indx))
  
  (defun node-indices-list (element-nodes)
    "Take list of element nodes and return a list of indices objects from it"
    (let ((stp-indices
  	 (loop for node in element-nodes when
  	      (string-equal "indices" (stp:local-name node))
  	    collecting node)))
      (mapcar #'node->index stp-indices)))
  
  (defun stp-obj->indices (stp-obj)
    (node-indices-list (list-element-nodes stp-obj)))
  ;;;/INDICES
  
  
  (defun list-from-string (string)
  