anchor.diff:  ; 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) '())
  
positive.code: (keybind ^c raw screen ((focus up)) ())
  (keybind ^p window-select window-select
           ((prev))
           ((echo (secho-arg "[window-select] (prev)"))))
  
  (let ((x "focus down")
        (y "-v"))
  
negative.code:   `(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")
  