From 065ea00d5c861411b5aaa41f29bd69a9f30e3ef3 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <mulk@minimulk.mst-plus>
Date: Mon, 11 Aug 2008 01:00:09 +0200
Subject: Implement most of the MLKForm class cluster.

---
 MLKCons.m | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'MLKCons.m')

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)
-- 
cgit v1.2.3