anchor.diff:    ()
     (: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))
  -
  +@export
   (defun make-serial-posix (&optional port 
   			  &key (baudrate 9600)
   			  (bytesize 8)
  
positive.code: 	     (ospeed ispeed))
  	(unless ispeed (set-custom-baud-rate (baudrate s))))
        
        (posix:tcsetattr (fd s) posix:TCSANOW termios)))
  	
        
  	
  
negative.code: 		 :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"))
  