Function Date-P

Part of:

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