printvot

Purpose
Assist debugging involving Offset Universal Time values by printing forms and the results of evaluating them to *trace-output*. Any form producing a single-valued integer result is assumed to be an Offset Universal Time value and a convenient full-date-and-time format (including seconds) is printed as the result value.

Package   :gbbopen-tools

Module   :gbbopen-tools

Arguments and values

Returns
The values returned by evaluating the last form that is not the keyword symbol :hr

Description
The following is performed for each form in forms:

• if the form is the keyword symbol :hr, a dashed separator line printed to *trace-output*
• if the form is a string (before evaluation), it is treated as a label and printed to *trace-output* without enclosing double-quote characters
• if the form is a self-evaluating object, it is printed to *trace-output*
• otherwise, the form is printed to *trace-output*, then the form is evaluated and the result values are printed to *trace-output*. Unlike printv, a single-valued integer result is assumed to be an Offset Universal Time value and when that result is printed by printvot, it is first converted to Universal Time and then to full-date-and-time format (including seconds).

See also
    full-date-and-time
    printv

Examples

  > (printvot "PRINTVOV example" *ot-base* (ut2ot) :hr)
  ;; PRINTVOV example
  ;;   *ot-base* => "Oct 22 2117 04:40:32"
  ;;   (ut2ot) => "Jun  4 2008 13:51:08"
  ;; ------------------------------------------------------------
  -15071348
  >

printvot