anchor.diff:    #+(and cmu unix)
     (unix:unix-getpid)
     #+openmcl
  -  (ccl::getpid))
  +  (ccl::getpid)
  +  #-(or clisp (and lispworks unix) (and sbcl unix) (and cmu unix) (and openmcl unix) openmcl)
  +  if-not-exists-return)
   
  
positive.code: (defun get-inc-val ()
    "Thread-safe method to get current ObjectId inc value. Takes an optional
    timestamp value to calculate inc for."
    (declare (optimize (speed 3) (safety 1)))
    (bt:with-lock-held (*id-inc-lock*)
      (setf *id-inc* (logand #xFFFFFF (1+ *id-inc*)))
      *id-inc*))
  
  (defun get-current-pid ()
    "Get the current process' PID. This function does it's best to be cross-
    implementation."
    #+clisp
    (system::process-id)
    #+(and lispworks unix)
  
negative.code:   (:use :cl)
    (:export :oid
             :oid-str
             :get-timestamp
             :get-hostname
             :get-pid
  