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@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