From: Cyrus Harmon <ch-sbcl@bobobeach.com>
Date: Sat, 3 Mar 2007 20:19:26 +0000 (+0000)
Subject: 1.0.3.24: remove win32 alien-timeval
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=2815ede476070aaebcf724e6e117f333a8e53b53;p=sbcl.git

1.0.3.24: remove win32 alien-timeval
 * remove alien-timeval struct defintion
 * make define-protocol-class timeval be #-win32
---

diff --git a/contrib/sb-posix/constants.lisp b/contrib/sb-posix/constants.lisp
index a8ac3b0..bae76f4 100644
--- a/contrib/sb-posix/constants.lisp
+++ b/contrib/sb-posix/constants.lisp
@@ -391,12 +391,6 @@
               (time-t sec "time_t" "tv_sec")
               (suseconds-t usec "suseconds_t" "tv_usec")))
 
- #+win32
- (:structure alien-timeval
-             ("struct timeval"
-              (time-t sec "time_t" "tv_sec")
-              (long usec "long" "tv_usec")))
-
  (:integer veof "VEOF" nil t)
  (:integer veol "VEOL" nil t)
  (:integer verase "VERASE" nil t)
diff --git a/contrib/sb-posix/interface.lisp b/contrib/sb-posix/interface.lisp
index 8c2cac3..07ac6f5 100644
--- a/contrib/sb-posix/interface.lisp
+++ b/contrib/sb-posix/interface.lisp
@@ -359,6 +359,7 @@
 (define-pw-call "getpwnam" login-name (function (* alien-passwd) c-string))
 (define-pw-call "getpwuid" uid (function (* alien-passwd) uid-t))
 
+#-win32
 (define-protocol-class timeval alien-timeval ()
   ((sec :initarg :tv-sec :accessor timeval-sec)
    (usec :initarg :tv-usec :accessor timeval-usec)))
diff --git a/version.lisp-expr b/version.lisp-expr
index 0acbbaf..7f3f2b3 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.3.23"
+"1.0.3.24"