Tidy basic setf-macros

[jscl.git] / src / sequence.lisp

diff --git a/src/sequence.lisp b/src/sequence.lisp
index 880f7fd..62b075e 100644 (file)
--- 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)))