RosettaCodeData/Task/Singly-linked-list-Traversal/Common-Lisp/singly-linked-list-traversal-5.lisp

(loop for ref = list then (rest ref)
      until (null ref)
      do (print (first ref)))
	`(loop for ref = list then (rest ref)`
	`until (null ref)`
	`do (print (first ref)))`