有没有办法让hunchentoot:*dispatch-table*在函数重新定义时自动更新？

(defvar *dispatch-table* (make-hash-table :test 'equal))

(defun update-dispatch-table ()
  ;; 更新 *dispatch-table* 的逻辑
  (setf (gethash "/path" *dispatch-table*) 'new-handler))

(defun my-handler (request)
  ;; 处理请求的逻辑
  (format t "Handling request~%"))

(defun define-handler ()
  ;; 定义处理请求的函数
  (defun my-handler (request)
    ;; 新的处理请求的逻辑
    (format t "Handling request with updated logic~%")
    (update-dispatch-table)))

(defun start-server ()
  ;; 启动服务器
  (hunchentoot:start (make-instance 'hunchentoot:acceptor :port 8080))
  (update-dispatch-table))

(define-handler)
(start-server)

(defvar *dispatch-table* (make-hash-table :test 'equal))

(defmacro define-handler ()
  ;; 定义处理请求的函数
  `(defun my-handler (request)
     ;; 处理请求的逻辑
     (format t "Handling request~%")))

(defmacro update-dispatch-table ()
  ;; 更新 *dispatch-table* 的逻辑
  `(setf (gethash "/path" *dispatch-table*) 'new-handler))

(defun start-server ()
  ;; 启动服务器
  (hunchentoot:start (make-instance 'hunchentoot:acceptor :port 8080))
  (update-dispatch-table))

(define-handler)
(start-server)