;;; test file for LLREAD 4-30-87 by woz

;;; AR 7741
(do-test "SKREAD understands vertical bar"
  (with-input-from-string (s "(a |b) c| d) e |")
      (il:skread s)
      (eq (read s) 'e))
)

stop