- #+darwin
- (:structure alien-stat
- ("struct stat"
- (mode-t mode "mode_t" "st_mode")
- (ino-t ino "ino_t" "st_ino")
- ;; Linux/MIPS uses unsigned long instead of dev_t here.
- #-mips
- (dev-t dev "dev_t" "st_dev")
- #+mips
- ((unsigned 32) dev "dev_t" "st_dev")
- (nlink-t nlink "nlink_t" "st_nlink")
- (uid-t uid "uid_t" "st_uid")
- (gid-t gid "gid_t" "st_gid")
- (off-t size "off_t" "st_size")
-
- (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")))