Changeset 11669
- Timestamp:
- Jan 30, 2009, 1:39:48 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/working-0711/ccl/lib/macros.lisp
r11656 r11669 1468 1468 (close ,var))))) 1469 1469 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 file spec. Filespecis1470 (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 1472 1472 the name of the file to be opened. Options are used as keyword arguments 1473 1473 to open." … … 1475 1475 (unwind-protect 1476 1476 (multiple-value-prog1 1477 (let ((,var (setq ,stream (open , @args))))1477 (let ((,var (setq ,stream (open ,filename ,@args)))) 1478 1478 ,@body) 1479 1479 (setq ,done t))
Note: See TracChangeset
for help on using the changeset viewer.