Fixed, thanks.

Hans

On Tue, Jun 24, 2008 at 11:24 PM, Cyrus Harmon ch-tbnl@bobobeach.com wrote:

Well, it looks like Hans found the same problem I found with script-name, but, and this is a very minor stylistic point, since we already have the request here, why don't we just call (script-name request) instead of (script-name*)?

thanks,

Cyrus

Index: headers.lisp

--- headers.lisp (revision 3320) +++ headers.lisp (working copy) @@ -162,10 +162,10 @@ "The server could not verify that you are authorized to access the document requested. Either you supplied the wrong credentials (e.g., bad password), or your browser doesn't understand how to supply the credentials required.") ((#.+http-forbidden+) (format nil "You don't have permission to access ~A on this server."

•                               (script-name*)))
  

•                               (script-name request)))
                      ((#.+http-not-found+)
                       (format nil "The requested URL ~A was not found
  

on this server."

•                               (script-name*)))
  

•                               (script-name request)))
                      ((#.+http-bad-request+)
                       "Your browser sent a request that this server
  

could not understand.") (otherwise ""))

instead of_______________________________________________ tbnl-devel site list tbnl-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/tbnl-devel