fixed bug introduced by <01_fehler_fun>

[Reini U. <ru...@x-...>]

> 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!