8 (:use cl iterate cffi sane-lowlevel trivial-gray-streams
)
15 :name
:vendor
:model
:device-type
:device-option
18 :get-name
:get-title
:get-description
:get-device
19 :get-capabilities
:get-constraint
21 :get-min
:get-step
:get-max
:get-list
22 ;; Main option functions
23 :option-value-readable-p
25 ;; And option debugging
28 :with-open-scanner-stream
:parameters
:device
))
32 (define-foreign-library libsane
33 (:unix
(:or
"libsane.so.1" "libsane.so"))
34 (t (:default
"libsane")))
35 (use-foreign-library libsane
)