Drop external-program-word, not needed anymore.

orivej · Dec 3, 2012 · 45daae1 · 45daae1
1 parent 0c5e755
commit 45daae1
Showing 1 changed file with 0 additions and 5 deletions.
diff --git a/quickdist.lisp b/quickdist.lisp
@@ -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)))