anchor.diff:          (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))))
  +  (error "get-hostname is no longer supported by the ObjectId spec"))
   
   (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))))
  +  (error "get-pid is no longer supported by the ObjectId spec"))
   
   (defun get-inc (oid &key bytes)
     "Grab the inc value out of a vector oid. Passing :bytes t will return an array
  
positive.code: ;;; This is a library for generating MongoDB ObjectIDs per the client
  ;;; specification:
  ;;;
  ;;;   http://www.mongodb.org/display/DOCS/Object+IDs
  ;;;
  ;;; Full documentation on github:
  ;;;
  
negative.code: (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."
  