(defn get-shader-info
  (pre: (< 0 shader))
  no-inline:
  ?string
  [(shader : fixnum)]
  (let ([len (get-shader-iv shader gw:+info-log-length+)])
    (if (< 0 len)
        (let ([ret (make-string len #\a)])
          ((foreign-lambda* void ((int shader)
                                  (int len)
                                  ((scheme-pointer c-string) str))
                            "glGetShaderInfoLog (shader,len,0,str);")
           shader len ret)
          ;; (gw:get-shader-info-log shader len #f ret)
          ret)
        #f)))