-#define SCM_UNBNDP(x) (SCM_EQ_P ((x), SCM_UNDEFINED))
-
-
-/* Short instructions ('special symbols'), long instructions ('immediate
- * symbols'). The indices of the SCM_IM_ symbols must agree with the
- * declarations in print.c: scm_isymnames. */
-
-#define SCM_MAKSPCSYM(n) SCM_PACK (((n) << 9) + ((n) << 3) + 4L)
-#define SCM_MAKISYM(n) SCM_PACK (((n) << 9) + 0x6cL)
-
-/* SCM_ISYMP tests for ISPCSYM and ISYM */
-#define SCM_ISYMP(n) ((0x187 & SCM_UNPACK (n)) == 4)
-#define SCM_ISYMNUM(n) (SCM_UNPACK (n) >> 9)
-SCM_API char *scm_isymnames[]; /* defined in print.c */
-#define SCM_ISYMCHARS(n) (scm_isymnames[SCM_ISYMNUM (n)])
-
-/* Evaluator bytecodes (short instructions): These are uniquely identified by
- * their tc7 value. This makes it possible for the evaluator to dispatch on
- * them in one step. However, the type system allows for at most 13 short
- * instructions. Consequently, the most frequent instructions are chosen to
- * be represented as short instructions. These constants are used only in
- * eval but their values have to be allocated here. */
-
-#define SCM_IM_AND SCM_MAKSPCSYM (0)
-#define SCM_IM_BEGIN SCM_MAKSPCSYM (1)
-#define SCM_IM_CASE SCM_MAKSPCSYM (2)
-#define SCM_IM_COND SCM_MAKSPCSYM (3)
-#define SCM_IM_DO SCM_MAKSPCSYM (4)
-#define SCM_IM_IF SCM_MAKSPCSYM (5)
-#define SCM_IM_LAMBDA SCM_MAKSPCSYM (6)
-#define SCM_IM_LET SCM_MAKSPCSYM (7)
-#define SCM_IM_LETSTAR SCM_MAKSPCSYM (8)
-#define SCM_IM_LETREC SCM_MAKSPCSYM (9)
-#define SCM_IM_OR SCM_MAKSPCSYM (10)
-#define SCM_IM_QUOTE SCM_MAKSPCSYM (11)
-#define SCM_IM_SET_X SCM_MAKSPCSYM (12)
-
-
-/* Evaluator bytecodes (long instructions): All these share a common tc7
- * value. Thus, the evaluator needs to dispatch on them in two steps. These
- * constants are used only in eval but their values have to be allocated
- * here. */
-
-/* Evaluator bytecode for (define ...) statements. We make it a long
- * instruction since the evaluator will see this bytecode only for a very
- * limited number of times, namely once for every top-level and internal
- * definition: Top-level definitions are only executed once and internal
- * definitions are converted to letrec expressions. */
-#define SCM_IM_DEFINE SCM_MAKISYM (13)