From 24373d42ddc0a04e0b76861b021c5ab576f5de4c Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 24 Aug 2008 23:19:22 +0200
Subject: Remove defunct intrinsic function MACROEXPAND-ALL.

---
 MLKRoot.m | 12 ------------
 1 file changed, 12 deletions(-)

(limited to 'MLKRoot.m')

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]);
-- 
cgit v1.2.3