anchor.diff:  ;;; File Descriptors
   ;;;-------------------------------------------------------------------------
   
  -(defsyscall ("close" %sys-close) :int
  +(defsyscall (%sys-close "close") :int
     "Close an open file descriptor."
     (fd :int))
   
  -(defsyscall ("dup" %sys-dup) :int
  +(defsyscall (%sys-dup "dup") :int
     (fildes :int))
   
  -(defsyscall* ("dup2" %sys-dup2) :int
  +(defsyscall* (%sys-dup2 "dup2") :int
     (fildes1 :int)
     (fildes2 :int))
   
  -(defsyscall* ("ioctl" %sys-ioctl/2) :int
  +(defsyscall* (%sys-ioctl/2 "ioctl") :int
     (fd      :int)
     (request :int))
   
  -(defsyscall* ("ioctl" %sys-ioctl/3) :int
  +(defsyscall* (%sys-ioctl/3 "ioctl") :int
    (fd      :int)
    (request :int)
    (arg     :pointer))
  
positive.code: (defentrypoint %sys-bzero (buffer length)
    (%sys-memset buffer 0 length))
  
  (defcfun* ("memcpy" %sys-memcpy) :pointer
    (dest   :pointer)
    (src    :pointer)
    (length size-t))
  
  (defcfun* ("memmove" %sys-memmove) :pointer
    (dest   :pointer)
    (src    :pointer)
    (length size-t))
  
negative.code: ;;; Process creation and info
  ;;;-------------------------------------------------------------------------
  
  (defsyscall (%sys-fork "fork") pid-t
    "Create a child process.")
  
  (defsyscall (%sys-getpid "getpid") pid-t
    "Returns the process id of the current process")
  
  (defsyscall (%sys-getppid "getppid") pid-t
    "Returns the process id of the current process's parent")
  
  (defsyscall (%sys-getuid "getuid") uid-t
    "Get real user id of the current process.")
  
  (defsyscall (%sys-setuid "setuid") :int
    "Set real user id of the current process."
    (uid uid-t))
  
  (defsyscall (%sys-geteuid "geteuid") uid-t
    "Get effective user id of the current process.")
  
  (defsyscall (%sys-seteuid "seteuid") :int
    "Set effective user id of the current process."
    (uid uid-t))
  
  (defsyscall (%sys-getgid "getgid") gid-t
    "Get real group id of the current process.")
  
  (defsyscall (%sys-setgid "setgid") :int
    "Set real group id of the current process."
    (gid gid-t))
  
  (defsyscall (%sys-getegid "getegid") gid-t
    "Get effective group id of the current process.")
  
  (defsyscall (%sys-setegid "setegid") :int
    "Set effective group id of the current process."
    (gid gid-t))
  
  (defsyscall (%sys-setreuid "setreuid") :int
    "Set real and effective user id of the current process."
    (ruid uid-t)
    (euid uid-t))
  
  (defsyscall (%sys-setregid "setregid") :int
    "Set real and effective group id of the current process."
    (rgid gid-t)
    (egid gid-t))
  
  (defsyscall (%sys-getpgid "getpgid") pid-t
    "Get process group id of a process."
    (pid pid-t))
  
  (defsyscall (%sys-setpgid "setpgid") :int
    "Set process group id of a process."
    (pid  pid-t)
    (pgid pid-t))
  
  (defsyscall (%sys-getpgrp "getpgrp") pid-t
    "Get process group id of the current process.")
  
  (defsyscall (%sys-setpgrp "setpgrp") pid-t
    "Set process group id of the current process.")
  
  (defsyscall (%sys-setsid "setsid") pid-t
    "Create session and set process group id of the current process.")
  
  (defentrypoint %sys-getrlimit (resource)
  