From f403bb6e9b0c64e2ce05eaf382c95884e753644e Mon Sep 17 00:00:00 2001
From: Matthias Benkard <mulk@Minimulk.local>
Date: Sun, 24 Aug 2008 18:44:05 +0200
Subject: Promote special operator EVAL to an intrinsic function.

---
 MLKPackage.m | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'MLKPackage.m')

diff --git a/MLKPackage.m b/MLKPackage.m
index 6d97652..d432465 100644
--- a/MLKPackage.m
+++ b/MLKPackage.m
@@ -98,7 +98,6 @@ static NSMutableDictionary *packages = nil;
   [cl export:[cl intern:@"DECLARE"]];
   [cl export:[cl intern:@"QUOTE"]];
   [cl export:[cl intern:@"VALUES"]];
-  [cl export:[cl intern:@"EVAL"]];
   [cl export:[cl intern:@"SPECIAL"]];
   [cl export:[cl intern:@"UNWIND-PROTECT"]];
   [cl export:[cl intern:@"MULTIPLE-VALUE-CALL"]];
@@ -155,6 +154,7 @@ static NSMutableDictionary *packages = nil;
   [sys export:[sys intern:@"COMPILE"]];
   [sys export:[sys intern:@"SET"]];
   [sys export:[sys intern:@"APPLY"]];
+  [sys export:[sys intern:@"EVAL"]];
 
   [sys export:[sys intern:@"OBJC-CLASS-OF"]];
   [sys export:[sys intern:@"OBJC-SUBCLASSP"]];
-- 
cgit v1.2.3