Permalink
Browse files

Drop external-program-word, not needed anymore.

  • Loading branch information...
1 parent 0c5e755 commit 45daae1c7118826f883161112131d8b571a249d4 @orivej committed Dec 3, 2012
Showing with 0 additions and 5 deletions.
  1. +0 −5 quickdist.lisp
View
@@ -48,11 +48,6 @@ system-index-url: {base-url}/{name}/{version}/systems.txt
(date (reverse (subseq time 3 6))))
(format nil "~{~2,'0d~}" date)))
-(defun external-program-word (&rest run-args)
- (let* ((s (with-output-to-string (out)
- (apply #'external-program:run (append run-args `(:output ,out))))))
- (subseq s 0 (position #\Space s))))
-
(defun md5sum (path)
(ironclad:byte-array-to-hex-string
(ironclad:digest-file :md5 path)))

0 comments on commit 45daae1

Please sign in to comment.