anchor.diff:    "Delete the named user from the local database."
     (open-ntlm-database)
     (let (count)
  -    (pounds:with-locked-mapping (*ntlm-stream*)
  +    (with-locked-db 
         (setf count (database-count))
  -      (do ((i 1 (1+ i)))
  +      (do ((i 1 (1+ i))
  +	   (stream (db-stream *db*)))
             ((= i count))
  -        (let ((offset (file-position *ntlm-stream*))
  -              (entry (read-ntlm-entry *ntlm-stream*)))
  +        (let ((offset (file-position stream))
  +              (entry (read-ntlm-entry stream)))
             (when (and (ntlm-entry-active entry)
                        (string= (ntlm-entry-user entry) username))
  -            (file-position *ntlm-stream* offset)
  -            (nibbles:write-ub32/be 0 *ntlm-stream*)
  +            (file-position stream offset)
  +            (nibbles:write-ub32/be 0 stream)
               (return-from remove-ntlm-user nil))))))
     nil)
   
  
positive.code:   (open-ntlm-database)
    ;; walk the list until we find an unused entry 
    (let (count)
      (pounds:with-locked-mapping (*ntlm-stream*)
        (setf count (database-count))
        (do ((i 1 (1+ i)))
            ((>= i count))
          (let ((offset (file-position *ntlm-stream*))
                (entry (read-ntlm-entry *ntlm-stream*)))
            (cond 
              ((and (ntlm-entry-active entry) 
                    (string= (ntlm-entry-user entry) username))
               (file-position *ntlm-stream* offset)
               (write-ntlm-entry *ntlm-stream* 
                                 (make-ntlm-entry :active t 
                                                  :user username 
                                                  :password password))
               (return-from add-ntlm-user nil))
              ((not (ntlm-entry-active entry))
               ;; free entry, write here
               (file-position *ntlm-stream* offset)
               (write-ntlm-entry *ntlm-stream* 
                                 (make-ntlm-entry :active t 
                                                  :user username 
                                                  :password password))
  
negative.code:     ;; no free entries remap 
      (close-ntlm-database)
      (open-ntlm-database (* count 2))
      (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)))
  