From 6b5525bcbbe18e9289d1b391497da8cfe2d04d06 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Sat, 10 Sep 2011 13:14:17 +0200
Subject: Add a couple of debugging statements, update build configuration, fix
 some minor bugs.

---
 MLKReader.m | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'MLKReader.m')

diff --git a/MLKReader.m b/MLKReader.m
index 66826d9..2af2c2b 100644
--- a/MLKReader.m
+++ b/MLKReader.m
@@ -155,6 +155,7 @@ readingUninternedSymbol:(BOOL)readingUninternedSymbol
           (escaped && (![readtable isMultipleEscapeCharacter:ch]
                        && ![readtable isSingleEscapeCharacter:ch])))
         {
+          //NSLog (@"Constituent: 0x%x (%C)", ch, ch);
           if (escaped)
             [token appendFormat:@"%C", ch];
           else
@@ -162,6 +163,7 @@ readingUninternedSymbol:(BOOL)readingUninternedSymbol
         }
       else if ([readtable isSingleEscapeCharacter:ch])
         {
+          //NSLog (@"Escape");
           if ([stream isEOF])
             [NSException raise:@"MLKEndOfFileError"
                          format:@"Premature end of file on stream %@.", stream];
@@ -171,11 +173,13 @@ readingUninternedSymbol:(BOOL)readingUninternedSymbol
         }
       else if ([readtable isMultipleEscapeCharacter:ch])
         {
+          //NSLog (@"Multi-Escape");
           ever_escaped = YES;
           escaped = !escaped;
         }
       else if ([readtable isTerminatingMacroCharacter:ch])
         {
+          //NSLog (@"Terminating macro char");
           [stream unreadChar:ch];
           break;
         }
@@ -188,10 +192,16 @@ readingUninternedSymbol:(BOOL)readingUninternedSymbol
         }
       else if ([readtable isWhitespaceCharacter:ch])
         {
+          //NSLog (@"Whitespace");
           if (preserveWhitespace)
             [stream unreadChar:ch];
           break;
         }
+      else {
+        [NSException raise:@"MLKReaderError"
+                     format:@"'%c' is an unrecognized character.", ch];
+      }
+      //NSLog(@"Token now: %@", token);
     }
 
   //NSLog (@"--> Interpret token: %@", token);
@@ -271,6 +281,8 @@ readingUninternedSymbol:(BOOL)readingUninternedSymbol
              escaped:(BOOL)escaped
 {
   int base;
+    
+  //NSLog(@"Interpreting token: %@", token);
 
   base = [[[MLKDynamicContext currentContext]
             valueForSymbol:[[MLKPackage findPackage:@"COMMON-LISP"]
-- 
cgit v1.2.3