-Added file-size to utility.lisp

inaimathi · Mar 5, 2011 · 5b864d3 · 5b864d3
1 parent fdf6f43
commit 5b864d3
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/utility.lisp b/utility.lisp
@@ -19,4 +19,7 @@
   (if (not a-list) 
       acc 
       (let ((e (car a-list))) 
-	(list->plist (cdr a-list) (append acc `(,(sym->keyword e) ,e))))))
+	(list->plist (cdr a-list) (append acc `(,(sym->keyword e) ,e))))))
+
+(defun file-size (f-name)
+  (with-open-file (stream f-name :direction :input :if-does-not-exist nil) (file-length stream)))