From: Christophe R. <cr...@us...> - 2005-05-05 10:33:48
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17500/src/code Modified Files: fd-stream.lisp Log Message: 0.9.0.19: Fix bug discovered by CSR on comp.lang.lisp in message <sqa...@ca...> ... treat :overwrite like :append Index: fd-stream.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/fd-stream.lisp,v retrieving revision 1.65 retrieving revision 1.66 diff -u -d -r1.65 -r1.66 --- fd-stream.lisp 29 Apr 2005 14:37:36 -0000 1.65 +++ fd-stream.lisp 5 May 2005 10:33:36 -0000 1.66 @@ -1875,7 +1875,7 @@ (let ((original (case if-exists ((:rename :rename-and-delete) (pick-backup-name namestring)) - ((:append) + ((:append :overwrite) ;; KLUDGE: Provent CLOSE from deleting ;; appending streams when called with :ABORT T namestring))) |