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

[Helmut Eller]

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

Modified Files:
	swank-clisp.lisp 
Log Message:
*** empty log message ***
Date: Sun Mar 27 20:40:52 2005
Author: heller

Index: slime/swank-clisp.lisp
diff -u slime/swank-clisp.lisp:1.45 slime/swank-clisp.lisp:1.46
--- slime/swank-clisp.lisp:1.45	Wed Dec 15 23:35:20 2004
+++ slime/swank-clisp.lisp	Sun Mar 27 20:40:51 2005
@@ -82,7 +82,10 @@
 
 #+unix 
 (defmethod getpid () 
-  (system::program-id))
+  (funcall (or (find-symbol "PROGRAM-ID" :system)
+ 	       (find-symbol "PROCESS-ID" :system)
+ 	       (error "getpid not implemented"))))
+
 #+win32 
 (defmethod getpid ()
   (cond ((find-package :win32)
@@ -333,7 +336,7 @@
 
 (defmacro dynamic-flet (names-functions &body body)
   "(dynamic-flet ((NAME FUNCTION) ...) BODY ...)
-Execute BODY with NAME's funtion slot set to FUNCTION."
+Execute BODY with NAME's function slot set to FUNCTION."
   `(ext:letf* ,(loop for (name function) in names-functions
 		     collect `((symbol-function ',name) ,function))
     , at body))