Function: KEYWORD->SYMBOL

Source

(defun keyword->symbol (k)
  (symb (symbol-name k)))