{"body":";;; Case 1 - conforming - but complicated assignment to foo seems clunky\n(let ((value (loop named froboz\n                   for foo = (let ((footemp <something>))\n                               (unless footemp (return-from froboz nil))\n                               footemp)\n                   for bar = <something-using-foo>\n                   for baz = <something-using-bar>\n                   collect (something-using foo bar baz))))\n  ...)\n\n;;; Case 2 - conforming but push/nreverse - bleh\n(let ((value (let (result)\n               (loop named froboz\n                     for foo = <something>\n                     while foo\n                     do (let ((bar <something-using-foo>)\n                              (baz <something-using-baz>))\n                          (push (something-using foo bar baz) result)))\n               (nreverse result))))\n  ...)\n\n\n;;; Case 3  - pretty - but NOT conforming LOOP syntax\n(let ((value (loop named froboz\n                   for foo = <something>\n                   while foo\n                   for bar = <something-using-foo>\n                   for baz = <something-using-bar>\n                   collect (something-using foo bar baz))))\n  ...)\n","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/dJqkWcr1","modified":1566863113,"id":"dJqkWcr1","size":1189,"lines":30,"own_paste":false,"theme":"","date":1566863113}