Fixes of format typos in server code

"Chun Tian (binghe)" <[email protected]> Sun, 10 Jan 2010 13:42:35 +0800

Newsgroups	gmane.lisp.cl-http
Message-ID	<[email protected]>

Hi, Rainer

Attached patch file fixes three format-related typos in CL-HTTP's server code, without them the correspond function will throw conditions when running through them. Please verify my patch.

Regards,

Chun Tian (binghe)

_______________________________________________
WWW-CL mailing list
[email protected]
https://lists.csail.mit.edu/mailman/listinfo/www-cl

format-fixes.diff (application/octet-stream, 1.9 KB)

diff -rN -u old-cl-http-70-217-s378/server/log.lisp new-cl-http-70-217-s378-1/server/log.lisp
--- old-cl-http-70-217-s378/server/log.lisp	2010-01-10 13:37:49.000000000 +0800
+++ new-cl-http-70-217-s378-1/server/log.lisp	2010-01-10 13:37:50.000000000 +0800
@@ -322,7 +322,7 @@
 		      (log (allocate-log :name name :port port :class class :local-host (or host (local-host)))))
 		 (when port (add-access-log log port))
 		 (values log t)))
-	     (:error (error "Unknown HTTP server access log, ~A~:[~;*, for port ~D~]." name port)))))
+	     (:error (error "Unknown HTTP server access log, ~A~@[, for port ~D~]." name port)))))
     (declare (dynamic-extent #'equal-log-p))
     (etypecase name
       (string
diff -rN -u old-cl-http-70-217-s378/server/utils.lisp new-cl-http-70-217-s378-1/server/utils.lisp
--- old-cl-http-70-217-s378/server/utils.lisp	2010-01-10 13:37:48.000000000 +0800
+++ new-cl-http-70-217-s378-1/server/utils.lisp	2010-01-10 13:37:50.000000000 +0800
@@ -3835,7 +3835,7 @@
   "Writes an ISO 8601 time on STREAM.
 When STREAM is NIL, it return it as a string."
   (declare (fixnum hour minutes time-zone))
-  (format stream "~4D-~2,'0D-~2,'0DT~2,'0D:~2,'0D~:[~;~:*:~2,'0D~]~:[~C~2,'0D~;Z~]"
+  (format stream "T~2,'0D:~2,'0D~:[~;~:*:~2,'0D~]~:[~C~2,'0D~;Z~]"
 	  hour minutes seconds (zerop time-zone) (if (plusp time-zone) #\+ #\-) (abs time-zone)))
 
 (define write-iso-datime (universal-time &optional stream (time-zone (time-zone)))
@@ -3847,7 +3847,7 @@
 	     (ignore day-of-the-week))
     (let ((offset (if daylight-savings-p (1- timezone) timezone)))
       (declare (fixnum offset))
-      (format stream "~2,'0D:~2,'0D~:[~;~:*:~2,'0D~]~:[~C~2,'0D~;Z~]"
+      (format stream "~4D-~2,'0D-~2,'0DT~2,'0D:~2,'0D~:[~;~:*:~2,'0D~]~:[~C~2,'0D~;Z~]"
 	      year month day hours minutes seconds (zerop offset) (if (plusp offset) #\+ #\-) (abs offset)))))
 
 (define decode-interval (seconds)

smime.p7s (application/pkcs7-signature, 2.5 KB) - not displayed