#! /usr/bin/env clisp
(require "linux")
(let ((pid (linux:fork)))
(cond ((= pid 0) (format t "Hello! I am children! [~A --> ~A]~%" (linux:getpid) (linux:getppid)))
((> pid 0) (progn
(linux:wait)
(format t "Hello! I am parent! [~A --> ~A]~%" (linux:getpid) (linux:getppid))))
((< pid 0) (linux:exit))))
阅读(116) | 评论(0) | 转发(0) |