#44 compile directories created on wrong device

[Aneil Mallavarapu]

Directories created by compile-file-operation, ignore
the pathname-device component. This is a problem on
some Lisps (e.g., Win32 CLisp), which store meaningful
information in the device component.

In the attached file, I have changed the code in
compile-file-operation:

from
(ensure-directories-exist
(make-pathname
:host (pathname-host output-file)
:directory (pathname-directory output-file)))

to:
(ensure-directories-exist
(make-pathname
:device (pathname-device output-file)
:host (pathname-host output-file)
:directory (pathname-directory output-file)))

[Aneil Mallavarapu]

compile-file-operation ignores pathname-device bugfix