# Pastebin dJqkWcr1
;;; Case 1 - conforming - but complicated assignment to foo seems clunky
(let ((value (loop named froboz
                   for foo = (let ((footemp <something>))
                               (unless footemp (return-from froboz nil))
                               footemp)
                   for bar = <something-using-foo>
                   for baz = <something-using-bar>
                   collect (something-using foo bar baz))))
  ...)

;;; Case 2 - conforming but push/nreverse - bleh
(let ((value (let (result)
               (loop named froboz
                     for foo = <something>
                     while foo
                     do (let ((bar <something-using-foo>)
                              (baz <something-using-baz>))
                          (push (something-using foo bar baz) result)))
               (nreverse result))))
  ...)


;;; Case 3  - pretty - but NOT conforming LOOP syntax
(let ((value (loop named froboz
                   for foo = <something>
                   while foo
                   for bar = <something-using-foo>
                   for baz = <something-using-bar>
                   collect (something-using foo bar baz))))
  ...)