1 files changed, 8 insertions, 0 deletions
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);