From ab6010f8463ec21ed50de38ffad29e8fb6ba4867 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 27 Jul 2008 18:52:23 +0200
Subject: Add SYMBOL-NAME.

---
 MLKRoot.m | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'MLKRoot.m')

diff --git a/MLKRoot.m b/MLKRoot.m
index a921c19..07cfe5f 100644
--- a/MLKRoot.m
+++ b/MLKRoot.m
@@ -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
-- 
cgit v1.2.3