Each OpenDevice() must eventually be matched by a call to
CloseDevice().

    CloseDevice(ClipIO);

When the last task closes a clipboard unit with CloseDevice(), the
contents of the unit may be copied to a disk file in CLIPS: so that the
clipboard device can be expunged.