anchor.diff:  		 :dsrdtr dsrdtr
   		 :inter-char-timeout inter-char-timeout))
   
  +(defmethod device ((s <serial-posix>) port)
  +  (declare (ignore s))
  +  (format nil "/dev/ttyS~A" port))
  +
   (defmethod open-serial :around ((s <serial-posix>))
     (unless (port s) (error 'serial-error :text "Port must be configured before it can be used."))
     (when (get-fd s) (error 'serial-error :text "Port is already open"))
  
positive.code:   ()
    (:documentation "Serial port class POSIX implementation. Serial port configuration is done with termios and fcntl. Runs on Linux and many other Un*x like systems."))
  
  (defmethod device ((s <serial-posix>) port)
    (declare (ignore s))
    (format nil "/dev/ttyS~A" port))
  
  (defun make-serial-posix (&optional port 
  			  &key (baudrate 9600)
  			  (bytesize 8)
  
negative.code: 	     (ospeed ispeed))
  	(unless ispeed (set-custom-baud-rate (baudrate s))))
        
        (unistd:tcsetattr (fd s) unistd:TCSANOW termios)))
  	
        
  	
  