Aserve でURLリダイレクト
こちらのチュートリアルを参考
How to do redirects using AllegroServe
http://franz.com/support/tutorials/aserve-redirect-tutorial.htm
(publish :path "/new" :content-type "text/html" :function #'(lambda (req ent) (with-http-response (req ent :response *response-found*) (setf (reply-header-slot-value req :location) (format nil "http://www.yahoo.co.jp/")) (with-http-body (req ent) ;; empty body. must be called as this is what ;; actually pushes response out to client. ))))