Returns the name of a lock.
lock-name lock => name
The function lock-name returns the name of lock, which was either passed as the name argument to make-lock or defaulted.
(let ((lock (mp:make-lock :name "my lock")))
=> "my lock"
LispWorks User Guide and Reference Manual - 20 Sep 2017