如何解决LIBRARY包中ENCODE-JSON-TO-STRING符号阴影导入问题？

问题原因 #

你用fmakunbound仅清除了LIBRARY:ENCODE-JSON-TO-STRING的函数定义，但符号本身仍存在于LIBRARY包中。Common Lisp的包系统检测到同名符号冲突时，依然会抛出遮蔽错误。

彻底清除符号的步骤 #

1. 定位并移除包内符号
   先确认符号在LIBRARY包中的状态，再用unintern彻底移除该符号：

   ;; 查找符号，返回符号本身及它在包中的状态（:internal/:external等）
   (find-symbol "ENCODE-JSON-TO-STRING" "LIBRARY")
   ;; 直接移除符号（示例中符号为LIBRARY::ENCODE-JSON-TO-STRING）
   (unintern 'LIBRARY::ENCODE-JSON-TO-STRING :LIBRARY)
   

   更通用的写法（自动处理符号存在的情况）：

   (multiple-value-bind (sym status)
       (find-symbol "ENCODE-JSON-TO-STRING" "LIBRARY")
     (when sym
       (unintern sym "LIBRARY")))
   

2. 导入cl-json的同名函数
   符号移除后，即可安全导入cl-json的目标函数：

   (import 'JSON:ENCODE-JSON-TO-STRING :LIBRARY)
   

   也可以在包定义阶段直接指定导入：

   (defpackage :LIBRARY
     (:use :cl)
     (:import-from :JSON :ENCODE-JSON-TO-STRING))
   

注意事项 #

• 若ENCODE-JSON-TO-STRING曾是LIBRARY包的外部符号（通过:export暴露过），移除前需确认没有其他代码依赖该外部符号，否则会引发引用错误。
• 建议先在REPL中测试符号状态和移除效果，再应用到正式代码中。

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