Changeset 11669

Timestamp:

Jan 30, 2009, 1:39:48 PM (13 years ago)

Author:

gz

Message:

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

File:

• branches/working-0711/ccl/lib/macros.lisp (modified) (2 diffs)

branches/working-0711/ccl/lib/macros.lisp

@@ -1468 +1468 @@
         (close ,var)))))
 
-(defmacro with-open-file ((var . args) &body body &aux (stream (gensym))(done (gensym)))
-  "Use open to create a file stream to file named by filespec. Filespec is
+(defmacro with-open-file ((var filename . args) &body body &aux (stream (gensym))(done (gensym)))
+  "Use open to create a file stream to file named by filename. Filename is
 the name of the file to be opened. Options are used as keyword arguments
 to open."
@@ -1475 +1475 @@
      (unwind-protect
        (multiple-value-prog1
-         (let ((,var (setq ,stream (open ,@args))))
+         (let ((,var (setq ,stream (open ,filename ,@args))))
            ,@body)
          (setq ,done t))