Common Lisp package for GPIO control of Raspberry Pi

bcm2835.lisp

(defpackage :BCM2835 
	(:use :FFI)
	(:export :init
		:close
		:gpio-fsel
		:gpio-write
		:gpio-lev
		:gpio-set
		:gpio-clr
		:delay
		:delay-microseconds))

(in-package :BCM2835)

(ffi:open-foreign-library "libbcm2835.so")

(ffi:def-call-out init
	(:name "bcm2835_init")
	(:language :stdc)
	(:library "libbcm2835.so"))

(ffi:def-call-out close
	(:name "bcm2835_close")
	(:language :stdc)
	(:library "libbcm2835.so"))

(ffi:def-call-out gpio-fsel
	(:name "bcm2835_gpio_fsel")
	(:arguments (pin ffi:uint8) (mode ffi:uint8))
	(:language :stdc)
	(:library "libbcm2835.so"))

(ffi:def-call-out gpio-write
	(:name "bcm2835_gpio_write")
	(:arguments (pin ffi:uint8) (on ffi:uint8))
	(:language :stdc)
	(:library "libbcm2835.so"))

(ffi:def-call-out gpio-lev
	(:name "bcm2835_gpio_lev")
	(:return-type ffi:uint8)
	(:arguments (pin ffi:uint8))
	(:language :stdc)
	(:library "libbcm2835.so"))

(ffi:def-call-out gpio-set
	(:name "bcm2835_gpio_set")
	(:arguments (pin ffi:uint8))
	(:language :stdc)
	(:library "libbcm2835.so"))

(ffi:def-call-out gpio-clr
	(:name "bcm2835_gpio_clr")
	(:arguments (pin ffi:uint8))
	(:language :stdc)
	(:library "libbcm2835.so"))

(ffi:def-call-out delay
	(:name "bcm2835_delay")
	(:arguments (millis ffi:uint))
	(:language :stdc)
	(:library "libbcm2835.so"))


(ffi:def-call-out delay-microseconds
	(:name "bcm2835_delayMicroseconds")
	(:arguments (micros ffi:uint64))
	(:language :stdc)
	(:library "libbcm2835.so"))