X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Ftime.lisp;h=95a7a683de6d7caa9bb0a154493419ab8b64dcfd;hb=a44f642babd5d396cf938aedf8709ea0b6354d68;hp=0f8d5e235f0e75ad6fc4fd7787aacf8b721f35c9;hpb=fc58e4fb7d908985389c86adf57ddee6c1dde5d2;p=clsql.git diff --git a/sql/time.lisp b/sql/time.lisp index 0f8d5e2..95a7a68 100644 --- a/sql/time.lisp +++ b/sql/time.lisp @@ -67,7 +67,9 @@ (defun %print-wall-time (time stream depth) (declare (ignore depth)) - (format stream "#" (format-time nil time))) + (if *print-escape* + (format stream "#" (format-time nil time)) + (format-time stream time :format :pretty))) (defstruct (duration (:constructor %make-duration) (:print-function %print-duration)) @@ -81,8 +83,10 @@ (defun %print-duration (duration stream depth) (declare (ignore depth)) - (format stream "#" - (format-duration nil duration :precision :second))) + (if *print-escape* + (format stream "#" + (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 "#" (format-date nil date))) + (if *print-escape* + (format stream "#" (format-date nil date)) + (format-date stream date :format :pretty))) );eval-when