Fix ctype-to-gltype

This commit is contained in:
Renaud Casenave-Péré 2015-08-27 18:38:48 +02:00
parent de99347555
commit 54c1efc5b1

View file

@ -34,7 +34,7 @@
(:float 4)))
(defun ctype-to-gltype (ctype)
(ecase ctype
(case ctype
(:unsigned-char :unsigned-byte)
(t ctype)))