anchor.diff:    (setf (slot-value this 'r-matrix) nil)
     (setf (slot-value this 's-matrix) nil)
     (setf (slot-value this 's-matrix) nil)
  -  (setf (slot-value this 'transform) nil))
  +  (setf (slot-value this 'transform) nil)
  +  this)
   
   (defmethod reset-translation ((this node))
     (setf (slot-value this 't-matrix) nil
  -	(translation this) v0))
  +	(translation this) v0)
  +  this)
   
   (defmethod reset-rotation ((this node))
     (setf (slot-value this 'r-matrix) nil
  -	(rotation this) (q:identity)))
  +	(rotation this) (q:identity))
  +  this)
   
   (defmethod reset-scaling ((this node))
     (setf (slot-value this 's-matrix) nil
  -	(scaling this) vi))
  +	(scaling this) vi)
  +  this)
   
   
   (defmethod print-object ((this node) s)
  
positive.code: 	   (,v (v! ,x ,y, z)))
         (if ,in-place
  	   (setf (translation ,tthis) ,v)
  	   (translate ,tthis ,v)))))
  
  (defmethod scale ((this node) size &key (modify t))
    "Scales a node. Takes a vector3."
  
negative.code: 	   (,v (v! ,x ,y, z)))
         (if ,in-place
  	   (setf (scaling ,tthis) ,v)
  	   (scale ,tthis ,v))
         ,tthis)))
  
  
  (defmethod n* ((this node) (that node) &key new-node)
  