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