[Openmcl-devel] make-keyword

[Taoufik Dachraoui]

Hi

I am trying to define the following macro (that defines macros)

(defmacro defviewclass (sym)
   (let ((kwd (make-keyword sym)))
     `(defmacro ,sym (attrs &rest body)
        (let ((a `(, at attrs)))
	 (if (null a)
	     (setf a '(:class ,kwd))
	     (setf (getattr :class a) ,kwd))
	 `(m1 ,a , at body)))))

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

Taoufik