anchor.diff:  (in-package :cl-mongo-id)
   
   (defvar *id-inc* (secure-random:number (ash 1 24)))
  +
  +;; In previous version of the ObjectId spec this was referenced as the
  +;; machine and pid. In v0.2 of the spec if was made to be a random
  +;; 5-byte sequence randomly chosen per instance of the process.
  +(defvar *random-value* (secure-random:bytes 5 secure-random:*generator*))
   
   (defun oid (&optional id)
     "Generate a mongo id, in byte vector format."
  
positive.code:         (convert-vector-int timestamp))))
  
  (defun get-hostname (oid &key bytes)
    "Grab the hostname int out of a vector oid. Passing :bytes t will return an
    array of bytes corresponding to the hostname part of the ID instead of parsing
    it as an integer."
    (let ((host (subseq oid 4 7)))
      (if bytes
          host
          (convert-vector-int host))))
  
  (defun get-pid (oid &key bytes)
    "Grab the pid out of a vector oid. Passing :bytes t will return an array of
    bytes corresponding to the PID part of the ID instead of parsing it as an
    integer."
    (let ((pid (subseq oid 7 9)))
      (if bytes
          pid
          (convert-vector-int pid))))
  
  (defun get-inc (oid &key bytes)
    "Grab the inc value out of a vector oid. Passing :bytes t will return an array
  
negative.code: ;;; This is a library for generating MongoDB ObjectIDs per the client
  ;;; specification:
  ;;;
  ;;;   https://github.com/mongodb/specifications/blob/master/source/objectid.rst
  ;;;
  ;;; Full documentation on github:
  ;;;
  