diff options
Diffstat (limited to 'src/interp/bootlex.lisp')
| -rw-r--r-- | src/interp/bootlex.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/bootlex.lisp b/src/interp/bootlex.lisp index 0f8768b7..77147e7a 100644 --- a/src/interp/bootlex.lisp +++ b/src/interp/bootlex.lisp @@ -54,10 +54,10 @@ (defun print-defun (name body) (let* ((sp (assoc 'compiler-output-stream optionlist)) (st (if sp (cdr sp) |$OutputStream|))) - (if (and (is-console st) (symbolp name) (fboundp name) + (if (and (|ioTerminal?| st) (symbolp name) (fboundp name) (not (compiled-function-p (symbol-function name)))) (compile name)) - (when (or |$PrettyPrint| (not (is-console st))) + (when (or |$PrettyPrint| (not (|ioTerminal?| st))) (print-full body st) (force-output st)))) |