03/10/2006: mutandiz

[allegrocl]
	    Fix bug in the generation of lisp wrappers for C interfaces.


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@9000 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Mikel Bancroft 2006-03-10 23:31:46 +00:00
commit 42edc28ca1
2 changed files with 6 additions and 1 deletions

View file

@ -2273,7 +2273,7 @@ int ALLEGROCL :: emit_defun(Node *n, File *f_cl) {
else
{
Printf(f_cl, "(swig-defun (\"%s\" \"%s\")\n", funcname,
Generate_Wrapper ? mangled_name : "");
Generate_Wrapper ? mangled_name : funcname);
}
//////////////////////////////////////