如何在CommonLisp编译函数中实现运行时动态符号查找？

完全可行，Common Lisp原生提供了反射式的符号查找与调用能力，不需要依赖eval或宏，也不用强制整个调用链在运行时求值。核心是利用ANSI CL标准中的find-package、find-symbol、funcall和symbol-value这些函数，实现运行时对其他包中符号的动态访问。

结合你在sb-aclrepl中实现Slynk/Swank启停的场景，具体实现如下：

基础思路 #

1. 基于app-server中存储的服务名称，动态查找对应的包（比如"Slynk"对应:slynk包，"Swank"对应:swank包）。
2. 在目标包中查找所需的函数（如启动/停止服务的函数）或变量（如连接列表）。
3. 用funcall调用动态找到的函数，用symbol-value访问变量，全程无需编译时绑定目标包的符号。

具体代码实现 #

(in-package :sb-aclrepl)

;; 修正struct构造函数：defstruct生成的是make-<struct-name>，不是make-instance
(defstruct app-server
  (name "SLYNK" :type string)
  (port 4004 :type integer))

(defvar *server* (make-app-server))

(defun get-server-package (server)
  "根据服务名称查找对应的包，找不到则报错"
  (let ((package-name (string-upcase (app-server-name server))))
    (or (find-package package-name)
        (error "Package ~a not loaded. Please load Slynk/Swank first." package-name))))

(defun start-server (server)
  "启动指定的Slynk/Swank服务"
  (let ((target-pkg (get-server-package server))
        (target-port (app-server-port server)))
    ;; 查找启动函数：Slynk和Swank的启动函数都是CREATE-SERVER（外部符号）
    (let ((create-fn (find-symbol "CREATE-SERVER" target-pkg)))
      (unless create-fn
        (error "Function CREATE-SERVER not found in package ~a" target-pkg))
      ;; 调用启动函数，传递端口参数
      (funcall create-fn :port target-port :dont-close t)
      (format t "~a server started on port ~d~%" 
              (string-capitalize (app-server-name server)) target-port))))

(defun stop-server (server)
  "停止指定的Slynk/Swank服务"
  (let ((target-pkg (get-server-package server))
        (target-port (app-server-port server)))
    ;; 优先查找标准停止函数
    (let ((stop-fn (find-symbol "STOP-SERVER" target-pkg)))
      (if stop-fn
          (progn
            (funcall stop-fn target-port)
            (format t "~a server stopped on port ~d~%" 
                    (string-capitalize (app-server-name server)) target-port))
          ;;  fallback：针对没有STOP-SERVER的旧版本，关闭所有连接
          (let ((connections-var (find-symbol "*CONNECTIONS*" target-pkg))
                (close-conn-fn (find-symbol "CLOSE-CONNECTION" target-pkg)))
            (unless (and connections-var close-conn-fn)
              (error "Cannot stop ~a: no STOP-SERVER function or connection management symbols found"
                     (app-server-name server)))
            (dolist (conn (symbol-value connections-var))
              (funcall close-conn-fn conn))
            (format t "Closed all connections for ~a server~%" 
                    (string-capitalize (app-server-name server))))))))

方案优势 #

• 无eval/宏依赖：所有符号查找和调用都用CL标准原生函数实现，避免了eval的性能开销和代码可读性问题，也不需要宏来做编译时的符号绑定。
• 编译时优化：除了符号查找的部分，函数的其他逻辑（如参数处理、格式输出）都会被编译器正常优化，不会强制整个调用链运行时求值。
• 可移植性：用到的find-package、find-symbol、funcall、symbol-value都是ANSI CL标准，所有符合标准的Common Lisp实现（SBCL、CCL、CLISP等）都支持。
• 动态性：不需要编译时加载Slynk或Swank，只要运行时加载了对应的包，就能正常工作，符合你在不同机器切换工具的需求。

关于progv的补充 #

你提到想用progv替代eval，progv主要用于动态绑定变量（类似动态作用域的变量设置），在这个场景下不是必须的，但如果需要临时设置目标包中的动态变量（比如某些服务的配置参数），可以这样用：

;; 示例：动态设置目标包中的端口变量
(let ((port-var (find-symbol "*SERVER-PORT*" target-pkg)))
  (when port-var
    (progv (list port-var) (list target-port)
      ;; 在这个块内，port-var的值被临时设置为target-port
      (funcall create-fn :dont-close t))))

不过对于Slynk/Swank来说，启动函数本身已经支持:port参数，直接传参比动态绑定变量更直观。

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