Function: param

Source

(defun param (key)
  ;; this is awful... 
  (cdr (assoc (^string key) *parameters*
	      :test #'equal)))