Method code for $not_lock_frob.new_lock()

[Turn on line numbering]

---

arg lock;

if (type(lock) != 'frob)
    throw(~perm, "Argument is not a lock.");
return (<this(), [lock]>);

---

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit