diff options
author | dos-reis <gdr@axiomatics.org> | 2014-11-20 14:08:30 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2014-11-20 14:08:30 +0000 |
commit | f4f36ca38155309071be1bf845aed0029e29fd0f (patch) | |
tree | 4373a0657805d42b078c139a176235800f0716aa /src/interp/sys-macros.lisp | |
parent | 6eb6cb046be4895a71869d26e9bb0baa8b46772f (diff) | |
download | open-axiom-f4f36ca38155309071be1bf845aed0029e29fd0f.tar.gz |
Introduce forkStreamByName.
Diffstat (limited to 'src/interp/sys-macros.lisp')
-rw-r--r-- | src/interp/sys-macros.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/sys-macros.lisp b/src/interp/sys-macros.lisp index d03cec85..1d5d98bf 100644 --- a/src/interp/sys-macros.lisp +++ b/src/interp/sys-macros.lisp @@ -1,6 +1,6 @@ ;; Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. ;; All rights reserved. -;; Copyright (C) 2007-2013, Gabriel Dos Reis. +;; Copyright (C) 2007-2014, Gabriel Dos Reis. ;; All rights reserved. ;; ;; Redistribution and use in source and binary forms, with or without @@ -1050,7 +1050,7 @@ (defmacro |quietlyIfInteractive| (cmd) `(let ((|$OutputStream| (if |$InteractiveMode| (make-broadcast-stream) - (make-synonym-stream '*standard-output*)))) + (|forkStreamByName| '*standard-output*)))) ,cmd)) (defmacro |withOutputFile| (stream filespec form) |