From a468c674afb2d027362761d1b318de117eafb4d3 Mon Sep 17 00:00:00 2001 From: Bill Robinson Date: Mon, 20 Jun 2011 21:47:11 +0100 Subject: [PATCH] Error string can be translated into a string ok. --- lib/glu.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.11.4.GIT