diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-04 15:32:37 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-04 15:32:37 +0200 |
| commit | 820c78beaccf784f710bdd91298401a745d93f2e (patch) | |
| tree | 30a9e7a7cc6cf7ccd4aa953edc72b2e2b825b362 /MLKPackage.m | |
| parent | eaf8e27a9860e404390da055510d1f8e4de33f1f (diff) | |
Add MLKPrintToString along with a couple of fixnum handling functions.
Diffstat (limited to 'MLKPackage.m')
| -rw-r--r-- | MLKPackage.m | 20 |
1 files changed, 10 insertions, 10 deletions
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 |