From bbd50fa93b66cfee268c3c7f038d855b953c7eb1 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 22 Jun 2008 22:12:31 +0200
Subject: Improve error reporting in the reader.

---
 MLKSymbol.m | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'MLKSymbol.m')

diff --git a/MLKSymbol.m b/MLKSymbol.m
index 534debf..8b385eb 100644
--- a/MLKSymbol.m
+++ b/MLKSymbol.m
@@ -59,12 +59,17 @@
   ASSIGN (homePackage, aPackage);
 }
 
--(NSString *)descriptionForLisp
+-(NSString *) descriptionForLisp
 {
   // NOTE: Need to take *PRINT-GENSYM* into account.
   //
   // FIXME: This is wrong in more than one way.
-  return [NSString stringWithFormat:@"|%@|", name];
+  return [NSString stringWithFormat:@"|%@::%@|", [homePackage name], name];
+}
+
+-(NSString *) description
+{
+  return [NSString stringWithFormat:@"|%@::%@|", [homePackage name], name];
 }
 
 -(BOOL) isEqual:(id)object
-- 
cgit v1.2.3