anchor.diff:  
   ;;----------------------------------------------------------------
   
  -(defun translation (vec3-a)
  +(defn translation ((vec3-a vec3)) mat4
     "Takes a vector3 and returns a matrix4 which will translate
      by the specified amount"
  +  (declare (optimize (speed 3) (safety 1) (debug 1)))
     (make
      1f0  0f0  0f0  (x vec3-a)
      0f0  1f0  0f0  (y vec3-a)
  
positive.code: 
  ;;----------------------------------------------------------------
  
  (defun scale (scale-vec3)
    "Returns a matrix which will scale by the amounts specified"
    (make
     (x scale-vec3)  0f0               0f0               0f0
     0f0               (y scale-vec3)  0f0               0f0
  
negative.code: 
  ;;----------------------------------------------------------------
  
  (defn = ((mat-a mat4) (mat-b mat4)) boolean
    "Returns t if all elements of both matrices provided are
     equal"
    (declare (optimize (speed 3) (safety 1) (debug 1)))
    (loop :for i :below 16 :always (cl:= (aref mat-a i) (aref mat-b i))))
  
  ;;----------------------------------------------------------------
  
  