ambrevar/shell: Rename checksum to sha1.
parent
f84f5f026a
commit
b368c7f349
|
@ -291,8 +291,8 @@ Return process name as second value."
|
|||
process-pid
|
||||
process-name)))
|
||||
|
||||
(export-always 'checksum)
|
||||
(defun checksum (file) ; TODO: Use pure CL version.
|
||||
(export-always 'sha1)
|
||||
(defun sha1 (file) ; TODO: Use pure CL / FFI version?
|
||||
"Return checksum of FILE."
|
||||
(first (first (tokenize (cmd:$cmd "sha1sum" file)))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue