Function: ^html-string

Source

(defun ^html-string (thing)
  (etypecase thing
    (symbol (string-invert (symbol-name thing)))
    (string thing)))