Changeset 11669


Ignore:
Timestamp:
Jan 30, 2009, 1:39:48 PM (10 years ago)
Author:
gz
Message:

list explicit filename in with-open-file for more useful arglist

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/macros.lisp

    r11656 r11669  
    14681468        (close ,var)))))
    14691469
    1470 (defmacro with-open-file ((var . args) &body body &aux (stream (gensym))(done (gensym)))
    1471   "Use open to create a file stream to file named by filespec. Filespec is
     1470(defmacro with-open-file ((var filename . args) &body body &aux (stream (gensym))(done (gensym)))
     1471  "Use open to create a file stream to file named by filename. Filename is
    14721472the name of the file to be opened. Options are used as keyword arguments
    14731473to open."
     
    14751475     (unwind-protect
    14761476       (multiple-value-prog1
    1477          (let ((,var (setq ,stream (open ,@args))))
     1477         (let ((,var (setq ,stream (open ,filename ,@args))))
    14781478           ,@body)
    14791479         (setq ,done t))
Note: See TracChangeset for help on using the changeset viewer.