;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: July 2003
;;;;
-;;;; $Id: uri.lisp,v 1.9 2003/08/10 07:38:37 kevin Exp $
+;;;; $Id: uri.lisp,v 1.10 2003/08/10 17:56:44 kevin Exp $
;;;;
;;;; This file and Wol are Copyright (c) 2003 by Kevin M. Rosenberg
;;;; *************************************************************************
(when page
(setf (request-page req) (base-page-name page ent)))
(when plists
- (setf (request-plist req) (car plists))
- (setf (request-next-plists req) (cdr plists))
+ (setf (request-url-plist req) (car plists))
+ (setf (request-url-next-plists req) (cdr plists))
(when (null page)
- (awhen (getf (request-plist req) :page)
+ (awhen (getf (request-url-plist req) :page)
(setf (request-page req) it))))
(setf (request-uri-query req) query))))