anchor.diff:  
   (defmethod open-serial ((s <serial-posix>))
     (print (port s))
  -  (let* ((fd (termios:open
  +  (let* ((fd (unistd:open
   	      (port s)
  -	      (logior termios:ORDWR 
  -		      termios:ONOCTTY
  -		      termios:ONONBLOCK))))
  +	      (logior unistd:ORDWR 
  +		      unistd:ONOCTTY
  +		      unistd:ONONBLOCK))))
       (setf (slot-value s 'fd) fd)))
   
   (defmethod close-serial ((s <serial-posix>))
     (let ((fd (get-fd s)))
       (when fd
  -      (fcntl fd termios:FSETFL 0)
  -      (termios:close fd)
  +      (unistd:fcntl fd unistd:FSETFL)
  +      (unistd:close fd)
         (setf (slot-value s 'fd) nil))))
   
   (defmethod configure-port :around ((s <serial-posix>))
  
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:     (when (and s (eql e :EXTERNAL)) s)))
  
  (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 ()))
  		 `(setf ,flag (logior ,@on (logand ,flag (lognot (logior ,@off)))))))
        ;; setup raw mode/ no echo/ binary
        (set-flag (unistd:cflag termios)
  		:on (unistd:CLOCAL unistd:CREAD))
        (set-flag (unistd:lflag termios)
  		:off (unistd:ICANON unistd:ECHO unistd:ECHOE unistd:ECHOK unistd:ECHONL unistd:ISIG unistd:IEXTEN))
        
        (set-flag (unistd:oflag termios)
  		:off (unistd:OPOST))
        (set-flag (unistd:iflag termios)
  		: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)
  		  :off (unistd:IUCLC)))
        
        ;; setup char length
        (let ((char-length (or (get-exported-symbol (format nil "CS~A" (bytesize s)))
  			     (error 'value-error :text (format nil "Invalid char len: ~A" (bytesize s))))))
  	(set-flat (termios-cflag termios)
  		  :on (char-length)
  		  :off (unistd:CSIZE)))
        ;; setup stopbits
        
        (case (stopbits s)
  	(1 (set-flag (termios clfag)
  		     :off (unistd:CSTOPB)))
  	((or 2 1.5) (set-flag (termios clfag)
  			      :on (unistd:CSTOPB)))
  	(t (error 'value-error :text (format nil "Invalid stop bit spec: ~A" (stopbits s)))))
  
        ;; setup parity
     
        (set-flag (termios iflag)
  		:off (unistd:INPCK unistd:ISTRIP))
        (case (parity s)
  	(:PARITY-NONE (set-flag (termios cflag) :off (unistd:PARENB unistd:PARODD)))
  	(:PARITY-EVEN (set-flag (termios cflag) :off (unistd:PARODD) :on (unistd:PARENB)))
  	(:PARITY-ODD (set-flag (termios cflag) :on (unistd:PARENB unistd:PARODD)))
  	(t (error 'value-error :text (format nil "Invalid parity: ~A" (parity s)))))
  
        (if (get-exported-symbol "IXANY" :unistd)
  	  (if (xonxoff s)
  	      (set-flag (termios iflag)
  			:on (unistd:IXON unistd:IXOFF))
  	      (set-flag (termios iflag)
  			:off (unistd:IXON unistd:IXOFF unistd:IXANY)))
  	  (if (xonxoff s)
  	      (set-flag (termios iflag)
  			:on (unistd:IXON unistd:IXOFF))
  	      (set-flag (termios iflag)
  			:off (unistd:IXON unistd:IXOFF))))
        
        (if (get-exported-symbol "CRTSCTS" :unistd)
  	  (if (rtscts s)
  	      (set-flag (termios iflag)
  			:on (unistd:CRTSCTS))
  	      (set-flag (termios iflag)
  			:off (unistd:CRTSCTS)))
  	  (when (get-exported-symbol "CNEW-RTSCTS" :unistd)
  	    (if (rtscts s)
  		(set-flag (termios iflag)
  			  :on (unistd:CNEW_RTSCTS))
  		(set-flag (termios iflag)
  			  :off (unistd:CNEW_RTSCTS)))))
  
        (if (or (<= vtime 255) (>= vtime 0))
  	  (setf 
  