* DESTROY-PORT :BEFORE (BASIC-PORT): check whether PORT-EVENT-PROCESS   exists.
* DESTROY-PORT :BEFORE (BASIC-PORT): check whether PORT-EVENT-PROCESS
  exists.

quek/mcclim,informatimago/mcclim,quek/mcclim,informatimago/mcclim