6 lines
221 B
Common Lisp
6 lines
221 B
Common Lisp
|
(let ((pid (sb-posix:fork)))
|
||
|
|
(cond
|
||
|
|
((zerop pid) (write-line "This is the new process."))
|
||
|
|
((plusp pid) (write-line "This is the original process."))
|
||
|
|
(t (error "Something went wrong while forking."))))
|