Update of /cvsroot/sbcl/sbcl/contrib/sb-executable
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31290/contrib/sb-executable
RIP (physical) PATHNAME-VERSION significance
... remove all internal discrimination based on the version
field if the pathname involved has the Unix host.
... parsing of a physical pathname namestring (i.e. again either
explicitly or implicitly on the Unix host) never produces
a version from the namestring.
... make :if-exists :new-version behave like :if-exists :error,
because despite weasel-words in CLHS someone might
legitimately expect :if-exists :new-version not to
clobber the old version.
... (this latter needs to be revisited, when OPEN is made aware
of logical pathnames and the wacky logic they impose; we
can support :new-version with LPNs, but only if OPEN is
... make pathnames more likely to be read/print consistent, by
throwing errors in more cases (we now pass PFD's test for
that, not that it's that stringent).
... throw errors on use of (:absolute :up) and friends in CL
... don't throw error on creation, and in fact test in sb-posix
that we can use #p"/../" for what it means.
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-executable/sb-executable.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- sb-executable.lisp 8 Nov 2003 15:04:47 -0000 1.5
+++ sb-executable.lisp 27 Jan 2004 10:34:57 -0000 1.6
@@ -30,7 +30,9 @@
"Write an executable called OUTPUT-FILE which can be run from the shell, by 'linking' together code from FASLS. Actually works by concatenating them and prepending a #! header"
- (with-open-file (out output-file :direction :output
+ (with-open-file (out output-file
+ :direction :output
+ :if-exists :supersede
:element-type '(unsigned-byte 8))
(write-sequence (map 'vector #'char-code
(format nil *exec-header* runtime-flags