anchor.diff:         (v! x y 1 2))
        (v! 0 0 0 0))))
   
  -(5am:test build-4
  +(5am:def-test build-4 (:suite test-all)
     (finishes-p
      (compile-vert () :450
        (labels ((test () 1))
          (test))
        (v! 0 0 0 0))))
   
  -(5am:test build-5
  +(5am:def-test build-5 (:suite test-all)
     (signals varjo-conditions:could-not-find-function
       (compile-vert () :450
         (labels ((test () 1))
           (test))
         (v! 0 (test) 0 0))))
   
  -(5am:test build-6
  +(5am:def-test build-6 (:suite test-all)
     (signals varjo-conditions:symbol-unidentified
       (compile-vert () :450
         (let ((x 1)
  
positive.code:       (test-ext2 10s0)
        (v! 0 0 0 0))))
  
  (5am:test build-36
    (glsl-contains-n-p 1
        "vec4 TEST_EXT3.*\\(float HAM.*\\);"
      (compile-vert () :450
  
negative.code:               (setq x z))
           (v! x 2 3 4))))))
  
  (5am:def-test build-18 (:suite test-all)
    (finishes-p
     (compile-vert () :450
       (let ((x 0)
  