(defmethod publish-directory ((backend httpd-backend)
directory-pathname url-base)
(push (list (lambda (request-url)
(map-query-path-to-file request-url url-base directory-pathname))
(lambda (request response)
(serve-file (map-query-path-to-file (query-path request)
url-base
directory-pathname)
request response))
url-base)
(handlers backend)))Source Context