From d6d73cfbcfd4eae88e53c4c30e221a66daade5e1 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Tue, 17 Jun 2008 16:11:43 +0200
Subject: MLKCons, MLKSymbol: Override -descriptionForLisp.

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

(limited to 'MLKSymbol.m')

diff --git a/MLKSymbol.m b/MLKSymbol.m
index 3443e37..42a7141 100644
--- a/MLKSymbol.m
+++ b/MLKSymbol.m
@@ -18,6 +18,8 @@
 
 #import "MLKSymbol.h"
 
+#import <Foundation/NSString.h>
+
 
 @implementation MLKSymbol
 -(MLKSymbol *) initWithName:(id)aName package:(id)aPackage
@@ -43,6 +45,12 @@
   ASSIGN (homePackage, aPackage);
 }
 
+-(NSString *)descriptionForLisp
+{
+  // FIXME: This is wrong in more than one way.
+  return [NSString stringWithFormat:@"|%@|", name];
+}
+
 -(void) dealloc
 {
   RELEASE (name);
-- 
cgit v1.2.3