[slime-cvs] CVS update: slime/swank-lispworks.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv7072

Modified Files:
	swank-lispworks.lisp 
Log Message:
(getpid, emacs-connected): Conditionalize for Windows.  Patch from Bill
Clementson.

Date: Fri Mar  5 17:53:34 2004
Author: heller

Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.28 slime/swank-lispworks.lisp:1.29
--- slime/swank-lispworks.lisp:1.28	Fri Mar  5 09:26:14 2004
+++ slime/swank-lispworks.lisp	Fri Mar  5 17:53:34 2004
@@ -58,6 +58,7 @@
 
 (defimplementation emacs-connected ()
   ;; Set SIGINT handler on Swank request handler thread.
+  #-win32 
   (sys:set-signal-handler +sigint+ (make-sigint-handler mp:*current-process*)))
 
 ;;; Unix signals
@@ -74,8 +75,9 @@
 (defmethod call-without-interrupts (fn)
   (lispworks:without-interrupts (funcall fn)))
 
-(defmethod getpid ()
-  (system::getpid))
+(defimplementation getpid ()
+  #+win32 (win32:get-current-process-id)
+  #-win32 (system::getpid))
 
 (defimplementation lisp-implementation-type-name ()
   "lispworks")
@@ -219,10 +221,7 @@
   (invoke-restart-interactively (nth-restart index)))
 
 (defimplementation frame-locals (n)
-  (let ((frame (nth-frame n))
-        (*print-readably* nil)
-        (*print-pretty* t)
-        (*print-circle* t))
+  (let ((frame (nth-frame n)))
     (if (dbg::call-frame-p frame)
 	(destructuring-bind (vars with)
 	    (dbg::frame-locals-format-list frame #'list 75 0)