X-Git-Url: http://git.kpe.io/?p=wol.git;a=blobdiff_plain;f=project.lisp;fp=project.lisp;h=d8a4d27d4fcbdc5105d7e6b5106c754972083d06;hp=119c929e00b93096c9462e584bc9c841b29dee7f;hb=fe6fd1cd39dd145adb1c479cab619a2ce6d1c3eb;hpb=c28c5678e980a71b9f3d23650b0323ccb75198c4

diff --git a/project.lisp b/project.lisp
index 119c929..d8a4d27 100644
--- 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)))