Skip to content
Browse files

2001-10-19 Jon Howard <jhoward@cobweb>

  • Loading branch information...
1 parent c1b9e69 commit 749038e1c01243ba4101d13435c69eedb3d44b34 jhoward committed Oct 19, 2001
Showing with 2 additions and 4 deletions.
  1. +0 −2 ChangeLog
  2. +2 −2 publish.cl
View
2 ChangeLog
@@ -1,8 +1,6 @@
2001-10-19 Jon Howard <jhoward@cobweb>
* log.cl: non-access messages logged to error log stream.
- * publish.cl: changed standard-locator (locator-exact) to assoc on
- uri-host rather than request-vhost of req's.
2001-10-18 Jon Howard <jhoward@cobweb>
View
4 publish.cl
@@ -23,7 +23,7 @@
;; Suite 330, Boston, MA 02111-1307 USA
;;
;;
-;; $Id: publish.cl,v 1.58.2.1 2001/10/19 16:40:27 jhoward Exp $
+;; $Id: publish.cl,v 1.58.2.2 2001/10/19 17:10:59 jhoward Exp $
;; Description:
;; publishing urls
@@ -823,7 +823,7 @@
(locator-info locator))))
#+ignore(format t "~S ; Ents: ~S~%" (uri-host (request-uri req)) ents)
(cdr
- (or (assoc (uri-host (request-uri req)) ents :test #'equal)
+ (or (assoc (request-vhost req) ents :test #'equal)
(assoc :wild ents :test #'eq)))))
(defmethod standard-locator ((req http-request)

0 comments on commit 749038e

Please sign in to comment.
Something went wrong with that request. Please try again.