lib/glfw-types.lisp

   1
   2 (in-package #:glfw)
   3
   4 ;; copy the boolean from OpenGL
   5 (defctype boolean :uint8)
   6
   7 (defconstant +false+ #x0)
   8 (defconstant +true+ #x1)
   9
  10 (defmethod cffi:expand-to-foreign (value (type (eql 'boolean)))
  11   `(if ,value +true+ +false+))
  12
  13 (defmethod cffi:expand-from-foreign (value (type (eql 'boolean)))
  14   `(not (= ,value +false+)))
  15