From 177e661ff04a806fdad8474b7bafaa446bc17562 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Sat, 19 Nov 2016 11:19:05 +0100
Subject: [PATCH] Get rid of a warning (cast pointer to integer)

---
 src/c/unixfsys.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/unixfsys.d b/src/c/unixfsys.d
index 5bb786b22..ced76ea6f 100644
--- a/src/c/unixfsys.d
+++ b/src/c/unixfsys.d
@@ -241,7 +241,7 @@ si_readlink(cl_object filename) {
     ecl_enable_interrupts();
     size += 256;
   } while (written == size-256);
-  if ((written + 2) > output->base_string.self) {
+  if ((written + 2) > (cl_index)(output->base_string.self)) {
     /* Too small to host the trailing '/' and '\0' */
     cl_object other = ecl_alloc_adjustable_base_string(written+2);
     strcpy((char*)other->base_string.self, (char*)output->base_string.self);