Defined function EXTRACT-INTERVAL that dispatches according to type.
Redefined COPY-STRING in terms of EXTRACT-INTERVAL.