From: Reini U. <ru...@x-...> - 2007-12-04 21:04:54
|
> Modified Files: > foreign.d > Log Message: > fixed bug introduced by <01_fehler_fun> > > > Index: foreign.d > =================================================================== > RCS file: /cvsroot/clisp/clisp/src/foreign.d,v > retrieving revision 1.169 > retrieving revision 1.170 > diff -u -d -r1.169 -r1.170 > --- foreign.d 4 Dec 2007 15:47:04 -0000 1.169 > +++ foreign.d 4 Dec 2007 18:12:45 -0000 1.170 > @@ -4162,9 +4162,9 @@ > /* return the string object for dlerror() value */ > local object dlerror_string (void) > { > - var const char* error; > - begin_system_call(); error = dlerror(); end_system_call(); > - return error == NULL ? NIL : asciz_to_string(error_condition,O(misc_encoding)); > + var const char* errmesg; > + begin_system_call(); errmesg = dlerror(); end_system_call(); > + return error == NULL ? NIL : asciz_to_string(errmesg,O(misc_encoding)); > } > #endif Oops, thanks! |