NEXT> (macroexpand-1 '(defhydra (kbd "s")                                                          
                       ("p" switch-buffer-previous)                                                
                       ("n" switch-buffer-next)))
(DEFINE-KEY *GLOBAL-MAP* (KBD "s")                                                                 
            (LAMBDA ()                                                                             
              (WITH-RESULT (SUFFIX (READ-FROM-MINIBUFFER (MODE *MINIBUFFER*)))                     
                (COND ((EQUAL SUFFIX "p") (SWITCH-BUFFER-PREVIOUS))                                
                      ((EQUAL SUFFIX "n") (SWITCH-BUFFER-NEXT))))))                                
T                                                                                                  
NEXT>