diff options
Diffstat (limited to 'src/interp/comp.lisp')
| -rw-r--r-- | src/interp/comp.lisp | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/interp/comp.lisp b/src/interp/comp.lisp index 2f10f163..a804692d 100644 --- a/src/interp/comp.lisp +++ b/src/interp/comp.lisp @@ -1,6 +1,6 @@ -;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. +;; Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. ;; All rights reserved. -;; Copyright (C) 2007, Gabriel Dos Reis. +;; Copyright (C) 2007-2008, Gabriel Dos Reis. ;; All rights reserved. ;; ;; Redistribution and use in source and binary forms, with or without @@ -15,7 +15,7 @@ ;; the documentation and/or other materials provided with the ;; distribution. ;; -;; - Neither the name of The Numerical ALgorithms Group Ltd. nor the +;; - Neither the name of The Numerical Algorithms Group Ltd. nor the ;; names of its contributors may be used to endorse or promote products ;; derived from this software without specific prior written permission. ;; @@ -89,7 +89,7 @@ (if |$compileDontDefineFunctions| #'compile-defun #'eval-defun) #'print-defun)) ;; following creates a null outputstream if $InteractiveMode - (*standard-output* + (|$OutputStream| (if |$InteractiveMode| (make-broadcast-stream) *standard-output*))) (COMP fn))) @@ -98,7 +98,7 @@ (defun |compileFileQuietly| (fn) (let ( ;; following creates a null outputstream if $InteractiveMode - (*standard-output* + (|$OutputStream| (if |$InteractiveMode| (make-broadcast-stream) *standard-output*))) (COMPILE-FILE fn))) @@ -107,7 +107,7 @@ (defun |compileFileQuietly| (fn) (let ( ;; following creates a null outputstream if $InteractiveMode - (*standard-output* + (|$OutputStream| (if |$InteractiveMode| (make-broadcast-stream) *standard-output*))) ;; The output-library is not opened before use unless set explicitly (if (null output-library) @@ -157,7 +157,7 @@ (if |$compileDontDefineFunctions| #'compile-defun #'eval-defun) #'print-defun)) ;; following creates a null outputstream if $InteractiveMode - (*standard-output* + (|$OutputStream| (if |$InteractiveMode| (make-broadcast-stream) *standard-output*))) (COMP370 fn))) |