How to read *standard-input*, close and open again

I have this peculiar program to wish to read
*standard-input* then close it and open it again.

(let* ((email (with-output-to-string (stream)
	      (with-open-stream (text *standard-input*)
		(format stream (read-line text nil nil))))))
  ;;  (clear-input *standard-input*) ;; just thinking
  ;;  (open *standard-input*) ;; just thinking
  (emailsof email))

If function emailsof contains something like:

mutt -f email

then mutt is simply still reading or sensing that
standard input is open and then it finished, it
was thinking I am feeding it with text for email.

Instead I would like to close standard-input and
then run the shell command.

How is that done?

-- 
Jean Louis


_______________________________________________
clisp-list mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/clisp-list