(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: ~A~%"
                (gl:get-attrib-location shader-program "pos"))
        (format t "normal: ~A~%"
                (gl:get-attrib-location shader-program "normal"))
        (format t "tangent: ~A~%"
                (gl:get-attrib-location shader-program "tangent"))
        (format t "color: ~A~%"
                (gl:get-attrib-location shader-program "color"))
        (format t "uv1: ~A~%"
                (gl:get-attrib-location shader-program "uv1"))
        (format t "uv2: ~A~%"
                (gl:get-attrib-location shader-program "uv2"))
        (format t "joints: ~A~%"
                (gl:get-attrib-location shader-program "joints"))
        (format t "weights: ~A~%"
                (gl:get-attrib-location shader-program "weights")))