Function: (SETF DELAY-FUNCTION)

Source

(defun (setf delay-function) (val delay)
  (setf (cdr delay) val))