在宏定义中使用读取器宏字符

为了使访问COM对象中的属性看起来更像s-表达式,我为LispWorks的COM包编写了以下代码作为精简包装器的一部分:

;;; Create dispatch function for '#<' and '#>'.
(eval-when (:load-toplevel :compile-toplevel :execute)
  (defun com-dispatch-function (invoke-function)
    (lambda (stream sub-char infix)
      (declare (ignore sub-char infix))
      (destructuring-bind (thing object &rest args)
          (read stream)
        `(,invoke-function ,object (symbol-name ',thing) ,@args)))))


;;; COM 'get property' read macro.
(set-dispatch-macro-character
 #\# #\<
 (com-dispatch-function 'com::invoke-dispatch-get-property))

所以现在,而不是

(invoke-dispatch-get-property object "Property" argument)

我会写字

#<(property object argument)

然而,当我尝试在宏定义中使用这种语法时,如下所示:

(defmacro something ((object) &body body)
  (let ((excel (gensym)))
    `(cclet* ((,excel #<(application ,object)))
      ,@))) 

编译器会抱怨在后引号外使用逗号。

我想错误的原因是阅读器宏函数应该以某种方式与反引号语法相配合,但我不知道如何做到这一点。有什么建议吗?

谢谢