[slime-devel] small patch for cvs head clisp (backward compatible)

[Russell McManus]

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)
----------