From: Delaregue
Subject: stream problem
Date: Tue, 31 Jul 2001 15:34:40 +0000
Message-ID: <6b4aa54a.0107310734.15716a0e@posting.google.com>

Hello, 
probably a simple problem...

I try to run oracle sqlplus from clisp. The query return results but I
cannot exit from reading the stream. Any ideas?

(defun run-sqlplus (pathname login sql-query)
  (let*
       ((args (list "-S" login (format nil ·@~A" sql-query)))
        (s (run-program pathname :arguments args :output :stream)))
        (loop    (let ((l (read-line s nil )))
                (if l  (print l) (return))))))

Thanks.