From 00892c756944eafa87547e945fe839307d7ec889 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Sat, 28 Mar 2009 23:06:27 +0100
Subject: [PATCH] In wt-call, coerce directly to cl_object so that C++ compiler
 dos not complain.

---
 src/cmp/cmpcall.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cmp/cmpcall.lsp b/src/cmp/cmpcall.lsp
index 8b952f81b..fc7698c10 100644
--- a/src/cmp/cmpcall.lsp
+++ b/src/cmp/cmpcall.lsp
@@ -227,7 +227,7 @@
   (if env
       (progn
         (setf *aux-closure* t)
-        (wt "(aux_closure.env="env",cl_env_copy->function=(void*)&aux_closure,")
+        (wt "(aux_closure.env="env",cl_env_copy->function=(cl_object)&aux_closure,")
         (wt-call fun args)
         (wt ")"))
       (progn