(define joystick-max-axes (foreign-value "_AL_MAX_JOYSTICK_AXES" integer))
(define joystick-max-sticks (foreign-value "_AL_MAX_JOYSTICK_STICKS" integer))
(define joystick-max-buttons (foreign-value "_AL_MAX_JOYSTICK_BUTTONS" integer))

(define default-display-adapter (foreign-value "ALLEGRO_DEFAULT_DISPLAY_ADAPTER" integer))

(define eof (foreign-value "EOF" integer))

(define mouse-max-extra-axis (foreign-value ALLEGRO_MOUSE_MAX_EXTRA_AXES integer))

(define vertex-cache-size (foreign-value ALLEGRO_VERTEX_CACHE_SIZE integer))
(define primitive-quality (foreign-value ALLEGRO_PRIM_QUALITY integer))
(define audio-pan-none (foreign-value ALLEGRO_AUDIO_PAN_NONE integer))

;; (define native-path-separator (foreign-value "ALLEGRO_NATIVE_PATH_SEP" c-string))
;; (define native-drive-separator (foreign-value "ALLEGRO_NATIVE_DRIVE_SEP" c-string))