anchor.diff:            (mapcar (lambda (key-com-msg)
                       (destructuring-bind (key cmd &optional msg)
                         key-com-msg
  -                      `(format ,strm "~a~%"
  -                               (keybind-common ,key ,start ,dst
  -                                               ,(normalize-cmd-format cmd)
  -                                               ,msg))))
  +                      `(keybind-common ,strm ,key ,start ,dst
  +                                       ,(normalize-cmd-format cmd)
  +                                       ,msg)))
                     key-command-msg-lst)))
       `(progn
          ,@forms)))
  
positive.code: (comseq-construct-form '(:lisp (list "split -v" (concat-str "fo" "cus" " right"
                                                              (spacing-join " other" "focus" "left")))))
  
  (defmacro keybind (key start goal (&rest prior-coms) (&rest post-coms))
    `(keybind-desc ,(quote-if-symbol key)
                   ,(quote-if-symbol start)
                   ,(quote-if-symbol goal)
                   ,(comseq-construct-form prior-coms)
                   ,(comseq-construct-form post-coms)))
  
  ;;; COMSEQ-CONSTRUCT-FORM, COM-STRINGIFY-FORM and COMITEM-STRINGIFY-FORM return
  ;;; a form that returns one string if evaluated. A function that returns a form
  
negative.code: ;;; emphasize here is, do not use it in a function definition. It works in
  ;;; macro for constructing a code.
  
  (keybind t ^c raw screen ((focus up)) ())
  (keybind t ^p window-select window-select
           ((prev))
           ((echo (sstringarg "[window-select] (prev)"))))
  
  (let ((x "focus down")
        (y "-v"))
    (keybind nil j window-select window-select
             ((:lisp x) (focus up) (split (:lisp y)))
             ()))
  
  