From 0351c5dfaedff81d407ff4fae33ae74d752f29fb Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 6 Jul 2008 20:09:19 +0200
Subject: Make keywords print nicely.

---
 MLKSymbol.m | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'MLKSymbol.m')

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
-- 
cgit v1.2.3