common lisp的宏的工作模式

(defmacro our-expander (name) ‘(get ,name ’expander))
(defmacro our-defmacro (name parms &body body)
　　(let ((g (gensym)))
　　　　‘(progn
　　　　　　(setf (our-expander ’,name)
　　　　　　　　#’(lambda (,g)
　　　　　　　　　　(block ,name
　　　　　　　　　　　　(destructuring-bind ,parms (cdr ,g)
　　　　　　　　　　　　　　,@body))))
　　　　’,name)))
(defun our-macroexpand-1 (expr)
　　(if (and (consp expr) (our-expander (car expr)))
　　　　(funcall (our-expander (car expr)) expr)
　　　　expr))