with-input-from-file

> (with-input-from-file (stream "/etc/passwd") (read-line stream)) "root:x:0:0:root:/root:/bin/bash"
whalliburton · Jun 29, 2015 · 119448a · 119448a
1 parent f4591be
commit 119448a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/nuts-and-bolts.lisp b/nuts-and-bolts.lisp
@@ -29,6 +29,10 @@ this file is verified."
                                                 :if-does-not-exist :create)
      ,@body))
 
+(defmacro with-input-from-file ((stream filename) &body body)
+  `(with-open-file (,stream ,filename :direction :input)
+     ,@body))
+
 (defmacro with-output-to-data-file (filename &body body)
   (let ((bytes (gensym))
         (name (gensym)))