Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/contrib/sb-posix
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv6526/contrib/sb-posix

Modified Files:
	constants.lisp posix-tests.lisp 
Log Message:
1.0.4.2: really commit darwin sb-posix fixes
 * see commit log message for 1.0.4.1. the sb-posix files didn't get
   properly committed.
 * in short, revert sb-posix st_atime, st_mtime, and st_ctime behavior
   to the way it was before I tried to fix things for the
   x86-64/darwin port.


Index: constants.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-posix/constants.lisp,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- constants.lisp	3 Mar 2007 20:19:26 -0000	1.31
+++ constants.lisp	26 Mar 2007 02:23:06 -0000	1.32
@@ -318,9 +318,14 @@
               (uid-t uid "uid_t" "st_uid")
               (gid-t gid "gid_t" "st_gid")
               (off-t size "off_t" "st_size")
-              (alien-timespec atime "struct timespec" "st_atime")
-              (alien-timespec mtime "struct timespec" "st_mtime")
-              (alien-timespec ctime "struct timespec" "st_ctime")))
+
+              (time-t atime "time_t" "st_atime")
+              (time-t mtime "time_t" "st_mtime")
+              (time-t ctime "time_t" "st_ctime")
+
+              #+foo (alien-timespec atime "struct timespec" "st_atime")
+              #+foo (alien-timespec mtime "struct timespec" "st_mtime")
+              #+foo (alien-timespec ctime "struct timespec" "st_ctime")))
 
  ;; open()
  (:integer o-rdonly "O_RDONLY" nil t)

Index: posix-tests.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-posix/posix-tests.lisp,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- posix-tests.lisp	3 Mar 2007 00:42:02 -0000	1.27
+++ posix-tests.lisp	26 Mar 2007 02:23:07 -0000	1.28
@@ -235,8 +235,7 @@
          ;; FIXME: (encode-universal-time 00 00 00 01 01 1970)
          (unix-now (- now 2208988800))
          (stat (sb-posix:stat *test-directory*))
-         #+darwin (atime (sb-alien:slot (sb-posix:stat-atime stat) 'sb-posix::tv-sec))
-         #-darwin (atime (sb-posix::stat-atime stat)))
+         (atime (sb-posix::stat-atime stat)))
     ;; FIXME: breaks if mounted noatime :-(
     #+nil (< (- atime unix-now) 10)
     (< (- atime unix-now) 10))
@@ -490,27 +489,7 @@
     (plusp (sb-posix:time))
   t)
 
-;;; CLH: FIXME! For darwin atime and mtime return a timespec. This
-;;; _should_ work, but it doesn't. For some reason mtime is always
-;;; 0. Comment the mtime test out for the moment.
-#+darwin
-(deftest utime.1
-    (let ((file (merge-pathnames #p"utime.1" *test-directory*))
-          (atime (random (1- (expt 2 31))))
-          (mtime (random (1- (expt 2 31)))))
-      (with-open-file (stream file
-                       :direction :output
-                       :if-exists :supersede
-                       :if-does-not-exist :create)
-        (princ "Hello, utime" stream))
-      (sb-posix:utime file atime mtime)
-      (let* ((stat (sb-posix:stat file)))
-        (delete-file file)
-        (list (= (sb-alien:slot (sb-posix:stat-atime stat) 'sb-posix::tv-sec) atime)
-              #+nil (= (sb-alien:slot (sb-posix:stat-mtime stat) 'sb-posix::tv-sec) mtime))))
-  (t #+nil t))
-
-#-(or win32 darwin)
+#-win32
 (deftest utimes.1
     (let ((file (merge-pathnames #p"utimes.1" *test-directory*))
           (atime (random (1- (expt 2 31))))