[Cl-darcs-cvs] r119 - cl-darcs/trunk

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Tue Aug 21 20:37:22 2007
New Revision: 119

Modified:
   cl-darcs/trunk/send.lisp
Log:
Use MAKE-ARRAY instead of COERCE


Modified: cl-darcs/trunk/send.lisp
==============================================================================
--- cl-darcs/trunk/send.lisp	(original)
+++ cl-darcs/trunk/send.lisp	Tue Aug 21 20:37:22 2007
@@ -103,7 +103,9 @@
 	   (dolist (patch patches)
 	     (write-patch patch out)))))
     (setf patches-as-vector
-	  (coerce patches-as-vector '(simple-array (unsigned-byte 8))))
+	  (make-array (length patches-as-vector)
+		      :element-type '(unsigned-byte 8)
+		      :initial-contents patches-as-vector))
     (ironclad:byte-array-to-hex-string
      #+clisp (sb-sha1:sha1sum-sequence patches-as-vector)
      #-clisp (ironclad:digest-sequence :sha1 patches-as-vector))))