Revision: 4437 Author: hans URL: http://bknr.net/trac/changeset/4437 More Hunchentoot 1.0 (?) fixes. U trunk/bknr/web/src/web/handlers.lisp Modified: trunk/bknr/web/src/web/handlers.lisp =================================================================== --- trunk/bknr/web/src/web/handlers.lisp 2009-07-11 22:06:37 UTC (rev 4436) +++ trunk/bknr/web/src/web/handlers.lisp 2009-07-11 22:16:55 UTC (rev 4437) @@ -484,7 +484,7 @@ (when (or (search ".." pathnames-argument) (eql #\/ (aref pathnames-argument 0))) (error 'invalid-pathname-syntax :pathnames-argument pathnames-argument)) - (let* ((*default-pathname-defaults* (page-handler-destination handler)) + (let* ((*default-pathname-defaults* (pathname (page-handler-destination handler))) (filenames (if (directory-handler-filename-separator handler) (mapcar #'pathname (split (directory-handler-filename-separator handler) pathnames-argument)) @@ -500,11 +500,11 @@ (defmethod handler-matches-p ((handler directory-handler)) (and (call-next-method) - (let ((*default-pathname-defaults* (page-handler-destination handler))) + (let ((*default-pathname-defaults* (pathname (page-handler-destination handler)))) (some #'probe-file (request-relative-pathnames handler))))) (defmethod handle ((handler directory-handler)) - (let* ((*default-pathname-defaults* (page-handler-destination handler)) + (let* ((*default-pathname-defaults* (pathname (page-handler-destination handler))) (last-modified (reduce #'max (mapcar #'file-write-date (request-relative-pathnames handler))))) (handle-if-modified-since last-modified) (let (open-files)