# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 892558328 0
# Node ID 1b0d88d6fb42efcb8dc8dfaa26610830a384a8ac
# Parent  4d5cd99a3d514324c6ecc566889aa2faf0d56856
(ccl_driver, syms_of_ccl): Fix mixing of Lisp_Object and
int.

diff -r 4d5cd99a3d51 -r 1b0d88d6fb42 src/ccl.c
--- a/src/ccl.c	Tue Apr 14 12:38:25 1998 +0000
+++ b/src/ccl.c	Tue Apr 14 12:52:08 1998 +0000
@@ -1216,7 +1216,7 @@
 		  {
 
 		    size = XVECTOR (Vccl_translation_table_vector)->size;
-		    point = ccl_prog[ic++];
+		    point = XINT (ccl_prog[ic++]);
 		    if (point >= size) continue;
 		    table = XVECTOR (Vccl_translation_table_vector)->
 		      contents[point];
@@ -1285,8 +1285,8 @@
 		table_vector_size = XVECTOR (Vccl_translation_table_vector)->size;
 		for (;i < j;i++)
 		  {
-		    point = ccl_prog[ic++];
-		    if (XINT(point) == -1)
+		    point = XINT (ccl_prog[ic++]);
+		    if (point == -1)
 		      {
 			skip_to_next = 0;
 			continue;
@@ -1723,7 +1723,7 @@
   DEFVAR_LISP ("ccl-translation-table-vector", &Vccl_translation_table_vector,
     "Where is stored translation tables for CCL program.\n\
 Because CCL program can't access these tables except by the index of the vector.");
-  Vccl_translation_table_vector = Fmake_vector (XFASTINT (16), Qnil);
+  Vccl_translation_table_vector = Fmake_vector (make_number (16), Qnil);
 
   DEFVAR_LISP ("font-ccl-encoder-alist", &Vfont_ccl_encoder_alist,
     "Alist of fontname patterns vs corresponding CCL program.\n\