anchor.diff:      ;; no free entries remap 
       (close-ntlm-database)
       (open-ntlm-database (* count 2))
  -    (pounds:with-locked-mapping (*ntlm-stream*)
  -      (file-position *ntlm-stream* (* +ntlm-block-size+ count))
  -      (write-ntlm-entry *ntlm-stream*
  +    (with-locked-db 
  +      (file-position (db-stream *db*) (* +ntlm-block-size+ count))
  +      (write-ntlm-entry (db-stream *db*)
                           (make-ntlm-entry :active t 
                                            :user username
                                            :password password)))
  
positive.code:   "Lookup the named user's password."
    (open-ntlm-database)
    (let (count)
      (pounds:with-locked-mapping (*ntlm-stream*)
        (setf count (database-count))
        (do ((i 1 (1+ i)))
            ((= i count))
          (let ((entry (read-ntlm-entry *ntlm-stream*)))
            (when (and (ntlm-entry-active entry)
                       (string= (ntlm-entry-user entry) username))
              (return-from find-ntlm-user (ntlm-entry-password entry)))))))
  
negative.code:   "Delete the named user from the local database."
    (open-ntlm-database)
    (let (count)
      (with-locked-db 
        (setf count (database-count))
        (do ((i 1 (1+ i))
  	   (stream (db-stream *db*)))
            ((= i count))
          (let ((offset (file-position stream))
                (entry (read-ntlm-entry stream)))
            (when (and (ntlm-entry-active entry)
                       (string= (ntlm-entry-user entry) username))
              (file-position stream offset)
              (nibbles:write-ub32/be 0 stream)
              (return-from remove-ntlm-user nil))))))
    nil)
  
  