.section "Time reference and printing functions"

The optional argument, 2stream*, in the following functions defaults to
the value of 2standard-output*. A 2stream* argument of (false)
means to return a string, the convention from the 3format* function.
Year arguments less than one hundred are assumed to be offset from 
1900. Day of week arguments to the dateprinting functions may be either
strings or fixnums with 0 representing Monday.

.defun time:get-time
Returns an object that encapsulates the present time state information.
.end_defun

.defun time:print-current-time &optional (stream standard-output)
Calls 3time:print-time* using the current time.
.end_defun

.defun time:print-time sec min hrs date month year &optional (stream standard-output)
Displays the given time in format yr/mo/dy hr:min:sec.
.end_defun

.defun time:print-current-date &optional (stream standard-output)
Calls 3time:print-date* using the current date.
.end_defun

.defun time:print-date sec min hrs date month year dayofweek &optional (stream standard-output)
Displays the given time in full English format. For example:
"Sunday the twenty-fourth of May; 3:02:17 pm"
.end_defun


.defun time:month-string n &optional ignored
Returns the name of the nth month (1=January).
Mode is not supported but is provided for calling compatibility
with the LispMachine.
.end_defun

.defun time:day-of-the-week-string n &optional ignore
Returns the name of the nth day of the week (0=Monday).
Mode is not supported but is provided for calling compatibility
with the LispMachine.
.end_defun

.defun time:verify-date date month year dayofweek
Returns (false) if day,month,year fell on dayofweek. Else returns a string
containing a suitable error message.
.end_defun


.defun time:on-what-day-of-the-week? day month year
Returns the day of the week that a given day fell on.


