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:                 "")
                "%:[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: (comseq-construct-form '(:lisp (list "split -v" (concat-str "fo" "cus" " right"
                                                              (spacing-join " other" "focus" "left")))))
  
  (defmacro keybind (strm key start goal (&rest prior-coms) (&rest post-coms))
    `(format ,strm "~a~%"
             (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
  