common-lisp - Hunchentoot 重定向列表

Question

我网站的 URI 结构最近发生了巨大变化，我需要将所有旧页面重定向到它们对应的新页面。我有一个所有新旧 URI 对的虚线列表。目前我正在尝试为每个循环定义简单的处理程序:

(let ((redirects '(("/old/uri/example-1" . "/new/uri/example-1"))))
  (dolist (redirect redirects)
    (hunchentoot:define-easy-handler (???? :uri (first redirect)) ()
       (redirect (rest redirect)))
    ))

也许有更好的方法。假设 define-easy-handler 是正确的，它需要每个简单处理程序的函数符号。我尝试了以下无济于事:

1. 将 (gensym) 放在需要函数符号的地方
2. 使用列表而不是点分列表，并在需要符号的地方调用(第一次重定向)
3. 在整个事物周围放置一个准引号并在周围放置一个非引号(第一次重定向)

完成此任务的好方法是什么？

Answer 1

让我们猜测:DEFINE-EASY-HANDLER 是一个宏。

解决该问题的三种典型方法:

• 调用底层而不使用宏 - 如果底层对程序员可用

• 编写并使用宏

将 (defredirects (a . a1) (b . b1) (c . c1))) 扩展为

(progn
  (hunchentoot:define-easy-handler (f-a ... a) () (... a1))
  (hunchentoot:define-easy-handler (f-b ... b) () (... b1))
  (hunchentoot:define-easy-handler (f-c ... c) () (... c1)))

• 生成您要调用的表单，并在每个表单的循环中使用 eval(或 compile 和 funcall，如果可能的话)。