[slime-devel] slime + allegrocl and multiple lisps

[Surendra Singhi]

Hi,
 Happy New Year.
I have two questions about slime.
First, I am trying to connect allegrocl and slime. My environment is Windows
XP and XEmacs 21.5.23.

My init file contains the following code:

(global-set-key
 [(f7)]
 '(lambda ()
    (interactive)
    (shell-command "alisp.exe +B +cm -L ~/.slime.lisp&")
    (while (not (ignore-errors (progn (slime-connect "localhost" 4005) t)))
      (sit-for 0.2))
    (delete-other-windows)
    (slime-connect "localhost" 4005)))
  
Initially I was just using the Bill Clementson's code, but I was getting
"program actively refused connection error" so I tried adding 
(while (not .....)) mentioned at

http://common-lisp.net/pipermail/slime-devel/2005-February/003088.html

But now I get an error message 
"(error "Keyword argument 2932 not one of (:pid :style 
:lisp-implementation :machine :features :package)")" 

What am I doing wrong or missing, and how can I use allegro and slime?  

Btw, my .slime.lisp file contains

(load "C:/Program Files/XEmacs/xemacs-packages/lisp/slime/swank-loader.lisp")
(swank::create-swank-server 4005 :spawn #'swank::simple-announce-function t)

The contents of *slime-events* buffer are below.



The second question is about using multiple lisp connections simultaneously. 

Based on Helmut's code I added the following to my init file.
http://article.gmane.org/gmane.lisp.slime.devel/4268

(setq slime-lisp-implementations
      '((clisp ("clisp.exe -I -m 256mb"))
        (acl7 ("alisp  +B +cm"))))


(load-library "inf-lisp")
(setq inferior-lisp-program "clisp.exe -I -m 256mb")
(add-hook 'inferior-lisp-mode-hook
	  (lambda () (inferior-slime-mode t)))

The problem is that when I do M-x slime, it gives me a "Process Error:
Searching for Program". But earlier when I didn't have any values assigned to
slime-lisp-implementation, things used to work fine.

Also, C-u M-x slime, shows me `Run lisp:clisp.exe -I -m 256mb' and then when I
press enter clisp starts properly.

Thanks for the help. 
-- 
Surendra Singhi
http://www.public.asu.edu/~sksinghi/index.html

,----
| "All animals are equal, but some animals are more equal than others."
|     -- Orwell, Animal Farm, 1945
`----


Contents of *slime-events* buffer:

(:emacs-rex
 (swank:connection-info)
 nil t 1)
(:emacs-rex
 (swank:connection-info)
 nil t 1)
(:open-dedicated-output-stream 2122)
(:open-dedicated-output-stream 2124)
(:indentation-update
 (("record-strings" . 1)
  ("record-code-vectors" . 1)
  ("with-scheduling-allowed" . 0)
  ("with-host-as-target" . 0)
  ("with-struct" . 2)
  ("defimplementation" . 2)
  ("with-compilation-hooks" . 1)
  ("with-temp-package" . 1)
  ("with-reader-error-handler" . 1)
  ("with-describe-settings" . 1)
  ("with-bindings" . 1)
  ("defslimefun" . 2)
  ("without-interrupts" . 0)
  ("with-io-redirection" . 1)
  ("with-connection" . 1)
  ("with-buffer-syntax" . 1)
  ("with-sampling" . 1)
  ("with-profiling" . 1)
  ("preparing-analysis" . 1)
  ("preparing-profile-analysis" . 1)
  ("with-process-lock" . 1)
  ...))
(:return
 (:ok
  (2932 "International Allegro CL Enterprise Edition" "allegro"
        (:asdf-install :split-sequence :asdf :allegro-cl-enterprise :acl-socket :hiper-socket :profiler :multiprocessing :flavors :little-endian :gsgc :compiler :use-structs-in-compiler :clos :verify-car-cdr :dynload :dlwin :x86 :mswindows :microsoft :microsoft-32 ...)
        :spawn "7.0 [Windows] (Dec 20, 2005 19:16)" "THAR"))
 1)
(:indentation-update
 (("record-strings" . 1)
  ("record-code-vectors" . 1)
  ("with-scheduling-allowed" . 0)
  ("with-host-as-target" . 0)
  ("with-struct" . 2)
  ("defimplementation" . 2)
  ("with-compilation-hooks" . 1)
  ("with-temp-package" . 1)
  ("with-reader-error-handler" . 1)
  ("with-describe-settings" . 1)
  ("with-bindings" . 1)
  ("defslimefun" . 2)
  ("without-interrupts" . 0)
  ("with-io-redirection" . 1)
  ("with-connection" . 1)
  ("with-buffer-syntax" . 1)
  ("with-sampling" . 1)
  ("with-profiling" . 1)
  ("preparing-analysis" . 1)
  ("preparing-profile-analysis" . 1)
  ("with-process-lock" . 1)
  ...))
(:return
 (:ok
  (2932 "International Allegro CL Enterprise Edition" "allegro"
        (:asdf-install :split-sequence :asdf :allegro-cl-enterprise :acl-socket :hiper-socket :profiler :multiprocessing :flavors :little-endian :gsgc :compiler :use-structs-in-compiler :clos :verify-car-cdr :dynload :dlwin :x86 :mswindows :microsoft :microsoft-32 ...)
        :spawn "7.0 [Windows] (Dec 20, 2005 19:16)" "THAR"))
 1)