On 3/18/2013 3:34 PM, Edwin Woollett wrote: <snip> :lisp (defun ff (x) (if (float-inf-p x) 'inf x)) :lisp (mapcar #'ff (list 100.0 (exp 1000.0) 45)) returns the list (100.0 INF 45) if that is what you want.