anchor.diff:  (defun transform-model (mesh mat)
     "Update a model's vertexdata-* field to be the transformed version of its static vertex data, given the passed matrix."
     (declare (type mesh mesh)
  -	   (type tmat mat))
  +	   (type mat4x4 mat))
     (loop
        for vi of-type uint32 below (length (mesh-vertexdata mesh)) by 3
        ;; this loop probably conses like a donkey... TODO: optimize this later, AFTER it works
  
positive.code: 	     (tfz2 (aref tfp2 2))
  	     (tfx3 (aref tfp3 0))
  	     (tfy3 (aref tfp3 1))
  	     (tfz3 (aref tfp3 2))
  	     (squeeze -4.0)  #| smells kludgey |# ) 
  	(declare (type mat4x4 tmat)
  		 (type vec3 tcp tfp1 tfp2 tfp3)
  		 (type single-float tfx1 tfy1 tfz1 tfx2 tfy2 tfz2 tfx3 tfy3 tfz3 squeeze)
  		 (dynamic-extent tcp tfp1 tfp2 tfp3))
  	(dist-points-nosqrt (aref tcp 0)
  			    (aref tcp 1)
  			    (aref tcp 2)
  			    (/ (min tfx1 tfx2 tfx3) squeeze)
  			    (/ (min tfy1 tfy2 tfy3) squeeze)
  			    (/ (min tfz1 tfz2 tfz3) squeeze))))))
  
  (defun sort-mesh-face-draw-order (mesh tmat)
    "In-place sorts the FACE-DRAW-ORDER array of a given mesh object given a transformation matrix 'TMATRIX' and vector 'CAMERA-ORIGIN'"
  
negative.code:   (declare (type mesh mesh)
  	   (type uint32 face#)
  	   (type mat4x4 tmat)
  	   (optimize (speed 3) (safety 1)))
    (let ((cx (aref *camera-eye* 0))
  	(cy (aref *camera-eye* 1))
  	(cz (aref *camera-eye* 2)))
  