summaryrefslogtreecommitdiff
path: root/MLKRoot.m
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-08-24 23:19:22 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-08-24 23:19:22 +0200
commit24373d42ddc0a04e0b76861b021c5ab576f5de4c (patch)
tree04b8748a13662e3336f28fa3c5453c9742dce482 /MLKRoot.m
parentb35a8886e8b8a3d953333c8f5ea32735d489f372 (diff)
Remove defunct intrinsic function MACROEXPAND-ALL.
Diffstat (limited to 'MLKRoot.m')
-rw-r--r--MLKRoot.m12
1 files changed, 0 insertions, 12 deletions
diff --git a/MLKRoot.m b/MLKRoot.m
index d1688ec..f27323d 100644
--- a/MLKRoot.m
+++ b/MLKRoot.m
@@ -350,18 +350,6 @@ static id truify (BOOL value)
RETURN_VALUE (form);
}
-+(NSArray *) macroexpand_all:(NSArray *)args
-{
- id form = [args objectAtIndex:0];
- id env = [args count] > 1 ? denullify([args objectAtIndex:1]) : nil;
- MLKLexicalContext *context = env ? (id)env : (id)[MLKLexicalContext globalContext];
-
- return [MLKInterpreter eval:form
- inLexicalContext:context
- withEnvironment:nil
- expandOnly:YES];
-}
-
+(NSArray *) shadow:(NSArray *)args
{
id symbols = denullify ([args objectAtIndex:0]);