Author: hhubner Date: 2006-10-23 01:00:44 -0400 (Mon, 23 Oct 2006) New Revision: 2031 Modified: branches/xml-class-rework/thirdparty/iconv/iconv.lisp Log: modified for different errno handling in cmucl19c Modified: branches/xml-class-rework/thirdparty/iconv/iconv.lisp =================================================================== --- branches/xml-class-rework/thirdparty/iconv/iconv.lisp 2006-10-22 17:18:39 UTC (rev 2030) +++ branches/xml-class-rework/thirdparty/iconv/iconv.lisp 2006-10-23 05:00:44 UTC (rev 2031) @@ -12,13 +12,15 @@ (cffi-uffi-compat:load-foreign-library "/usr/lib/libc.so") (cffi-uffi-compat:load-foreign-library "/usr/local/lib/libiconv.so") -#-:sbcl +#-sbcl (cffi-uffi-compat:def-foreign-var ("errno" errno) :int "iconv") (defun get-errno () - #-:sbcl + #-(or sbcl cmu19c) errno - #+:sbcl + #+cmu19c + (unix:unix-errno) + #+sbcl (sb-alien:get-errno) )