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

Modified Files: cgi.lisp ChangeLog Log Message: (debug): Changed format string to ~S so objects will be printed more accuratley

Date: Tue Oct 14 18:47:30 2003 Author: aventimiglia

Index: clhp/cgi.lisp diff -u clhp/cgi.lisp:1.7 clhp/cgi.lisp:1.8 --- clhp/cgi.lisp:1.7 Wed Oct 8 11:43:33 2003 +++ clhp/cgi.lisp Tue Oct 14 18:47:30 2003 @@ -1,4 +1,4 @@ -#+cmu (ext:file-comment "$Id: cgi.lisp,v 1.7 2003/10/08 15:43:33 aventimiglia Exp $") +#+cmu (ext:file-comment "$Id: cgi.lisp,v 1.8 2003/10/14 22:47:30 aventimiglia Exp $") ;; ;; CLHP the Common Lisp Hypertext Preprocessor ;; (C) 2003 Anthony J Ventimiglia @@ -33,7 +33,7 @@

(defmacro debug (expression) "Print out EXPRESSION and the result of (EVAL EXPRESSION)" - `(format t "(CGI:DEBUG: ~a --> ~a)~%" ,expression (eval ,expression))) + `(format t "(CGI:DEBUG: ~s --> ~s)~%" ,expression (eval ,expression)))

(defmacro explode-string (string) "Converts a string to a list of chars, this is an aux function used

Index: clhp/ChangeLog diff -u clhp/ChangeLog:1.10 clhp/ChangeLog:1.11 --- clhp/ChangeLog:1.10 Wed Oct 8 11:43:33 2003 +++ clhp/ChangeLog Tue Oct 14 18:47:30 2003 @@ -1,3 +1,8 @@ +2003-10-14 ant@afghan.dogpound + + * cgi.lisp (debug): Changed format string to ~S so objects will be + printed more accuratley + 2003-10-08 ant@afghan.dogpound

* cgi.lisp, clhp.lisp (cond-bind): Addedd COND-BIND, basically @@ -62,4 +67,4 @@ used to create tables from (CONS . TYPE) a-lists. Also added some comments.

-$Id: ChangeLog,v 1.10 2003/10/08 15:43:33 aventimiglia Exp $ \ No newline at end of file +$Id: ChangeLog,v 1.11 2003/10/14 22:47:30 aventimiglia Exp $ \ No newline at end of file