<COND (<FSET? ,PRSO ,OPENBIT>
<TELL "You'll have to close it first." CR>)
(<FSET? ,PRSO ,LOCKED>
<TELL "It's already locked." CR>)
(<FSET? ,PRSO ,RMUNGBIT>
<TELL "You can't lock it. The lock is broken." CR>)
(T
<FSET ,PRSO ,LOCKED>
<TELL
"Okeh," THE-PRSO " is now locked." CR>)>)
Perhaps it, too, should check for SURFACEBIT and CAPACITY?
V-CLOSE
checks this to see if an object can be closed:V-LOCK
checks this:Perhaps it, too, should check for
SURFACEBIT
andCAPACITY
?