anchor.diff:     Reset all except cread and clocal, set 115200-8n1 mode:
      (stty fd 'really-raw '(parity nil) 'b115200)
     "
  +  #|(with-foreign-object (ptr 'termios)
  +    (%tcgetattr fd ptr)
  +    (dolist (option options)
  +      (if (consp option)
  +          (set-termios-option ptr (car option) (cdr option))
  +          (set-termios-option ptr option)))
  +    (%tcsetattr fd tcsanow ptr))|#
     (labels ((process-option (option termios)
   	     (cond 
   	       ((member option *baud-rates*)
  
positive.code:     "Termios control character constants for termios cc field")
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    (defparameter *termios-options* (make-hash-table :test #'eql)
      "Hash table of all valid termios options.")
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    (defmacro define-termios-option (option filed)
      "Fill `*termios-options*' hash-table with valid termios optins values."
      `(when (boundp ,option)
         (setf (gethash ,option *termios-options*)
               (cons (symbol-value ,option) ',filed))))
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ;; Filling *termios-options*
  
    (mapcar #'(lambda (x) (define-termios-option x iflag)) *iflags*)
    (mapcar #'(lambda (x) (define-termios-option x oflag)) *oflags*)
    (mapcar #'(lambda (x) (define-termios-option x lflag)) *lflags*)
  
negative.code:    Set   icanon flag: (set-termios-option term 'icanon t)
     Set vtime value to 0: (set-termios-option 'vtime 0)
    "
    (let ((flag-value (gethash flag-or-control-character *termios-options*)))
      (cond
        ;; on of the {c,l,i,o}flag fields options:
        ((member (cdr flag-value) '(iflag oflag cflag lflag) :test #'eql)
         (setf (foreign-slot-value termios 'termios (cdr flag-value))
               ;; value specified => set (logior), reset over otherwise
               (funcall (if value #'logior #'logandc2)
                        (foreign-slot-value termios 'termios (cdr flag-value))
                        (car flag-value))))
        ;; control characters
        ((eql (cdr flag-value) 'control-chars)
         (setf (mem-aref (foreign-slot-pointer termios
                                               'termios
                                               'control-chars)
                         'cc
                         (car flag-value)) ;constant name is offset
               value))
        ;; baud-rates
        ((eql (cdr flag-value) 'baud-rates)
         (%cfsetispeed termios (car flag-value))
         (%cfsetospeed termios (car flag-value)))
        (t (error "Unknown termios option ~a" flag-or-control-character)))
      termios))
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (defun make-raw-termios (termios)
    "Same effect as cfmakeraw()"
  