[cl-prevalence-cvs] CVS update: cl-prevalence/src/blob.lisp

[Sven Van Caekenberghe]

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)))