anchor.diff:      ,@body ))
   ||#
   
  -;(defun read-data-until (predicate input continuation)
  -;  )
  -
   (defmacro read-data-until* ((predicate input res res-start res-end) &body body)
     "Read data from `input' until `predicate' applied to the read char
      turns true. Then execute `body' with `res', `res-start', `res-end'
  
positive.code: 
  (defun safe-stream-sysid (stream)
    (if (and (typep (resolve-synonym-stream stream) 'file-stream)
             (pathname stream))
        (pathname-to-uri (pathname stream))
        nil))
  
  
negative.code:        (setf (zstream-token-category zstream) nil)
         '(consume-token zstream)) )
     name kind))
  
  #||
  (defmacro read-data-until* ((predicate input res res-start res-end) &body body)
  