#+(and lispworks (not win32)) (system::getpid)
#+sbcl (sb-posix:getpid)
#+cmu (unix:unix-getpid)
- #+openmcl (ccl:getpid)
+ #+openmcl (ccl::getpid)
#+(and clisp unix) (system::program-id)
#+(and clisp win32) (cond ((find-package :win32)
(funcall (find-symbol "GetCurrentProcessId"