Merge pull request #7 from LinkFly/master

Support for LW/Windows
archimag · Jun 9, 2014 · 241c7b9 · 241c7b9
2 parents 62e583c + c6296cc
commit 241c7b9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/bson/types.lisp b/bson/types.lisp
@@ -46,11 +46,11 @@
                    :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)
-             #-(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*