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.
		 ))))