Implement most of the MLKForm class cluster.

1 files changed, 8 insertions, 0 deletions

diff --git a/MLKCons.m b/MLKCons.m
index 67aba08..bee917f 100644
--- a/MLKCons.m
+++ b/MLKCons.m
@@ -133,6 +133,14 @@
   return [self listByAppendingObject:nil];
 }
 
+-(int) length
+{
+  if (_cdr)
+    return 1 + [_cdr length];
+  else
+    return 1;
+}
+
 -(NSString *) bareDescriptionForLisp
 {
   if (!_cdr)