137
137
%typemap(lispclass) double "cl:double-float";
138
138
%typemap(lispclass) char * "cl:string";
140
141
%typemap(out) bool "$result = (int)$1;";
141
142
%typemap(out) char, unsigned char, signed char,
142
143
short, signed short, unsigned short,
143
144
int, signed int, unsigned int,
144
145
long, signed long, unsigned long,
145
float, double, long double, char *, void *, void,
146
float, double, long double, char *, void *,
146
147
enum SWIGTYPE, SWIGTYPE *,
147
148
SWIGTYPE[ANY], SWIGTYPE & "$result = $1;";