enum issue

enum.lisp

(defun blerp ()
  (declare (optimize (speed 3) (safety 3) (debug 1)))
  (%gl:depth-func :gequal))

; file: /private/var/tmp/slimeUxycfQ
; in: DEFUN BLERP
;     (CL-OPENGL-BINDINGS:DEPTH-FUNC :GEQUAL)
; --> BLOCK MULTIPLE-VALUE-PROG1 CFFI:FOREIGN-FUNCALL LET LET IF 
; ==>
;   #:VALUE2
; 
; caught STYLE-WARNING:
;   This is not a (UNSIGNED-BYTE 32):
;    :GEQUAL
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition