From: Bill Robinson <airbaggins@gmail.com>
Date: Mon, 20 Jun 2011 20:47:11 +0000 (+0100)
Subject: Error string can be translated into a string ok.
X-Git-Url: https://repo.or.cz/w/cl-glfw.git/commitdiff_plain/a468c674afb2d027362761d1b318de117eafb4d3

Error string can be translated into a string ok.
---

diff --git a/lib/glu.lisp b/lib/glu.lisp
index 0d68e96..3bf69a4 100644
--- a/lib/glu.lisp
+++ b/lib/glu.lisp
@@ -212,7 +212,7 @@
 (defcfun ("gluEndCurve" end-curve) :void (nurb :pointer))
 (defcfun ("gluEndSurface" end-surface) :void (nurb :pointer))
 (defcfun ("gluEndTrim" end-trim) :void (nurb :pointer))
-(defcfun ("gluErrorString" error-string) :pointer (error enum))
+(defcfun ("gluErrorString" error-string) :string (error enum))
 (defcfun ("gluGetNurbsProperty" get-nurbs-property) :void (nurb :pointer) (property enum) (data :pointer))
 (defcfun ("gluLoadSamplingMatrices" load-sampling-matrices) :void (nurb :pointer) (model :pointer) (perspective :pointer) (view :pointer))
 (defcfun ("gluLookAt" look-at) :void (eyeX double) (eyeY double) (eyeZ double) (centerX double) (centerY double) (centerZ double) (upX double) (upY double) (upZ double))