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))))