anchor.diff:  
   (defmethod configure-port :around ((s <serial-posix>))
     (unless (get-fd s) (error 'serial-error :text "Port has to be open!"))
  -  (call-next-method))
  +  (call-next-method s))
   
   (defun get-exported-symbol (symbol &optional (package :cl-user))
     (multiple-value-bind (s e)
         (find-symbol symbol package)
       (when (and s (eql e :EXTERNAL)) s)))
   
  -(defmethod configure-port ((s <serial-posix>))
  +#+xxx(defmethod configure-port ((s <serial-posix>))
     (let ((termios (unistd:tcgetattr (get-fd s)))
   	(vtime (and (inter-char-timeout s) (floor (* 10 (inter-char-timeout s))))))
       (macrolet ((set-flag (flag &key (on ()) (off ()))
  
positive.code: 	     (ospeed ispeed))
  	(unless ispeed (set-custom-baud-rate (baudrate s))))
        
        (unistd:tcsetattr (fd s) unistd:TCSANOW termios)))
  	
        
  	
  	  
  
  	      
  	  
  	  ;; setup baud-rate
      
    
  	 
  
negative.code: 		:off (unistd:INLCR unistd:IGNCR unistd:ICRNL unistd:IGNBRK))
        (when (get-exported-symbol "PARMRK" :unistd)
  	(set-flag (unistd:iflag termios)
  		  :off (unistd:PARMRK)))))
  
        (when (get-exported-symbol "IUCLC" :unistd)
  	(set-flag (termios-iflag termios)
  