3 lines
123 B
Common Lisp
3 lines
123 B
Common Lisp
(with-open-stream (s *standard-input*)
|
|
(format T "stdin is~:[ not~;~] a terminal~%"
|
|
(interactive-stream-p s)))
|