6.1.7.2 Examples of NAMED clause

     ;; Just name and return.
      (loop named max
            for i from 1 to 10
            do (print i)
            do (return-from max 'done))
      |>  1
     =>  DONE