diff options
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 |