r10789: Automated commit for Debian build of clsql upstream-version-3.3.1
authorKevin M. Rosenberg <kevin@rosenberg.net>
Tue, 25 Oct 2005 16:16:43 +0000 (16:16 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Tue, 25 Oct 2005 16:16:43 +0000 (16:16 +0000)
ChangeLog
debian/changelog
sql/time.lisp

index e95d31a..1092414 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+25 Oct 2005  Kevin Rosenberg <kevin@rosenberg.net>
+       * Version 3.3.1
+       * sql/time.lisp: Commit patch from Alan Shields to
+       display escape string on wall-time display only when *print-escape*
+       is true.
+       
 11 Oct 2005  Kevin Rosenberg <kevin@rosenberg.net>
        * sql/metaclasses.lisp: Commit patch from Will to
        properly set db-reader slot in effective-slot-definition
index 6fc0f03..1e2b768 100644 (file)
@@ -1,3 +1,9 @@
+cl-sql (3.3.1-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Tue, 25 Oct 2005 10:16:34 -0600
+
 cl-sql (3.3.0-1) unstable; urgency=low
 
   * New upstream
index 0f8d5e2..95a7a68 100644 (file)
@@ -67,7 +67,9 @@
 
 (defun %print-wall-time (time stream depth)
   (declare (ignore depth))
-  (format stream "#<WALL-TIME: ~a>" (format-time nil time)))
+  (if *print-escape*
+      (format stream "#<WALL-TIME: ~a>" (format-time nil time))
+      (format-time stream time :format :pretty)))
 
 (defstruct (duration (:constructor %make-duration)
                      (:print-function %print-duration))
 
 (defun %print-duration (duration stream depth)
   (declare (ignore depth))
-  (format stream "#<DURATION: ~a>"
-          (format-duration nil duration :precision :second)))
+  (if *print-escape*
+      (format stream "#<DURATION: ~a>"
+             (format-duration nil duration :precision :second))
+      (format-duration stream duration :precision :second)))
 
 (defstruct (date (:constructor %make-date)
                 (:print-function %print-date))
@@ -90,7 +94,9 @@
 
 (defun %print-date (date stream depth)
   (declare (ignore depth))
-  (format stream "#<DATE: ~a>" (format-date nil date)))
+  (if *print-escape*
+      (format stream "#<DATE: ~a>" (format-date nil date))
+      (format-date stream date :format :pretty)))
 
 );eval-when