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: 
  (5am:in-suite test-all)
  
  (5am:test build-0
    (finishes-p
     (compile-vert () :450
       (v! 0 0 0 0))))
  
  (5am:test build-1
    (finishes-p
     (compile-vert () :450
       (v! 0 0 0 0)
       (v! 0 0 0 0))))
  
  (5am:test build-2
    (finishes-p
     (compile-vert () :450
       (let ((x 1))
         (v! 0 x 1 2))
       (v! 0 0 0 0))))
  
  (5am:test build-3
    (finishes-p
     (compile-vert () :450
       (let ((x 1)
  
negative.code:       (test-ext3 10s0)
        (v! 0 0 0 0))))
  
  (5am:def-test build-37 (:suite test-all)
    (glsl-contains-n-p 1
        "float FOO\\(int X\\);"
      (varjo.tests::compile-vert () :450
        (labels ((foo ((x :int)) (float 10)))
          (v! 0 (foo 0) 0 0)))))
  
  (5am:def-test build-38 (:suite test-all)
    (finishes-p
     (compile-vert () :450
       (test-ext2 10s0)
       (multiple-value-bind (a b c) (test-ext2 10s0)
         (v! (s~ a :xy) b c)))))
  