Чтение из файлов устройств

Question

Существует ли конкретный подход к чтению файлов устройств в CL? Я стараюсь следующий код в SBCL, но он не появляется на работе:

(defparameter modem #p"/dev/ttyUSB2") 
(defun read-modem() 
    (with-open-file (fd modem :direction :io :if-exists :append) 
      (loop while (peek-char nil fd) do 
      (format t "~A" (read-line fd)) 
      (finish-output fd)))) 

Я знаю, что есть выход, потому что cat /dev/ttyUSB2 показывает его.

Answer 1

Думаю, вам нужно прочитать их как из двоичных файлов. Например, вот что я прочитал от /dev/urandom:

> (with-open-file (fd "/dev/urandom" :direction :io :if-exists :append 
         :element-type 'unsigned-byte) 
    (read-byte fd)) 
161 

Answer 2

Я думаю, ваша проблема с буферизацией. Я не думаю, что вы можете отключить его в CL open, поэтому я боюсь, что вам нужно будет использовать sb-unix:unix-open и sb-unix:unix-read.