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 "/")