Changeset 10067


Ignore:
Timestamp:
Jul 17, 2008, 1:19:59 PM (11 years ago)
Author:
gb
Message:

GET-USER-HOME-DIR: Solaris backward-compatibility lossage.

File:
1 edited

Legend:

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

    r10053 r10067  
    584584         ()
    585585      (%stack-block ((buf buflen))
    586         (let* ((err (#_getpwuid_r userid pwd buf buflen result)))
     586        (let* ((err
     587                #-solaris-target
     588                 (#_getpwuid_r userid pwd buf buflen result)
     589                 #+solaris-target
     590                 (external-call "__posix_getpwuid_r"
     591                                :uid_t userid
     592                                :address pwd
     593                                :address buf
     594                                :int buflen
     595                                :address result
     596                                :int)))
    587597          (if (eql 0 err)
    588598            (return (get-foreign-namestring (pref pwd :passwd.pw_dir)))
Note: See TracChangeset for help on using the changeset viewer.