From dc2ec73e0293f926d97c472dc86eab7adcaa9c2c Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Mon, 7 Jul 2008 20:22:52 +0200
Subject: Reader: Support uninterned symbols.

---
 MLKReader.m | 40 +++++++++++++++++++++++++++-------------
 1 file changed, 27 insertions(+), 13 deletions(-)

(limited to 'MLKReader.m')

diff --git a/MLKReader.m b/MLKReader.m
index 282db60..7343c64 100644
--- a/MLKReader.m
+++ b/MLKReader.m
@@ -448,13 +448,19 @@
         }
       else
         {
-          package = [MLKPackage
-                      findPackage:[token substringToIndex:packageMarker]];
+          NSString *packageName = [token substringToIndex:packageMarker];
 
-          if (!package)
-            [NSException raise:@"MLKReaderError"
-                         format:@"Can't find package %@.",
-                         [token substringToIndex:packageMarker]];
+          if ([packageName isEqualToString:@"#"])
+            package = nil;
+          else
+            {
+              package = [MLKPackage findPackage:packageName];
+
+              if (!package)
+                [NSException raise:@"MLKReaderError"
+                             format:@"Can't find package %@.",
+                             [token substringToIndex:packageMarker]];
+            }
 
           if ([readtable isPackageMarker:[token characterAtIndex:(i+1)]])
             symbolName = [token substringFromIndex:(packageMarker+2)];
@@ -463,16 +469,24 @@
               // A single package marker means we have to check whether
               // the symbol is external in the package.
               symbolName = [token substringFromIndex:(packageMarker+1)];
-              symbol = [package intern:symbolName];
-              if (![[package exportedSymbols] containsObject:symbol])
-                [NSException raise:@"MLKReaderError"
-                             format:@"Package %@ does not export symbol %@.",
-                                    [package name], [symbol descriptionForLisp]];
+
+              if (package)
+                {
+                  symbol = [package intern:symbolName];
+                  if (![[package exportedSymbols] containsObject:symbol])
+                    [NSException raise:@"MLKReaderError"
+                                 format:@"Package %@ does not export symbol %@.",
+                                        [package name],
+                                        [symbol descriptionForLisp]];
+                }
             }
         }
 
-      symbol = [package intern:symbolName];
-      
+      if (package)
+        symbol = [package intern:symbolName];
+      else
+        symbol = [MLKSymbol symbolWithName:symbolName package:nil];
+
       if (packageMarker == 0)
         {
           // Make keyword symbols self-evaluate.
-- 
cgit v1.2.3