version 4/080915 by Mikael Segercrantz
Section 2a17 - Before going port-quarter (for use with Shipboard Directions by Mikael Segercrantz)
Before going port-quarter:
let table-of-exits be exits port-quarter of the location;
if the number of filled rows in table-of-exits is 0, continue the action;
modify the port-quarter exit of the location according to table-of-exits.