EISLにラズパイのWiringPIを組み込んでいます。
いくつか関数を追加しました。
まだ、途中ですが、Lチカが動作するようになりました。setupはroot権限がないとエラーになるので
sudo ./eisl
で起動します。
こんなコードになりました。
(defglobal pin 5)
(defglobal flag nil)
(defun test ()
(cond ((null flag) (wiringpi-setup-gpio)(setq flag t)))
(pin-mode pin 'output)
(for ((i 0 (+ i 1)))
((> i 100) t)
(digital-write pin 1)
(delay 1000)
(digital-write pin 0)
(delay 1000)))