[bknr-cvs] edi changed trunk/thirdparty/hunchentoot/

[BKNR Commits]

Revision: 4467
Author: edi
URL: http://bknr.net/trac/changeset/4467

Treat :UNSPECIFIC like NIL

U   trunk/thirdparty/hunchentoot/CHANGELOG
U   trunk/thirdparty/hunchentoot/misc.lisp

Modified: trunk/thirdparty/hunchentoot/CHANGELOG
===================================================================
--- trunk/thirdparty/hunchentoot/CHANGELOG	2009-11-10 09:08:55 UTC (rev 4466)
+++ trunk/thirdparty/hunchentoot/CHANGELOG	2009-11-10 12:19:13 UTC (rev 4467)
@@ -1,3 +1,4 @@
+Treat :UNSPECIFIC like NIL in pathname components (reported by Frode Fjeld)
 Prepare for LispWorks 6 (Nico de Jager)
 Fix reading of post parameters (Peter Seibel)
 Fix STOP by supplying the :READY-ONLY keyword to USOCKET:WAIT-FOR-INPUT

Modified: trunk/thirdparty/hunchentoot/misc.lisp
===================================================================
--- trunk/thirdparty/hunchentoot/misc.lisp	2009-11-10 09:08:55 UTC (rev 4466)
+++ trunk/thirdparty/hunchentoot/misc.lisp	2009-11-10 12:19:13 UTC (rev 4467)
@@ -194,9 +194,11 @@
                (plusp (length uri-prefix))
                (char= (char uri-prefix (1- (length uri-prefix))) #\/))
     (parameter-error "~S must be string ending with a slash." uri-prefix))
-  (when (or (pathname-name base-path)
-            (pathname-type base-path))
-    (parameter-error "~S is supposed to denote a directory." base-path))
+  (let ((name (pathname-name base-path))
+        (type (pathname-type base-path)))
+    (when (or (and name (not (eq name :unspecific)))
+              (and type (not (eq type :unspecific))))
+      (parameter-error "~S is supposed to denote a directory." base-path)))
   (flet ((handler ()
            (let* ((script-name (url-decode (script-name*)))
                   (script-path (enough-url (regex-replace-all "\\\\" script-name "/")