Changeset 6400 for branches/x8664-call


Ignore:
Timestamp:
May 3, 2007, 5:01:14 PM (13 years ago)
Author:
gb
Message:

:IF-EXISTS defaults to :NEW-VERSION if the pathname's version is :NEWEST.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/level-1/l1-streams.lisp

    r6255 r6400  
    54435443(defun open (filename &key (direction :input)
    54445444                      (element-type 'base-char)
    5445                       (if-exists :error)
     5445                      (if-exists (if (eq (pathname-version filename) :newest)
     5446                                   :new-version
     5447                                   :error))
    54465448                      (if-does-not-exist (cond ((eq direction :probe)
    54475449                                                nil)
Note: See TracChangeset for help on using the changeset viewer.