commit 42952192d8efeed5c0c6d99541e85ed45413cf9a parent d98375a7a29510e6211d6c3406bf9f3adc9c2ffe Author: Tomas Hlavaty <tom@logand.com> Date: Thu, 29 Aug 2013 00:21:54 +0200 minor refactoring Diffstat:
| M | os.lisp | | | 5 | ++--- |
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/os.lisp b/os.lisp @@ -155,9 +155,8 @@ (lambda (,var) ,@body))) (defun sha1sum (file) - (let ((name (format nil "~a" file))) - (with-program-output (s "sha1sum" (list name)) - (rw:till (rw:peek-reader (rw:char-reader s)) '(#\space))))) + (with-program-output (s "sha1sum" (list (format nil "~a" file))) + (rw:till (rw:peek-reader (rw:char-reader s)) '(#\space)))) ;;(sha1sum "/etc/passwd") ;;(sha1sum "/etc/passwd2")