anchor.diff:         ,@children
          *parent*)))
   
  -			
  +
  
positive.code: (defmethod m* ((this node) (that node) &optional (in-place t))
    "Inherited function for setting changed?"
    (if in-place
      (setf (transform this) (sb-cga:matrix* (transform that) (transform this)))
      (sb-cga:matrix* (transform that) (transform this))))
  
  (defmethod transpose ((this node) &optional (in-place t))
    "Inherited function for setting changed?"
    (if in-place
        (setf (transform this) (sb-cga:transpose-matrix (transform this)))
        (sb-cga:transpose-matrix (transform this))))
        
  
  (defmethod invert ((this node) &optional (in-place t))
    "Inherited function for setting changed?"
    (if in-place
        (setf (transform this) (sb-cga:inverse-matrix (transform this)))
        (sb-cga:inverse-matrix (transform this))))
        
  
  (defmethod scale ((this node) x y z &optional (in-place t))
    "Inherited function for setting changed?"
    (if in-place
      (setf (transform this)
  	  (sb-cga:matrix*
  	   (sb-cga:scale* (float x)
  			  (float y)
  			  (float z))
  	   (transform this)))
      (sb-cga:matrix* (sb-cga:scale* (float x)
  				   (float y)
  				   (float z))
  		    (transform this))))
  
  (defmethod translate ((this node) x y z &optional (in-place t))
    "Inherited function for setting changed?"
  
negative.code:     :initarg  :transform)
     (current-transform
      :accessor current-transform
      :initform nil)
     (enabled
      :accessor enabled
      :initform t
      :initarg :enabled))
    (:documentation "A node class for creating hierarchies of objects. It caches calculations for speed. Not enough in itself, and not required."))
  
  (defmethod initialize-instance :after ((this node) &key parent)
    )
  