2 files changed, 10 insertions, 0 deletions
diff --git a/MLKCons.h b/MLKCons.h
index 739fb40..55f47c1 100644
--- a/MLKCons.h
+++ b/MLKCons.h
@@ -44,5 +44,7 @@
                                       // only
 -(NSString *)descriptionForLisp;
 
+-(id) copyWithZone:(NSZone *)zone;
+  
 -(void) dealloc;
 @end
diff --git a/MLKCons.m b/MLKCons.m
index 8b3084b..c557dc2 100644
--- a/MLKCons.m
+++ b/MLKCons.m
@@ -128,6 +128,14 @@
     return [NSString stringWithFormat:@"(%@)", [self bareDescriptionForLisp]];
 }
 
+-(id) copyWithZone:(NSZone *)zone
+{
+  MLKCons *copy = [MLKCons allocWithZone:zone];
+  ASSIGN (copy->_car, _car);
+  ASSIGN (copy->_cdr, _cdr);
+  return copy;
+}
+
 -(void) dealloc
 {
   RELEASE (_car);