[cl-opengl-devel] Bug in MAKE-NULL-GL-ARRAY

[Mason Smith]

The current make-null-gl-array fails to run as currently defined. When
called with (gl:make-null-gl-array :unsigned-short), SBCL gives the
following error:

0 fell through CTYPECASE expression.
Wanted one of (SYMBOL FUNCTION).
   [Condition of type SB-KERNEL:CASE-FAILURE]

The problem seems simply to be that the arguments when calling
MAKE-GL-ARRAY-FROM-POINTER are reversed.

Specifically, instead of

(make-gl-array-from-pointer (null-pointer) 0 type)

the body of MAKE-NULL-GL-ARRAY should be

(make-gl-array-from-pointer (null-pointer) type 0)


Mason
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cl-opengl-devel/attachments/20110216/4e9a2e15/attachment.html>