X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fsequence.lisp;h=62b075ea2a7b952c357d19f4752816cdf2a54fe9;hb=d19b5d61e75a24cb5ee6b53630d9ec01106bd641;hp=880f7fd6edfb19ac755710a64f0d119c3dec5c8a;hpb=4d757501022f957f4408c344c4cb895ffd073de6;p=jscl.git

diff --git a/src/sequence.lisp b/src/sequence.lisp
index 880f7fd..62b075e 100644
--- a/src/sequence.lisp
+++ b/src/sequence.lisp
@@ -15,6 +15,15 @@
 
 (/debug "loading sequence.lisp!")
 
+(defun length (seq)
+  (cond
+    ((stringp seq)
+     (string-length seq))
+    ((arrayp seq)
+     (oget seq "length"))
+    ((listp seq)
+     (list-length seq))))
+
 (defun sequencep (thing)
   (or (listp thing) (vectorp thing)))