[Openmcl-cvs-notifications] r10108 - /trunk/source/lib/foreign-types.lisp

[gb at clozure.com]

Author: gb
Date: Fri Jul 18 16:59:28 2008
New Revision: 10108

Log:
Foreign-type-ordinal stuff for Solaris %GET-IP-INTERFACES.


Modified:
    trunk/source/lib/foreign-types.lisp

Modified: trunk/source/lib/foreign-types.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/foreign-types.lisp (original)
+++ trunk/source/lib/foreign-types.lisp Fri Jul 18 16:59:28 2008
@@ -1699,7 +1699,11 @@
       (canonicalize-foreign-type-ordinal '(:* (:struct :hostent)))
       (canonicalize-foreign-type-ordinal '(:array :int 2))
       (canonicalize-foreign-type-ordinal '(:array (:struct :pollfd) 1))
-      (canonicalize-foreign-type-ordinal '(:struct :dirent)))))
+      (canonicalize-foreign-type-ordinal '(:struct :dirent))
+      (canonicalize-foreign-type-ordinal #+solaris-target '(:struct :flock=
) #-solaris-target nil)
+      (canonicalize-foreign-type-ordinal #+solaris-target '(:struct :lifnu=
m) #-solaris-target nil)
+      (canonicalize-foreign-type-ordinal #+solaris-target '(:struct :lifco=
nf) #-solaris-target nil)
+      )))
 =

 (defun install-standard-foreign-types (ftd)
   (let* ((*target-ftd* ftd)