On 7/8/07, sen1 at math.msu.edu <sen1 at math.msu.edu> wrote:
> > (defun $openw (file)
> > (open
> > (l-string file)
> > :direction :output
> > :if-exists :supersede
> > :if-does-not-exist :create))
> %i3) build_info();
>
> Maxima version: 5.12.0
> Maxima build date: 23:16 5/28/2007
> host type: i686-pc-linux-gnu
> lisp-implementation-type: CMU Common Lisp
> lisp-implementation-version: 19c Fedora Extras release 7.fc6 (19C)
Hmm. I can't tell what's going on here. You might have to
take it up with the CMUCL developers. It seems strange that
(open foo :direction :output :if-exists :supersede :if-does-not-exist :create)
should cause CMUCL to complain. Maybe you can try it with
another Lisp implementation.
About opening "foo1.txt" if "foo.txt" already exists, I guess
that could be accomplished via PROBE-FILE.
But be advised that file i/o functions might have different
behavior in different Lisp implementations. That's my
observation anyway.
FWIW
Robert Dodier