Function: DELAY-P

Source

(defun delay-p (x)
  (and (consp x)
       (or (eq (delay-value x) +unforced+)
	   (null (delay-function x)))))