pcase with progn

[Heime]

Does pcase require progn for multiple commands?

(defun pola-symbol-name (sbl &optional sel)
  "Get the string representation of symbol SBL.  If it is
already a string, return it unchanged."

  (cond
    ((symbolp sbl) (symbol-name sbl))
    ((stringp sbl) sbl)
    (t (pcase sel
         ('nil (error "SBL must be a symbol or a string: %s" sbl))
         ('nil-output nil)
         ('default "unknown")
         ('warn (progn
                  (message "SBL not symbol nor string: %s" sbl)
                  nil))
         ('pass sbl)
         (_ (error "SEL Invalid: %s" sel))))))



Sent with Proton Mail secure email.