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

[Anthony Ventimiglia]

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 at afghan.dogpound>
+
+	* cgi.lisp (debug): Changed format string to ~S so objects will be
+	printed more accuratley
+
 2003-10-08    <ant at 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