diff options
Diffstat (limited to 'src/interp/vmlisp.lisp')
-rw-r--r-- | src/interp/vmlisp.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index 2f57c6ac..e4729fe5 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -315,13 +315,13 @@ ; 9.13 Streams #+KCL -(defun IS-CONSOLE (stream) +(defun |ioTerminal?| (stream) (and (streamp stream) (output-stream-p stream) (eq (system:fp-output-stream stream) (system:fp-output-stream *terminal-io*)))) #-KCL -(defun IS-CONSOLE (stream) +(defun |ioTerminal?| (stream) (cond ((not (streamp stream)) nil) ((not (typep stream 'synonym-stream)) @@ -998,7 +998,7 @@ (file-position strm char-position)) strm)))) -(defun shut (st) (if (is-console st) st +(defun shut (st) (if (|ioTerminal?| st) st (if (streamp st) (close st) -1))) (defun EOFP (stream) (null (peek-char nil stream nil nil))) |