(defun backslash-to-slash-in-quoted-path (path)
    (let ((from (string-match "\"[a-z0-9./-\\]+\"" path))
          (to (match-end 0)))
      (if from
          (while (< from to)
            (if (char-equal (aref path from) ?\\)
                (aset path from ?/))
            (setq from (1+ from))))
      (message path)
      (message "I'm in backslash-to-slash-in-quoted-path")
      path))

(defun start-lisp ()
  (interactive)
  (if (null (get-buffer-process (get-buffer "*inferior-lisp*")))
      (progn 
        (w32-shell-execute "open" "C:/dev/corman/clnetconsole.exe" 1)
        (sleep-for 1)))
  (inferior-lisp '("localhost" . 90)))

(add-hook 'comint-input-filter-functions 'backslash-to-slash-in-quoted-path)