Function: FORCE

Documentation

forecs a delay-object to be executed

Source

(defun force (x)
  "forecs a delay-object to be executed"
  (if (not (delay-p x))
      x
      (progn
	(when (delay-function x)
	  (setf (delay-value x)
		(funcall (delay-function x)))
	  (setf (delay-function x) nil))
	(delay-value x))))