X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-posix%2Fconstants.lisp;h=5b4f65b4fd2fe330fbea9f81ae30415b20ecf7f9;hb=a42922aef908a1b45ae5420d51b2ca7ee1bafb9e;hp=3c753ff6bbce2cc97aaf49b89c1b6c04004a8e6d;hpb=84ccdc996625fc5f9ded798146c38bc4a5002b27;p=sbcl.git

diff --git a/contrib/sb-posix/constants.lisp b/contrib/sb-posix/constants.lisp
index 3c753ff..5b4f65b 100644
--- a/contrib/sb-posix/constants.lisp
+++ b/contrib/sb-posix/constants.lisp
@@ -21,6 +21,7 @@
  "errno.h"
  "dirent.h" "signal.h"
  #-win32 "pwd.h"
+ #-win32 "grp.h"
  "unistd.h"
  #-win32 "termios.h"
  #-win32 "syslog.h")
@@ -290,6 +291,14 @@
               #+nil
               (:integer fields "int" "pw_fields")))
 
+ ;; group database
+ #-win32
+ (:structure alien-group
+             ("struct group"
+              (c-string-pointer name "char *" "gr_name")
+              (c-string-pointer passwd "char *" "gr_passwd")
+              (gid-t gid "gid_t" "gr_gid")))
+
  (:structure alien-stat
              ("struct stat"
               (mode-t mode "mode_t" "st_mode")