diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-06 20:09:19 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-06 20:09:19 +0200 |
| commit | 0351c5dfaedff81d407ff4fae33ae74d752f29fb (patch) | |
| tree | 493485eceade8ba3126ae160cabba38670fdfd15 /MLKSymbol.m | |
| parent | 5fa9211d806a675131b44cc49a694a4fd6a38f2a (diff) | |
Make keywords print nicely.
Diffstat (limited to 'MLKSymbol.m')
| -rw-r--r-- | MLKSymbol.m | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/MLKSymbol.m b/MLKSymbol.m index fa8e1b4..fead7be 100644 --- a/MLKSymbol.m +++ b/MLKSymbol.m @@ -135,7 +135,9 @@ } NS_ENDHANDLER; - if (accessible) + if (homePackage == [MLKPackage findPackage:@"KEYWORD"]) + packagePrefix = @":"; + else if (accessible) packagePrefix = [NSString string]; else packagePrefix = [NSString stringWithFormat:@"|%@|%s", @@ -149,7 +151,7 @@ -(NSString *) description { - return [NSString stringWithFormat:@"|%@|::|%@|", [homePackage name], name]; + return [self descriptionForLisp]; } -(BOOL) isEqual:(id)object |