The function make-semaphore
returns a new semaphore for use with semaphore-acquire and semaphore-release. The unit count is initialized to count, which defaults to 1. If name is supplied, the semaphore will have that name. If name is not supplied, the semaphore will be given a unique anonymous name.
LispWorks User Guide and Reference Manual - 13 Feb 2015