Signal an error if the supplied unit instance has been deleted.
Arguments and values
|unit-instance||A unit instance|
|operation|| A symbol (default is |
Create, then delete, then check, a
hyp unit instance:
> (check-for-deleted-instance (delete-instance (make-instance 'hyp))) Error: Instance #<deleted-unit-instance hyp 7> has been deleted >> :abort > (check-for-deleted-instance (delete-instance (make-instance 'hyp)) 'my-operation) Error: my-operation attempted with a deleted instance: #<deleted-unit-instance hyp 8> >>
The GBBopen Project