diff options
author | dos-reis <gdr@axiomatics.org> | 2014-11-20 08:23:16 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2014-11-20 08:23:16 +0000 |
commit | 6eb6cb046be4895a71869d26e9bb0baa8b46772f (patch) | |
tree | 29bd3c807ed0f83f0319d95ee5fcf96615898b7b /src/interp/vmlisp.lisp | |
parent | bb531c8db7a41f93f647f354e29d0e33d1377796 (diff) | |
download | open-axiom-6eb6cb046be4895a71869d26e9bb0baa8b46772f.tar.gz |
Remove EOFP. Simplify IO file stream creation code.
Diffstat (limited to 'src/interp/vmlisp.lisp')
-rw-r--r-- | src/interp/vmlisp.lisp | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index 68735213..cbb6de78 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.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 @@ -914,15 +914,13 @@ (declare (ignore recnum)) (cond ((numberp filespec) (make-synonym-stream '*standard-input*)) ((null filespec) (error "not handled yet")) - (t (open (|makeInputFilename| filespec) - :direction :input :if-does-not-exist nil)))) + (t (|inputTextFile| (|makeInputFilename| filespec))))) (defun MAKE-OUTSTREAM (filespec &optional (width nil) (recnum 0)) (declare (ignore width) (ignore recnum)) (cond ((numberp filespec) (make-synonym-stream '*standard-output*)) ((null filespec) (error "not handled yet")) - (t (open (|makeFilename| filespec) :direction :output - :if-exists :supersede)))) + (t (|outputTextFile| (|makeFilename| filespec))))) (defun MAKE-APPENDSTREAM (filespec &optional (width nil) (recnum 0)) "fortran support" @@ -954,8 +952,6 @@ (defun shut (st) (if (|ioTerminal?| st) st (if (streamp st) (close st) -1))) -(defun EOFP (stream) (null (peek-char nil stream nil nil))) - ; 28.0 Key addressed I/O |