Help for this page

Select Code to Download


  1. or download this
    (flet ((next-string (make-string-enumerator <num>)))
  (loop for str = (next-string) 
        until (null str)
        do <body>))
  2. or download this
    (dostrings (str <num>)
  <body>)
  3. or download this
    (let ((next-string (make-string-enumerator <num>)))
  (labels ((looper (body enumerator)))
...
      (when str
        (funcall body str)
        (looper body enumerator)))))