From 820c78beaccf784f710bdd91298401a745d93f2e Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Mon, 4 Aug 2008 15:32:37 +0200
Subject: Add MLKPrintToString along with a couple of fixnum handling
 functions.

---
 MLKPackage.m | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'MLKPackage.m')

diff --git a/MLKPackage.m b/MLKPackage.m
index bd19608..445bf86 100644
--- a/MLKPackage.m
+++ b/MLKPackage.m
@@ -268,9 +268,9 @@ static NSMutableDictionary *packages = nil;
         [NSException
           raise:@"MLKSymbolConflictError"
           format:@"Imported symbol %@ conflicts with accessible symbol %@ in package %@.",
-                 [symbol descriptionForLisp],
-                 [old_symbol descriptionForLisp],
-                 [self descriptionForLisp]];
+                 MLKPrintToString(symbol),
+                 MLKPrintToString(old_symbol),
+                 MLKPrintToString(self)];
     }
 
   [_accessible_symbols setObject:symbol forKey:name];
@@ -304,9 +304,9 @@ static NSMutableDictionary *packages = nil;
     [NSException
       raise:@"MLKSymbolConflictError"
       format:@"Inherited symbol %@ conflicts with accessible symbol %@ in package %@.",
-             [symbol descriptionForLisp],
-             [old_symbol descriptionForLisp],
-             [self descriptionForLisp]];
+             MLKPrintToString(symbol),
+             MLKPrintToString(old_symbol),
+             MLKPrintToString(self)];
 
   [_accessible_symbols setObject:symbol forKey:name];
   
@@ -352,9 +352,9 @@ static NSMutableDictionary *packages = nil;
         [NSException
           raise:@"MLKSymbolConflictError"
           format:@"Exported symbol %@ conflicts with accessible symbol %@ in package %@.",
-                 [symbol descriptionForLisp],
-                 [old_symbol descriptionForLisp],
-                 [package descriptionForLisp]];
+                 MLKPrintToString(symbol),
+                 MLKPrintToString(old_symbol),
+                 MLKPrintToString(package)];
     }
 
   for (i = 0; i < [_using_packages count]; i++)
@@ -475,7 +475,7 @@ static NSMutableDictionary *packages = nil;
 
 -(NSString *) descriptionForLisp
 {
-  return [NSString stringWithFormat:@"#<Package %@>", [[self name] descriptionForLisp]];
+  return [NSString stringWithFormat:@"#<Package %@>", MLKPrintToString ([self name])];
 }
 
 -(void) dealloc
-- 
cgit v1.2.3