Implicit Uniform Capture

gistfile1.lisp

(defparameter *loop* 0.0)

(defun-g frag ()
  (let ((loop *loop*))
    (v! (cos loop) (sin loop) 0.4 1.0)))


;; Becomes


#version 330

layout(location = 0) out vec4 OUTPUT_COLOR_30V;

uniform float _42LOOP42;

void main() {
    float LOOP_29V = _42LOOP42;
    OUTPUT_COLOR_30V = vec4(cos(LOOP_29V),sin(LOOP_29V),0.4f,1.0f);
}