Changeset 6495

Timestamp:

May 9, 2007, 12:57:55 AM (18 years ago)

Author:

Gary Byers

Message:

OPEN : :if-exists defaults to :new-version if pathname-version of
filename is :NEWEST.

File:

• trunk/ccl/level-1/l1-streams.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-streams.lisp

@@ -5443 +5443 @@
 (defun open (filename &key (direction :input)
                       (element-type 'base-char)
-                      (if-exists :error)
+                      (if-exists (if (eq (pathname-version filename) :newest)
+                                   :new-version
+                                   :error))
                       (if-does-not-exist (cond ((eq direction :probe)
                                                 nil)