Update of /project/cl-prevalence/cvsroot/cl-prevalence/src In directory common-lisp.net:/tmp/cvs-serv12352/src
Modified Files: blob.lisp Log Message: minor bugfix
Date: Mon Jun 28 05:54:47 2004 Author: scaekenberghe
Index: cl-prevalence/src/blob.lisp diff -u cl-prevalence/src/blob.lisp:1.1.1.1 cl-prevalence/src/blob.lisp:1.2 --- cl-prevalence/src/blob.lisp:1.1.1.1 Sun Jun 20 12:13:38 2004 +++ cl-prevalence/src/blob.lisp Mon Jun 28 05:54:47 2004 @@ -1,6 +1,6 @@ ;;;; -*- Mode: LISP -*- ;;;; -;;;; $Id: blob.lisp,v 1.1.1.1 2004/06/20 19:13:38 scaekenberghe Exp $ +;;;; $Id: blob.lisp,v 1.2 2004/06/28 12:54:47 scaekenberghe Exp $ ;;;; ;;;; Blobs represent collections of bytes of a certain mime type, ;;;; where the bytes themselves are stored automatically in an ordinary file. @@ -78,7 +78,7 @@ (with-open-file (out (get-file blob) :direction :output :element-type '(unsigned-byte 8) - :if-exists :overwrite + :if-exists :supersede :if-does-not-exist :create) (copy-stream binary-input-stream out)))