diff -c -r1.45 swank-clisp.lisp *** swank-clisp.lisp 15 Dec 2004 22:35:20 -0000 1.45 --- swank-clisp.lisp 26 Mar 2005 02:15:23 -0000 *************** *** 81,88 **** (funcall fn))

#+unix ! (defmethod getpid () ! (system::program-id)) #+win32 (defmethod getpid () (cond ((find-package :win32) --- 81,90 ---- (funcall fn))

#+unix ! (defmethod getpid () ! (funcall (or (find-symbol "PROGRAM-ID" :system) ! (find-symbol "PROCESS-ID" :system) ! (error "getpid not implemented")))) #+win32 (defmethod getpid () (cond ((find-package :win32) ----------