Ignore:
Timestamp:
Nov 20, 2011, 11:35:44 AM (8 years ago)
Author:
gb
Message:

%%STAT-VALUES returns stat.st_dev. (I haven't checked to see
if it's called by any other name on non-Linux systems.)

DIRECTORY treats links to directories as directories when :FOLLOW-LINKS
is T (as it is by default.) The :DIRECTORIES argument now defaults to T.
AFAICT, fixes ticket:891.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/linux-files.lisp

    r15012 r15083  
    363363       #-(or linux-target solaris-target)
    364364       (round (pref stat :stat.st_mtimespec.tv_nsec) 1000)
    365        (pref stat :stat.st_gid))
    366       (values nil nil nil nil nil nil nil)))
     365       (pref stat :stat.st_gid)
     366       (pref stat :stat.st_dev))
     367      (values nil nil nil nil nil nil nil nil nil nil)))
    367368
    368369#+win64-target
     
    378379       #$BUFSIZ
    379380       (pref stat :_stat64.st_mtime)     ; ???
    380        (pref stat :_stat64.st_gid))
    381       (values nil nil nil nil nil nil nil nil nil)))
     381       (pref stat :_stat64.st_gid)
     382       (pref stat :_stat64.st_dev))
     383      (values nil nil nil nil nil nil nil nil nil nil)))
    382384
    383385#+win32-target
     
    393395       #$BUFSIZ
    394396       (pref stat :__stat64.st_mtime)     ; ???
    395        (pref stat :__stat64.st_gid))
    396       (values nil nil nil nil nil nil nil nil nil)))
     397       (pref stat :__stat64.st_gid)
     398       (pref stat :__stat64.st_dev))
     399      (values nil nil nil nil nil nil nil nil nil nil)))
    397400
    398401#+windows-target
     
    480483             ;; to get here.  try to distinguish between pipes and
    481484             ;; sockets by calling #_getsockopt.  If that succeeds,
    482              ;; we've got a socket; otherwise, we're probably got a pipe.
     485             ;; we've got a socket; otherwise, we've probably got a pipe.
    483486             #+windows-target (rlet ((ptype :int)
    484487                                     (plen :int 4))
Note: See TracChangeset for help on using the changeset viewer.