Browse files

Ensure that simple-vector type is given to Ironclad

Or else it fails. What comes out of babel-streams is an adjustable
array with a fill pointer.
  • Loading branch information...
1 parent 84c72c7 commit 2043b596d23fe41a4bc043379d20063e28acb24f Valeriy Zamarayev committed Dec 25, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 quickdist.lisp
@@ -56,7 +56,7 @@ system-index-url: {base-url}/{name}/{version}/systems.txt
(let ((octets (babel-streams:with-output-to-sequence (buffer)
(external-program:run "/bin/tar" (list "-xOf" path) :output buffer))))
- (ironclad:digest-sequence :sha1 octets))))
+ (ironclad:digest-sequence :sha1 (copy-seq octets)))))
(defun last-directory (path)
(first (last (pathname-directory path))))

0 comments on commit 2043b59

Please sign in to comment.