Permalink
Browse files

Remove debugging remnant.

  • Loading branch information...
1 parent 7819dfb commit 01d6e5ce4e6b68b63de7ffcf2df7971717adc525 @orivej committed Nov 30, 2012
Showing with 4 additions and 5 deletions.
  1. +4 −5 quickdist.lisp
View
@@ -66,11 +66,10 @@ system-index-url: {base-url}/{name}/{version}/systems.txt
(let* ((mtime (format-date (effective-mtime source-path)))
(name (format nil "~a-~a" (last-directory source-path) mtime))
(out-path (make-pathname :name name :type "tgz" :defaults (truename destdir-path))))
- (multiple-value-list (external-program:run "/bin/tar" (list "-C" (princ-to-string source-path) "."
- "-czf" (princ-to-string out-path)
- "--transform" (format nil "s#^.#~a#" name))
- :output *standard-output*
- :error *error-output*))
+ (external-program:run "/bin/tar" (list "-C" (princ-to-string source-path) "."
+ "-czf" (princ-to-string out-path)
+ "--transform" (format nil "s#^.#~a#" name))
+ :output *standard-output* :error *error-output*)
out-path))
(defun find-system-files (path)

0 comments on commit 01d6e5c

Please sign in to comment.