如何封装Common Lisp泛型函数以禁止添加额外方法？

我有时会使用defmethod来强制函数的类型约束，因其语法简洁易用。以下是一个用于示例的简易plus函数：

(defgeneric plus (x y)
  :documentation "a terrible + function")

(defmethod plus ((x integer) (y integer))
  (+ x y))

请问是否有办法封装该泛型方法，以防止其他实现被添加？

Common Lisp标准本身没有提供原生的“锁定”泛型函数的机制，但有几种实用的方案可以实现类似效果：

1. 包级封装（最具移植性） #

将泛型函数定义在内部私有包中，只对外导出函数调用接口，不暴露泛型函数的名字。外部代码无法引用泛型函数的符号，自然无法添加新方法：

;; 定义内部私有包，仅导出plus函数
(defpackage :my-utils/internal
  (:use :cl)
  (:export #:plus))

(in-package :my-utils/internal)

(defgeneric plus (x y)
  :documentation "a terrible + function")

(defmethod plus ((x integer) (y integer))
  (+ x y))

;; 定义对外公开的包，导入内部包的plus
(defpackage :my-utils
  (:use :cl)
  (:import-from :my-utils/internal #:plus))

外部代码可以正常调用(my-utils:plus 1 2)，但尝试用defmethod扩展my-utils:plus会报错——因为my-utils:plus只是导入的符号，并非泛型函数的实际定义所在。

2. 利用元对象协议（MOP）自定义锁定逻辑 #

通过自定义泛型函数类，拦截add-method操作，在锁定状态下拒绝添加新方法：

;; 定义带锁定状态的泛型函数类
(defclass locked-generic-function (standard-generic-function)
  ((locked-p :initform t :accessor locked-p)))

;; 拦截方法添加操作
(defmethod add-method :before ((gf locked-generic-function) method)
  (when (locked-p gf)
    (error "无法为锁定的泛型函数 ~S 添加新方法" gf)))

;; 定义泛型时指定使用自定义类
(defgeneric plus (x y)
  :documentation "a terrible + function"
  :generic-function-class 'locked-generic-function)

(defmethod plus ((x integer) (y integer))
  (+ x y))

如果需要临时解锁添加方法，可以修改状态：

(setf (locked-p #'plus) nil)
;; 添加方法后再锁定
(setf (locked-p #'plus) t)

3. 实现特定的锁定函数（移植性差） #

部分Common Lisp实现提供了专用的锁定函数，比如SBCL的sb-mop:lock-generic-function：

(sb-mop:lock-generic-function #'plus)

调用后，该泛型函数将无法再添加任何新方法，但这种方案只能在特定实现中使用，不具备跨平台性。

内容的提问来源于stack exchange，提问作者Greg Nisbet