[ cl-cookbook-Bugs-848235 ] XEmacs/ilisp on windows, setup problem

Bugs item #848235, was opened at 2003-11-24 20:04
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=447472&aid=848235&group_id=46815

Category: None
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: d2003xx (d2003xx)
Assigned to: Nobody/Anonymous (nobody)
Summary: XEmacs/ilisp on windows, setup problem

Initial Comment:
(sorry if I post to wrong place)

[XEmacs v21.4.14, ilisp v5.12.0, windows-xp]

1.Corman Lisp needs a hack to avoid hanging in 
ilisp:

Open the file "C:\Program Files\Corman....\init.lisp", 
then remove or comment out this line (#3):

(setf (current-directory) *cormanlisp-directory*)



2.The path problem, "\" is trimmed when ilisp sends 
commands containing filenames to clisp and 
cormanlisp. ex: "c:\lisp\a.lisp" becomes "c:lispa.lisp" 
in clisp/cormanlisp intepreter.

Solution: add followings in ~/.xemacs/init.el

(defun my-ilisp-file-name-hack (file-name)
  "Strip ange-ftp and cygwin pathnames prefixes for 
the native local lisp, AND CHANGE \ to /"
  (cond ((string-match "/.*?@.*:" file-name)
         (substring file-name (match-end 0)))
        ((not (eq system-type 'cygwin32)) file-name) ; 
verified on XEmacs
        ;; assume cygwin clisp on cygwin (X)Emacs
        ((eq ilisp-dialect 'clisp-hs) file-name)
        ;; => w32 path for non-cygwin lisps only.
        ((string-equal "/cygdrive/" (subseq file-name 0 
10))
         (concat (subseq file-name 10 11) ":" (subseq 
file-name 11)))
        (t file-name))
  (while (string-match "\\" file-name)
    (setq file-name (replace-match "/" t nil file-name)))
  file-name)

(defun my-ilisp-load-setup ()
  (fset 'file-name-hack 'my-ilisp-file-name-hack))

(add-hook 'ilisp-load-hook 'my-ilisp-load-setup)


----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=447472&aid=848235&group_id=46815


-------------------------------------------------------
This SF.net email is sponsored by: SF.net Giveback Program.
Does SourceForge.net help you be more productive?  Does it
help you create better code?  SHARE THE LOVE, and help us help
YOU!  Click Here: http://sourceforge.net/donate/