Remove some unused variables

src/c/ffi/libraries.d

@@ -284,7 +284,6 @@ cl_object
 ecl_library_open(cl_object filename, bool force_reload) {
   cl_object block;
   bool self_destruct = 0;
-  char *filename_string;
 
   /* Coerces to a file name but does not merge with cwd */
   filename = coerce_to_physical_pathname(filename);

src/c/load.d

@@ -21,7 +21,7 @@ si_load_binary(cl_object filename, cl_object verbose,
                cl_object print, cl_object external_format)
 {
   const cl_env_ptr the_env = ecl_process_env();
-  cl_object block, map, array;
+  cl_object block;
   cl_object basename;
   cl_object init_prefix, prefix;
   cl_object output;

src/c/printer/float_to_digits.d

@@ -176,7 +176,6 @@ change_precision(float_approx *approx, cl_object position, cl_object relativep)
     {
       cl_object e1 = cl_expt(PRINT_BASE, position);
       cl_object e2 = ecl_divide(e1, ecl_make_fixnum(2));
-      cl_object e3 = cl_expt(PRINT_BASE, k); 
       if (ecl_greatereq(ecl_plus(approx->r, ecl_times(approx->s, e1)),
                         ecl_times(approx->s, e2)))
         position = ecl_one_minus(position);

src/c/serialize.d

@@ -114,7 +114,7 @@ fix_to_ptr(cl_object ptr)
 static cl_object
 enqueue(pool_t pool, cl_object what)
 {
-  cl_object record, index;
+  cl_object index;
   if (ECL_FIXNUMP(what) || ECL_CHARACTERP(what) || what == OBJNULL) {
     return what;
   }

src/c/tcp.d

@@ -166,7 +166,6 @@ int
 create_server_port(int port)
 {
   struct sockaddr_in inaddr;    /* INET socket address. */
-  struct sockaddr *addr;        /* address to connect to */
   int addrlen;                  /* length of address */
   int request, conn;            /* Network socket */
 
@@ -269,7 +268,7 @@ create_server_port(int port)
 cl_object
 si_open_client_stream(cl_object host, cl_object port)
 {
-  int fd, p;                   /* file descriptor */
+  int fd;                   /* file descriptor */
   cl_object stream;
 
   /* Ensure "host" is a string that we can pass to a C function */
@@ -281,7 +280,6 @@ si_open_client_stream(cl_object host, cl_object port)
     FEwrong_type_nth_arg(@[si::open-client-stream], 2, port,
                          ecl_read_from_cstring("(INTEGER 0 65535)"));
   }
-  p = ecl_fixnum(port);
 
   if (host->base_string.fillp > BUFSIZ - 1)
     FEerror("~S is a too long file name.", 1, host);

src/c/threads/barrier.d

@@ -137,7 +137,6 @@ mp_barrier_wait(cl_object barrier)
   cl_object output;
   cl_fixnum counter;
   cl_env_ptr the_env = ecl_process_env();
-  cl_object  own_process = the_env->own_process;
 
   unlikely_if (ecl_t_of(barrier) != t_barrier) {
     FEerror_not_a_barrier(barrier);

src/c/threads/semaphore.d

@@ -125,7 +125,6 @@ cl_object
 mp_try_get_semaphore(cl_object semaphore)
 {
   cl_env_ptr env = ecl_process_env();
-  cl_object output;
   unlikely_if (ecl_t_of(semaphore) != t_semaphore) {
     FEerror_not_a_semaphore(semaphore);
   }

src/c/unixfsys.d

@@ -579,7 +579,7 @@ cl_delete_file(cl_object file)
   cl_object path = cl_pathname(file);
   int isdir = directory_pathname_p(path);
   cl_object filename = si_coerce_to_filename(path);
-  int ok, code;
+  int ok;
 
   ecl_disable_interrupts();
   ok = (isdir? rmdir : unlink)((char*)filename->base_string.self);