(let ((shader-program (slot-value
                             (slot-value
                              (fl.core::compiled-shaders
                               (shaders (core-state context)))
                              'kit.gl.shader::active-program)
                             'kit.gl.shader::id)))
        (format t "shader program: ~A~%" shader-program)

        (format t "pos location: ~A enabled: ~A~%"
                (gl:get-attrib-location shader-program "pos")
                (gl::get-vertex-attrib-integer 0 :vertex-attrib-array-enabled))
        (format t "normal location: ~A enabled: ~A~%"
                (gl:get-attrib-location shader-program "normal")
                (gl::get-vertex-attrib-integer 1 :vertex-attrib-array-enabled))
        (format t "tangent location: ~A enabled: ~A~%"
                (gl:get-attrib-location shader-program "tangent")
                (gl::get-vertex-attrib-integer 2 :vertex-attrib-array-enabled))
        (format t "color location: ~A enabled: ~A~%"
                (gl:get-attrib-location shader-program "color")
                (gl::get-vertex-attrib-integer 3 :vertex-attrib-array-enabled))
        (format t "uv1 location: ~A enabled: ~A~%"
                (gl:get-attrib-location shader-program "uv1")
                (gl::get-vertex-attrib-integer 4 :vertex-attrib-array-enabled))
        (format t "uv2 location: ~A enabled: ~A~%"
                (gl:get-attrib-location shader-program "uv2")
                (gl::get-vertex-attrib-integer 5 :vertex-attrib-array-enabled))
        (format t "joints location: ~A enabled: ~A~%"
                (gl:get-attrib-location shader-program "joints")
                (gl::get-vertex-attrib-integer 6 :vertex-attrib-array-enabled))
        (format t "weights location: ~A enabled: ~A~%"
                (gl:get-attrib-location shader-program "weights")
                (gl::get-vertex-attrib-integer 7 :vertex-attrib-array-enabled)))