From ca17649dab6d0d1ed49a3e072827e8324629aa64 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Thu, 31 Jul 2008 11:48:46 +0200
Subject: Reader: Add support for dispatching macro characters.

---
 MLKPackage.m | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'MLKPackage.m')

diff --git a/MLKPackage.m b/MLKPackage.m
index 94bff0a..2757455 100644
--- a/MLKPackage.m
+++ b/MLKPackage.m
@@ -90,6 +90,7 @@ static NSMutableDictionary *packages = nil;
   [sys export:[sys intern:@"%DEFMACRO"]];
   [sys export:[sys intern:@"%LAMBDA"]];
   [sys export:[sys intern:@"%FSET"]];
+  [sys export:[sys intern:@"%LOOP"]];
 
   [sys export:[sys intern:@"CAR"]];
   [sys export:[sys intern:@"CDR"]];
@@ -119,11 +120,12 @@ static NSMutableDictionary *packages = nil;
   [sys export:[sys intern:@"MAKE-SYMBOL"]];
   [sys export:[sys intern:@"IMPORT"]];
   [sys export:[sys intern:@"INTERN"]];
+  [sys export:[sys intern:@"SYMBOL-NAME"]];
+
   [sys export:[sys intern:@"OBJC-CLASS-OF"]];
   [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"]];
   [sys export:[sys intern:@"PRIMITIVE-TYPE-OF"]];
   [sys export:[sys intern:@"SEND-BY-NAME"]];
 
-- 
cgit v1.2.3