* Added the "unspecified" type.

git-svn-id: svn://svn.zoy.org/elk/trunk@175 55e467fa-43c5-0310-a8a2-de718669efc6

include/extern.h

@@ -448,6 +448,7 @@ extern_c Object elk_import False;
 extern_c Object elk_import Void;
 extern_c Object elk_import Newline;
 extern_c Object elk_import Eof;
+extern_c Object elk_import Unspecified;
 extern Object Intern P_((const char*));
 extern Object CI_Intern P_((const char*));
 extern Object P_Oblist P_((void));

include/object.h

@@ -122,12 +122,13 @@ typedef struct {
 #define T_Promise        16      /* Result of (delay expression) */
 #define T_Port           17
 #define T_End_Of_File    18
-#define T_Autoload       19
-#define T_Macro          20
-#define T_Broken_Heart   21      /* only used internally */
+#define T_Unspecified    19      /* only used internally */
+#define T_Autoload       20
+#define T_Macro          21
+#define T_Broken_Heart   22      /* only used internally */
 #ifdef GENERATIONAL_GC
-#  define T_Align_8Byte  22      /* only used internally */
-#  define T_Freespace    23      /* only used internally */
+#  define T_Align_8Byte  23      /* only used internally */
+#  define T_Freespace    24      /* only used internally */
 #endif
 
 #define BIGNUM(x)   ((struct S_Bignum *)POINTER(x))

src/symbol.c

@@ -48,6 +48,7 @@ Object Null,
        Void,
        Newline,
        Eof,
+       Unspecified,
        Zero,
        One;
 
@@ -59,6 +60,7 @@ void Init_Symbol () {
     SET(Unbound, T_Unbound, 0);
     SET(Special, T_Special, 0);
     SET(Eof, T_End_Of_File, 0);
+    SET(Unspecified, T_Unspecified, 0);
     Newline = Make_Char ('\n');
     Zero = Make_Integer (0);
     One = Make_Integer (1);