From 31c1bc006bb4379515b58e0e63dece7469f71f22 Mon Sep 17 00:00:00 2001 From: LinkFly Date: Thu, 26 Sep 2013 23:19:49 +0400 Subject: [PATCH 1/2] Added support lispworks on windows when getpid --- bson/types.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/bson/types.lisp b/bson/types.lisp index e1fe11b..27ce5ae 100644 --- a/bson/types.lisp +++ b/bson/types.lisp @@ -46,7 +46,7 @@ :md5 (babel:string-to-octets (machine-instance) :encoding :utf-8))) (pid #+clisp (system::process-id) - #+(and lispworks unix) (system::getpid) + #+(and lispworks (or unix windows)) (system::getpid) #+(and sbcl unix) (sb-unix:unix-getpid) #+(and cmu unix) (unix:unix-getpid) #+openmcl (ccl::getpid) From c6296cc1c9b534a4d188708f0f6e7b356e990179 Mon Sep 17 00:00:00 2001 From: LinkFly Date: Thu, 26 Sep 2013 23:23:18 +0400 Subject: [PATCH 2/2] Correct Added support lispworks on windows for getpid call --- bson/types.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/bson/types.lisp b/bson/types.lisp index 27ce5ae..f324aa1 100644 --- a/bson/types.lisp +++ b/bson/types.lisp @@ -50,7 +50,7 @@ #+(and sbcl unix) (sb-unix:unix-getpid) #+(and cmu unix) (unix:unix-getpid) #+openmcl (ccl::getpid) - #-(or clisp (and lispworks unix) (and sbcl unix) (and cmu unix) (and openmcl unix) openmcl) + #-(or clisp (and lispworks (or unix windows)) (and sbcl unix) (and cmu unix) (and openmcl unix) openmcl) (error "Impossible to determine the PID")) (inc (bordeaux-threads:with-recursive-lock-held (*object-id-inc-lock*) (setf *object-id-inc*