anchor.diff:  			: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)
  
positive.code: 	(:PARITY-EVEN (set-flag (unistd:cflag termios) :off ("PARODD") :on ("PARENB")))
  	(:PARITY-ODD (set-flag (unistd:cflag termios) :on ("PARENB" "PARODD")))
  	(t (error 'value-error :text (format nil "Invalid parity: ~A" (parity s)))))
  
        (if (get-exported-symbol "IXANY" :unistd)
  	  (if (xonxoff s)
  	      (set-flag (unistd:iflag termios)
  
negative.code: 		   (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	
        (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"))
  