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

[Helmut Eller]

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

Modified Files:
	swank-clisp.lisp 
Log Message:
(getpid)[win32]: Use win32:|GetCurrentProcessId|.  From Reini Urban.

Date: Sun Oct  3 14:27:54 2004
Author: heller

Index: slime/swank-clisp.lisp
diff -u slime/swank-clisp.lisp:1.38 slime/swank-clisp.lisp:1.39
--- slime/swank-clisp.lisp:1.38	Fri Sep 17 14:49:26 2004
+++ slime/swank-clisp.lisp	Sun Oct  3 14:27:53 2004
@@ -122,7 +122,13 @@
   (funcall fn))
 
 #+unix (defmethod getpid () (system::program-id))
-#+win32 (defmethod getpid () (or (system::getenv "PID") -1))
+#+win32 
+(defmethod getpid ()
+  (cond ((find-package :win32)
+	 (funcall (find-symbol "GetCurrentProcessId" :win32)))
+	(t
+	 (system::getenv "PID"))))
+
 ;; the above is likely broken; we need windows NT users!
 
 (defimplementation lisp-implementation-type-name ()
@@ -308,8 +314,11 @@
   (sys::redo-eval-frame (nth-frame index)))
 
 (defimplementation frame-source-location-for-emacs (index)
-  (list :error (format nil "Cannot find source for frame: ~A"
-		       (nth-frame index))))
+  (let ((f (nth-frame index)))
+    (list :error (format nil "Cannot find source for frame: ~A ~A ~A" 
+			 f
+			 (sys::eval-frame-p f)
+			 (sys::the-frame)))))
 
 ;;; Profiling
 
@@ -548,7 +557,8 @@
     (declare (ignore inspector))))
 
 (defimplementation quit-lisp ()
-  (#+lisp=cl ext:quit #-lisp=cl lisp:quit code))
+  #+lisp=cl (ext:quit)
+  #-lisp=cl (lisp:quit))
 
 ;;; Local Variables:
 ;;; eval: (put 'compile-file-frobbing-notes 'lisp-indent-function 1)