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

Bugs item #848235, was opened at 2003-11-24 13:04
Message generated for change (Settings changed) made by nhabedi
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: Bill Clementson (bill_clementson)
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: IBM Linux Tutorials.
Become an expert in LINUX or just sharpen your skills.  Sign up for IBM's
Free Linux Tutorials.  Learn everything from the bash shell to sys admin.
Click now! http://ads.osdn.com/?ad_id=1278&alloc_id=3371&op=click