Function Duration-P

Part of:

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