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:<div><br></div><div><div>0 fell through CTYPECASE expression.</div>

<div>Wanted one of (SYMBOL FUNCTION).</div><div>   [Condition of type SB-KERNEL:CASE-FAILURE]</div></div><div><br></div><div>The problem seems simply to be that the arguments when calling MAKE-GL-ARRAY-FROM-POINTER are reversed.<div>

<div><br></div><div>Specifically, instead of </div><div><br></div><div>(make-gl-array-from-pointer (null-pointer) 0 type)</div><div><br></div><div>the body of MAKE-NULL-GL-ARRAY should be</div><div><br></div><div>(make-gl-array-from-pointer (null-pointer) type 0)</div>

<div><br></div><div><br></div><div>Mason<br><div><br></div></div></div></div>