From 3a5710bf7cb85da4ba6a327d6149db46e6bed82e Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Thu, 28 Aug 2008 16:26:07 +0200
Subject: Eliminate MLKStream, introduce MLKBinaryStream and
 MLKCharacterStream.

---
 special-symbols.h | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'special-symbols.h')

diff --git a/special-symbols.h b/special-symbols.h
index d0f93b0..752e1e9 100644
--- a/special-symbols.h
+++ b/special-symbols.h
@@ -61,6 +61,12 @@ static MLKSymbol *INLINE;
 static MLKSymbol *NOTINLINE;
 static MLKSymbol *SPECIAL;
 static MLKSymbol *LEXICAL;
+static MLKSymbol *QUERY_IO;
+static MLKSymbol *ERROR_OUTPUT;
+static MLKSymbol *STANDARD_OUTPUT;
+static MLKSymbol *TERMINAL_IO;
+static MLKSymbol *TRACE_OUTPUT;
+static MLKSymbol *DEBUG_IO;
 
 
 static void
@@ -106,6 +112,13 @@ ensure_symbols ()
   SPECIAL = [cl intern:@"INLINE"];
   LEXICAL = [sys intern:@"NOTINLINE"];
 
+  QUERY_IO = [cl intern:@"*QUERY-IO*"];
+  ERROR_OUTPUT = [cl intern:@"*ERROR-OUTPUT*"];
+  STANDARD_OUTPUT = [cl intern:@"*STANDARD-OUTPUT*"];
+  TERMINAL_IO = [cl intern:@"*TERMINAL-IO*"];
+  TRACE_OUTPUT = [cl intern:@"*TRACE-OUTPUT*"];
+  DEBUG_IO = [cl intern:@"*DEBUG-IO*"];
+
   COMPILE_TOPLEVEL = [keyword intern:@"COMPILE-TOPLEVEL"];
   COMPILE = [cl intern:@"COMPILE"];
   LOAD_TOPLEVEL = [keyword intern:@"LOAD-TOPLEVEL"];
-- 
cgit v1.2.3