Memoize

Common_Lisp_loop_for_x_in_list_do

 
* (loop for i in '(1 2 3) do (princ i))
123
NIL
 
* (loop for i in '(1 2 3) do (print i))
 
1 
2 
3 
NIL