anchor.diff:  		   (let ((on (reduce #'fn on :initial-value nil))
   			 (off (reduce #'fn off :initial-value nil)))
   		     `(setf ,flag (logior ,@on (logand ,flag (lognot (logior ,@off)))))))))
  -      ;; setup raw mode/ no echo/ binary
  +
  +      ;; setup raw mode/ no echo/ binary	
         (set-flag (unistd:cflag termios)
   		:on ("CLOCAL" "CREAD"))
         (set-flag (unistd:lflag termios)
   		:off ("ICANON" "ECHO" "ECHOE" "ECHOK" "ECHONL" "ISIG" "IEXTEN"))
  -      
         
         (set-flag (unistd:oflag termios)
   		:off ("OPOST"))
  
positive.code: 			:on ("IXON" "IXOFF"))
  	      (set-flag (unistd:iflag termios)
  			:off ("IXON" "IXOFF"))))
        
        (if (get-exported-symbol "CRTSCTS" :unistd)
  	  (if (rtscts s)
  	      (set-flag (unistd:iflag termios)
  
negative.code: 
  (defmethod configure-port ((s <serial-posix>))
    (let ((termios (unistd:tcgetattr (get-fd s)))
  	(vtime (or (and (inter-char-timeout s) (floor (* 10 (inter-char-timeout s)))) 0)))
      (macrolet ((set-flag (flag &key (on ()) (off ()))
  		 `(setf ,flag 
  			(logior ,@(mapcar (curry-right 'find-symbol :unistd) on) 
  