如何编写类似with-slots的Common Lisp with-methods宏？

经典宏实现 #

你想要的with-methods宏可以通过编译期生成局部函数的方式实现，完全避免运行时性能开销。核心思路是用flet定义包装函数，自动把实例作为第一个参数传入方法调用：

(defmacro with-methods (methods instance &body body)
  (let ((inst-sym (gensym "INSTANCE-"))) ; 生成唯一符号防止变量捕获
    `(let ((,inst-sym ,instance))
       (flet ,(loop for spec in methods
                    collect (destructuring-bind (alias-or-name &optional (method-name alias-or-name))
                                (if (listp spec) spec (list spec))
                              `(,alias-or-name (&rest args)
                                 (apply #',method-name ,inst-sym args))))
         ,@body))))

使用示例 #

对应你提供的场景，调用方式如下：

(defun read-plist (plist)
  (let ((plist-reader (make-instance 'plist-reader)))
    (with-methods (read-indicator (rv read-value)) plist-reader
      (loop for (indicator value) in plist
            do (read-indicator indicator)
            do (rv value)))
    plist-reader))

性能问题说明 #

不用担心遍历代码的性能影响：这个宏是编译期展开的，最终生成的代码和你手动写(read-indicator plist-reader indicator)完全等价。Common Lisp编译器会自动优化apply调用（如果参数数量固定，会直接展开为普通方法调用），运行时没有额外开销。

替代实践 #

如果场景不需要通用宏，还有几种更直接的方式：

• 手动定义局部函数：简单场景下直接用flet包装，无需宏：

  (flet ((read-indicator (x) (read-indicator plist-reader x))
         (rv (x) (read-value plist-reader x)))
    (loop for (indicator value) in plist
          do (read-indicator indicator)
          do (rv value)))
  

• 使用柯里化工具：借助alexandria:curry预先绑定实例（需依赖Alexandria库）：

  (let ((read-indicator (alexandria:curry #'read-indicator plist-reader))
        (rv (alexandria:curry #'read-value plist-reader)))
    ...)
  

• 包级包装函数：如果某类方法频繁使用，可在专门包中定义全局包装函数，但灵活性不如局部绑定。

注意事项 #

• 如果方法是通用函数（generic function），该宏完全兼容，会正确调度到对应实例的方法。
• 避免符号冲突：如果代码中已有同名局部函数/变量，建议使用别名（如示例中的rv）代替直接复用方法名。

内容的提问来源于stack exchange，提问作者Alteration Dream