The following lisp code now compiles to glsl as shown below:

(vdefstruct vert-type
	 (pos :vec3)
	 (color :vec4))

(defshader :!test! :vertex :330
	   ((inbound vert-type) :transform (:mat4))
	 (out done (* transform (vec4 (vert-type-pos inbound) 1.0)))
	 (setf (vert-type-color inbound) (vec4 1 2 3 4)))

         -------------------Becomes-------------------

#version 330

struct VERT-TYPE {
    VEC3 POS;
    VEC4 COLOR;
};

in VERT-TYPE INBOUND;

uniform MAT4 TRANSFORM;

out VEC4 DONE;
VOID MAIN() {
    DONE = (TRANSFORM * VEC4(INBOUND.POS, 1.0));
    INBOUND.COLOR = VEC4(1, 2, 3, 4);
}

There are issues, case sensitivity being a large one and another
being the fact that the code is hideous... but the project is
coming along.