gistfile1.lisp

;; This works
(defun read-until (character stream)
  "Read the stream until it matches the character. all the characters
  read."
  (coerce (loop
             for char = (read-char stream)
             until (char= char character)
             until (char= char #\>)
             collect char)
          'string))


;; But I want read until I reach One of N characters. Lets say > and
;; space, the loop becomes
(loop
   for char = (read-char stream)
   until (char= char #\Space)
   until (char= char #\>) 
   collect char)