anchor.diff:  		      unistd:ONONBLOCK))))
       (setf (slot-value s 'fd) fd)))
   
  +@export
   (defmethod close-serial ((s <serial-posix>))
     (let ((fd (get-fd s)))
       (when fd
  
positive.code:   (call-next-method)
    (configure-port s))
  
  (defmethod open-serial ((s <serial-posix>))
    (let* ((fd (unistd:open
  	      (port s)
  
negative.code: @export
  (defmethod read-serial-byte-seq ((s <serial-posix>) count)
    (unistd:read (get-fd s) count))
  
  ;; TODO: Blocking versions using select
  