Function: (SETF DELAY-VALUE)

Source

(defun (setf delay-value) (val delay)
  (setf (car delay) val))