diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-06-22 22:12:31 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-06-22 22:12:31 +0200 |
| commit | bbd50fa93b66cfee268c3c7f038d855b953c7eb1 (patch) | |
| tree | 89a5147f2df02a4809171d72f233f533bafb7234 /MLKSymbol.m | |
| parent | 29b9ca1a3a9d1f6291af51ab2f6150039b2d5619 (diff) | |
Improve error reporting in the reader.
Diffstat (limited to 'MLKSymbol.m')
| -rw-r--r-- | MLKSymbol.m | 9 |
1 files changed, 7 insertions, 2 deletions
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 |