diff options
| -rw-r--r-- | MLKPackage.m | 1 | ||||
| -rw-r--r-- | MLKRoot.m | 8 |
2 files changed, 8 insertions, 1 deletions
diff --git a/MLKPackage.m b/MLKPackage.m index 9ed5839..3d94d69 100644 --- a/MLKPackage.m +++ b/MLKPackage.m @@ -122,6 +122,7 @@ static NSMutableDictionary *packages = nil; [sys export:[sys intern:@"OBJC-SUBCLASSP"]]; [sys export:[sys intern:@"FIND-OBJC-CLASS"]]; [sys export:[sys intern:@"NS-LOG"]]; + [sys export:[sys intern:@"SYMBOL-NAME"]]; [cl export:[cl intern:@"*BREAK-ON-SIGNALS*"]]; [cl export:[cl intern:@"*COMPILE-FILE-PATHNAME*"]]; @@ -406,7 +406,7 @@ static id truify (BOOL value) intern:@"*PACKAGE*"]])); MLKSymbol *symbol = [package intern:name]; - return [NSArray arrayWithObjects:symbol, nil]; + RETURN_VALUE (symbol); } +(NSArray *) import:(NSArray *)args @@ -446,4 +446,10 @@ static id truify (BOOL value) NSLog (@"%@", description); RETURN_VALUE ([args objectAtIndex:0]); } + ++(NSArray *) symbol_name:(NSArray *)args +{ + MLKSymbol *symbol = denullify ([args objectAtIndex:0]); + RETURN_VALUE (symbol ? (id)[symbol name] : (id)@"NIL"); +} @end |