alien: these make "utf8 encode" 7-8% faster.

diff --git a/core/alien/alien.factor b/core/alien/alien.factor
index 83c8fb41a6de3f4cbe217ca90fcc0f2f870cb9cc..6da68c197f36913bc8067e27690c64cba1759479 100755 (executable)
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@@ -22,6 +22,10 @@ GENERIC: byte-length ( obj -- n ) flushable
 
 M: object byte-length [ length ] [ element-size ] bi * ; inline
 
+M: byte-array byte-length length ; inline
+
+M: byte-vector byte-length length ; inline
+
 GENERIC: >c-ptr ( obj -- c-ptr ) flushable
 
 M: c-ptr >c-ptr ; inline