r5485: *** empty log message ***

[wol.git] / project.lisp

diff --git a/project.lisp b/project.lisp
index 119c929e00b93096c9462e584bc9c841b29dee7f..d8a4d27d4fcbdc5105d7e6b5106c754972083d06 100644 (file)
--- a/project.lisp
+++ b/project.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  July 2003
 ;;;;
-;;;; $Id: project.lisp,v 1.11 2003/08/10 05:16:52 kevin Exp $
+;;;; $Id: project.lisp,v 1.12 2003/08/10 07:38:37 kevin Exp $
 ;;;;
 ;;;; This file and Wol are Copyright (c) 2001-2003 by Kevin M. Rosenberg
 ;;;; *************************************************************************
@@ -190,6 +190,8 @@
        (redirect-to-location url)))))
 
 (defun dispatch-request (req ent)
+  (setq *req* req)
+  (setq *ent* ent)
   (let ((proj (entity-project ent)))
     (if (is-index-request req ent)
        (redirect-entity (project-index proj) req ent)
@@ -207,8 +209,6 @@
 (defun find-project-for-request (req)
   (maphash (lambda (name project)
             (declare (ignore name))
-            (setq cl-user::p project)
-            (setq cl-user::r req)
             (when (and (eq (project-server project)
                            (or (request-aserve-server req)
                                (request-ml-server req)))