Function Time-P

Part of:

package cl-perec
( time-p < time > )