Function: DELAY-P
Source
(defun delay-p (x) (and (consp x) (or (eq (delay-value x) +unforced+) (null (delay-function x)))))
Source Context