(dolist (distance distances)
(multiple-value-bind (near far dof mag blur) (dof focal-length f-stop distance coc
:units units)
(dolist (distance distances)
(multiple-value-bind (near far dof mag blur) (dof focal-length f-stop distance coc
:units units)