From fef7bcfeef16cdc48ce9ac4cdbb1bdbaef893e89 Mon Sep 17 00:00:00 2001
From: Surendra Singhi <efuzzyone@netscape.net>
Date: Tue, 27 Dec 2005 00:20:23 +0000
Subject: [PATCH] Applied the patch by Roger Sen Montero to add the :name
 option in the ffi:def-c-var definition.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@8074 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 SWIG/Source/Modules/clisp.cxx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SWIG/Source/Modules/clisp.cxx b/SWIG/Source/Modules/clisp.cxx
index 3db69659b..e83d959aa 100644
--- a/SWIG/Source/Modules/clisp.cxx
+++ b/SWIG/Source/Modules/clisp.cxx
@@ -221,7 +221,7 @@ int CLISP :: variableWrapper(Node *n) {
 
   String *var_name=Getattr(n, "sym:name");
   String *lisp_type=get_ffi_type(Getattr(n, "type"));
-  Printf(f_cl,"\n(ffi:def-c-var %s\n (:type %s)\n",var_name,lisp_type);
+  Printf(f_cl,"\n(ffi:def-c-var %s\n (:name \"%s\")\n (:type %s)\n",var_name,var_name,lisp_type);
   Printf(f_cl, "\t(:library +library-name+))\n");
   Append(entries,var_name);