+
+
+
+ #+mach-exception-handler
+ (progn
+ ;; FIXME this is a lie, of course this can fail, but there's no
+ ;; error handling here yet!
+ (define-call "setup_mach_exceptions" void never-fails)
+ (define-call ("posix_fork" :c-name "fork") pid-t minusp)
+ (defun fork ()
+ (let ((pid (posix-fork)))
+ (when (= pid 0)
+ (setup-mach-exceptions))
+ pid))
+ (export 'fork :sb-posix))
+
+ #-mach-exception-handler