diff options
Diffstat (limited to 'src/interp/preparse.lisp')
-rw-r--r-- | src/interp/preparse.lisp | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/interp/preparse.lisp b/src/interp/preparse.lisp index 5c2cf911..8adb40e1 100644 --- a/src/interp/preparse.lisp +++ b/src/interp/preparse.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. ;; @@ -79,13 +79,14 @@ (defun /RP (&optional (*boot-input-file* nil) (*boot-output-file* nil) ($preparseReportIfTrue t)) (with-open-stream - (in-stream (or (and *boot-input-file* (open *boot-input-file* :direction :input)) - *terminal-io*)) + (in-stream (or (and *boot-input-file* + (open *boot-input-file* :direction :input)) + *standard-input*)) (declare (special in-stream)) (with-open-stream (out-stream (if *boot-output-file* (open *boot-output-file* :direction :output) - *terminal-io*)) + *standard-output*)) (declare (special out-stream)) (initialize-preparse in-stream) (do ((lines (PREPARSE in-stream) (PREPARSE in-stream))) ((null lines))))) |