[Openmcl-devel] make-keyword

[Leslie P. Polzer]

Taoufik Dachraoui wrote:

> is there a function make-keyword that takes a symbol s as parameter and
> returns a keyword k such that (eq (symbol-name s) (symbol-name k)) is T

(defun make-keyword (sym)
  (intern (symbol-name sym) :keyword))

-- 
http://www.linkedin.com/in/polzer