[clhp-cvs] CVS update: clhp/cgi.lisp clhp/ChangeLog

[Anthony Ventimiglia]

Update of /project/clhp/cvsroot/clhp
In directory common-lisp.net:/tmp/cvs-serv5152

Modified Files:
	cgi.lisp ChangeLog 
Log Message:
(*QUERY-VARS*): Fixed so test is #'equal, which will
work properly with strings

Date: Tue Oct 21 12:57:27 2003
Author: aventimiglia

Index: clhp/cgi.lisp
diff -u clhp/cgi.lisp:1.13 clhp/cgi.lisp:1.14
--- clhp/cgi.lisp:1.13	Tue Oct 21 00:16:58 2003
+++ clhp/cgi.lisp	Tue Oct 21 12:57:27 2003
@@ -1,4 +1,4 @@
-#+cmu (ext:file-comment "$Id: cgi.lisp,v 1.13 2003/10/21 04:16:58 aventimiglia Exp $")
+#+cmu (ext:file-comment "$Id: cgi.lisp,v 1.14 2003/10/21 16:57:27 aventimiglia Exp $")
 ;;
 ;; CLHP the Common Lisp Hypertext Preprocessor
 ;; (C) 2003 Anthony J Ventimiglia
@@ -38,7 +38,7 @@
   "This is a hash-table variables passed by the thw key is a keyword
 and all values are stored as strings.")
 
-(defvar *query-vars* (make-hash-table)
+(defvar *query-vars* (make-hash-table :test 'equal)
   "A hash-table of all variables passed through a GET or POST method, the
 key is a string, and all values are stored in string form.")
 


Index: clhp/ChangeLog
diff -u clhp/ChangeLog:1.18 clhp/ChangeLog:1.19
--- clhp/ChangeLog:1.18	Tue Oct 21 00:16:58 2003
+++ clhp/ChangeLog	Tue Oct 21 12:57:27 2003
@@ -1,5 +1,8 @@
 2003-10-21    <ant at afghan.dogpound>
 
+	* cgi.lisp (*QUERY-VARS*): Fixed so test is #'equal, which will
+	work properly with strings
+
 	* examples/index.clhp (PRINT-HASH-TO-TABLE): Modified to work with
 	new hash-tables
 
@@ -118,4 +121,4 @@
 	used to create tables from (CONS . TYPE) a-lists. Also added some
 	comments.
 
-$Id: ChangeLog,v 1.18 2003/10/21 04:16:58 aventimiglia Exp $
\ No newline at end of file
+$Id: ChangeLog,v 1.19 2003/10/21 16:57:27 aventimiglia Exp $
\ No newline at end of file