From 94569e041529eead2209ecd2e04a747dbef262d3 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Tue, 5 Aug 2008 11:05:10 +0200
Subject: Implement MLKInterpretedClosure#-dealloc.

---
 MLKInterpretedClosure.h | 2 ++
 MLKInterpretedClosure.m | 9 +++++++++
 2 files changed, 11 insertions(+)

diff --git a/MLKInterpretedClosure.h b/MLKInterpretedClosure.h
index 942a9b8..08421f5 100644
--- a/MLKInterpretedClosure.h
+++ b/MLKInterpretedClosure.h
@@ -42,4 +42,6 @@
 
 -(NSString *) description;
 -(NSString *) descriptionForLisp;
+
+-(void) dealloc;
 @end
diff --git a/MLKInterpretedClosure.m b/MLKInterpretedClosure.m
index 8b2fd9b..fd7fb19 100644
--- a/MLKInterpretedClosure.m
+++ b/MLKInterpretedClosure.m
@@ -85,4 +85,13 @@ static MLKSymbol *PROGN;
 {
   return [NSString stringWithFormat:@"<Interpreted closure @%p>", self];
 }
+
+-(void) dealloc
+{
+  [super dealloc];
+  LDESTROY (bodyForm);
+  LDESTROY (lambdaListName);
+  LDESTROY (context);
+  LDESTROY (environment);
+}
 @end
-- 
cgit v1.2.3