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

[gb at clozure.com]

Author: gb
Date: Fri Sep 12 02:00:36 2008
New Revision: 10713

Log:
:timeval is used on Windows, not Unix-specific (so far ...).

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 Sep 12 02:00:36 2008
@@ -1687,7 +1687,6 @@
 #-windows-target
 (defparameter *canonical-os-foreign-types*
   '((:struct :timespec)
-    (:struct :timeval)
     (:struct :stat)
     (:struct :passwd)
     #>Dl_info
@@ -1736,6 +1735,7 @@
       (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 :timeval))
       (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)