5 lines
221 B
Common Lisp
5 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."))))
|