From 5a35ce22df82bdaa7affa874484af8cf2256b77e Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@juanjo-imac.local>
Date: Thu, 29 Oct 2009 14:30:40 +0100
Subject: [PATCH] When creating a unified fasl, the init function name has to
 be exported outside the DLL. In cygwin this means adding ECL_DLLEXPORT to
 +lisp-program-init+.

---
 src/cmp/cmpmain.lsp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp
index 2b2ae2717..32aedbec0 100755
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -230,6 +230,7 @@ the environment variable TMPDIR to a different value." template)))
 #ifdef __cplusplus
 extern \"C\"
 #endif
+ECL_DLLEXPORT
 void ~A(cl_object cblock)
 {
 	static cl_object Cblock;