Hunchentoot Common Lisp
Пример на Common Lisp для Hunchentoot, который отвечает на запросы к /pixel.gif пустым GIF, декодированным один раз при запуске.
Hunchentoot Common Lisp
(ql:quickload '(:hunchentoot :cl-base64))
(defparameter *gif*
(cl-base64:base64-string-to-usb8-array "R0lGODlhAQABAIAAAP///wAAACH5BAEAAAAALAAAAAABAAEAAAICRAEAOw=="))
(hunchentoot:define-easy-handler (pixel :uri "/pixel.gif") ()
(setf (hunchentoot:content-type*) "image/gif"
(hunchentoot:header-out :cache-control) "no-store")
*gif*)
(hunchentoot:start (make-instance 'hunchentoot:easy-acceptor :port 8080))
Мы запустили этот пример и сравнили байты, которые он вернул.
Проверка
curl -sI http://localhost:8080/pixel.gif