lisp-load-file - filename lacks drive letter

[metaperl.com]

If I open a lisp file and then type M-x run-lisp , this creates an
inferior lisp process. When I type C-c C-l in the lisp file, Emacs
attempts to have SBCL Common Lisp for windows (not cygwin), load the
file. Although it properly changes forward slash to backward slash in
the file, it does not prepend a drive letter to the file to load.
Hence the file does not load.

<TRANSCRIPT>inferior-lisp
This is SBCL 1.0.9, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.

This is experimental prerelease support for the Windows platform: use
at your own risk.  "Your Kitten of Death awaits!"
*
debugger invoked on a SB-INT:SIMPLE-FILE-ERROR:
  "\\home\\W049945\\prg\\redick\\lisp\\util\\informatigo\\primes.lisp"
does not exist.

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT] Exit debugger, returning to top level.

(SB-FASL::INTERNAL-LOAD
 #P"\\home\\W049945\\prg\\redick\\lisp\\util\\informatigo\
\primes.lisp"
 NIL
 :ERROR
 NIL
 NIL
 NIL
 :DEFAULT)
0]

</TRANSCRIPT>

<OUTPUT>M-x report-emacs-bug

In GNU Emacs 22.1.1 (i686-pc-cygwin, X toolkit, Xaw3d scroll bars)
 of 2007-10-12 on LNOHPOL8170MC1
Windowing system distributor `The Cygwin/X Project', version
11.0.60899901
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: nil
  locale-coding-system: nil
  default-enable-multibyte-characters: t

Major mode: Dired by name

Minor modes in effect:
  global-auto-revert-mode: t
  desktop-save-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: tx

Recent input:
C-x C-b C-n C-n f C-x C-b C-n C-n C-n C-n C-n C-n f
C-x d <return> ESC x o p e n - d r <tab> <return> C-a
C-f C-f C-k t m p / l i s <tab> <return> f ESC x r
u n - l i s p <return> C-x b <return> C-c C-l <return>
<menu-bar> <buffer> "primes.lisp" <f1> k C-c C-l <switch-frame>
<down-mouse-1> <mouse-movement> <mouse-1> ESC x e m
a c s - b u <tab> <backspace> <backspace> <backspace>
<backspace> C-g <down-mouse-1> <mouse-movement> <mouse-movement>
<drag-mouse-1> ESC x r e p o <tab> <switch-frame> <down-mouse-1>
<mouse-movement> <mouse-2> ESC x r e C-g C-g <help-echo>
<down-mouse-1> <mouse-1> <return> <switch-frame> <switch-frame>
<switch-frame> ESC x r e p o <tab> <switch-frame> <down-mouse-2>
<mouse-2> <switch-frame> C-g <help-echo> <down-mouse-1>
<mouse-movement> <mouse-1> <help-echo> <switch-frame>
<help-echo> <down-mouse-1> <mouse-movement> <mouse-1>
ESC x r e p o r - t <backspace> <backspace> t - e m
a c s - b u g <return>

Recent messages:
Quit
Mark set
Making completion list...
Loading debug...done
Entering debugger...
Quit [2 times]
Entering debugger...
Making completion list...
Quit [2 times]
Loading emacsbug...done

</OUTPUT>