[slime-devel] Re: Using SLIME with LispWorks on Win2000

[Bill_Clementson at peoplesoft.com]

Below is a patch that will allow you to use SLIME with the LispWorks WIN32
Windows application on the LispWorks Personal Edition for Windows. You
won't be able to start LW via an inferior lisp with "M-x slime"; however,
you can use a similar approach to what I described in my earlier post
regarding ACL for Windows.

Here's the patch:

diff -u swank-lispworks-orig.lisp swank-lispworks.lisp
--- swank-lispworks-orig.lisp Wed Mar  3 00:08:33 2004
+++ swank-lispworks.lisp      Fri Mar  5 10:37:19 2004
@@ -58,7 +58,7 @@

 (defimplementation emacs-connected ()
   ;; Set SIGINT handler on Swank request handler thread.
-  (sys:set-signal-handler +sigint+ (make-sigint-handler mp:
*current-process*)))
+  #-win32 (sys:set-signal-handler +sigint+ (make-sigint-handler mp:
*current-process*)))

 ;;; Unix signals

@@ -75,7 +75,8 @@
   (lispworks:without-interrupts (funcall fn)))

 (defmethod getpid ()
-  (system::getpid))
+  #+win32 (win32:get-current-process-id)
+  #-win32 (system::getpid))

 (defimplementation lisp-implementation-type-name ()
   "lispworks")