Changeset 6495


Ignore:
Timestamp:
May 9, 2007, 7:57:55 AM (15 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-streams.lisp

    r6255 r6495  
    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.