common-lisp - 有没有办法让 hunchentoot :*dispatch-table* update automatically on function redefinition?

Question

我已经按照以下方式设置了调度表:

(setq hunchentoot:*dispatch-table*
        (mapcar #'(lambda (regex-and-handler)
                    (hunchentoot:create-regex-dispatcher (first regex-and-handler)
                                                         (second regex-and-handler)))
                (list (list "^/one$" #'page-one)
                      (list "^/two$" #'page-two))))

现在，如果我重新定义函数page-one，*dispatch-table*仍然使用旧定义，只有当 >(setq ...) 表单被重新计算。有没有办法让它获取新的函数定义？

Answer 1

在评估列表时，使用函数的名称作为符号，而不是使用 function(读者语法 #')将符号解析为函数对象。换句话说:

....
(list (list "^/one$" 'page-one)
      (list "^/two$" 'page-two))))