anchor.diff:  ;;; emphasize here is, do not use it in a function definition. It works in
   ;;; macro for constructing a code.
   
  -(keybind ^c raw screen ((focus up)) ())
  -(keybind ^p window-select window-select
  +(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 j window-select window-select
  +  (keybind nil j window-select window-select
              ((:lisp x) (focus up) (split (:lisp y)))
              ()))
   
  
positive.code:                 "")
                "%:[raw]%?" *hardstatus-string*))
  
  (defmacro keybind-common (key start dst (&rest commands) &optional message)
    " message : any form that is evaluated into a string.
                A string literal is welcome, of course.
    "
    `(keybind ,key ,start ,dst
              ,commands
              (,(cond ((null message)
                       `(hardstatus string
                                    (:lisp (sstringarg (default-message
                                                        ',dst
                                                        ,(com-stringify-form (car commands)))))))
                      ((zerop (length message)) ())
                      (t `(hardstatus string (:lisp (sstringarg ,message))))))))
  
  (keybind-common j snormal snormal ((focus down)))
  (keybind-common k screen raw ((focus up)) "focus up")
  (keybind-common v screen raw ((split -v) (focus right) (other) (focus left)) "vertical split")
  (keybind-common v snormal snormal ((split -v) (focus right) (other) (focus left)))
  (keybind-common s snormal snormal ((split) (focus right) (other) (focus left)))
  ; a form generates the message
  (keybind-common l snormal snormal ((focus right)) (coerce (coerce "focus right" 'list) 'string))
  (keybind-common l snormal snormal ((focus right)) "")
  (keybind-common ^z raw screen ())
  
  (defun normalize-cmd-format (cmd)
    (cond ((null cmd) '())
  
negative.code:           (mapcar (lambda (key-com-msg)
                      (destructuring-bind (key cmd &optional msg)
                        key-com-msg
                        `(keybind-common ,strm ,key ,start ,dst
                                         ,(normalize-cmd-format cmd)
                                         ,msg)))
                    key-command-msg-lst)))
      `(progn
         ,@forms)))
  