[bknr-cvs] r2031 - branches/xml-class-rework/thirdparty/iconv

[bknr at bknr.net]

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