macros - 加载 lisp 宏 : Error: Class named ENTITY not found. 时出错在进程 Listener(4) 中执行 : FIND-CLASS, 时

Question

我收到这个错误:

Error: Class named ENTITY not found. While executing: FIND-CLASS, in process Listener(4). Type cmd-/ to continue, cmd-. to abort, cmd-\ for a list of available restarts. If continued: Try finding the class again Type :? for other options.

当我加载/编译一个包含这个宏的文件时:

(defmacro def-post-entity (entity)
   (let* ((repository-var-name (cl-ddd::repository-var entity))
          (base-url (string-downcase (concatenate 'string "/api/" (string entity))))
          (progn-statement '(progn)))
     (loop 
       for slot in (ccl:class-slots (find-class entity)) 
       append `(setf (,(ccl:slot-definition-name slot) new-entity)  
               (cdr (assoc ,(string (ccl:slot-definition-name slot)) params :test #'string=)))
       into progn-statement)
      `(setf (ningle:route cl::*app* ,base-url :method :post)
             (lambda (params)
               (let ((new-entity (make-instance ,entity)))
                 (,progn-statement))))))

据我了解 lisp 宏(我是新手)，find-class 没有理由期望实体是类名，它是宏的参数。错误消息表明正在执行 find-class，但实际上没有。我只是通过 (ql:quickload "filename") 加载包含此宏的文件或直接编译它。

如果能帮助我了解正在发生的事情并进行修复，我们将不胜感激。

Answer 1

问题出在这个宏之后，我称之为 def-post-entity。它也是一个宏，我忘了那意味着 def-post-entity 也会在那里扩展。
Coredumps 评论帮助我弄明白了。