diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/interp/vmlisp.lisp | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index 8528cb17..68735213 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -294,14 +294,14 @@ ; 9.13 Streams -#+KCL -(defun |ioTerminal?| (stream) - (and (streamp stream) (output-stream-p stream) - (eq (system:fp-output-stream stream) - (system:fp-output-stream *terminal-io*)))) - -#-KCL (defun |ioTerminal?| (stream) + #+:gcl (and (streamp stream) (output-stream-p stream) + (eq (system:fp-output-stream stream) + (system:fp-output-stream *terminal-io*))) + #+:clisp (or (eq stream *terminal-io*) + (and (typep stream 'synonym-stream) + (|ioTerminal?| (symbol-value (synonym-stream-symbol stream))))) + #-(or :clisp :gcl) (cond ((not (streamp stream)) nil) ((not (typep stream 'synonym-stream)) @@ -1421,10 +1421,6 @@ ((PROGN (NEXTSTRMLINE STRM) (STRMBLANKLINE STRM)) STRM) ((STRMSKIPTOBLANK STRM)))) -(DEFUN CURINPUTLINE () (CURSTRMLINE |$InputStream|)) - -(DEFUN NEXTINPUTLINE () (NEXTSTRMLINE |$InputStream|)) - ; 22.3 Output Functions ; 22.3.1 Output to Character Streams |