[bknr-cvs] hans changed trunk/bknr/web/src/web/handlers.lisp

[BKNR Commits]

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)