CLCS

Examples of for-as-across subclause

 (loop for char across (the simple-string (find-message channel))
       do (write-char char stream))