anchor.diff:                     ;; pathname-name
                      ;; (if gz  (cl-ppcre:register-groups-bind (ext dot gz)  (*extension-gz-scanner* (aref extension 0))
                      (let ((extension0 (aref extension 0)))
  -                     (sb-ext:with-locked-hash-table (hash)
  +                     ;; (sb-ext:with-locked-hash-table (hash)
  +                     (with-hash-table-op (scnr-hash hash)
                          (if (string= "gz" extension0 :start2 (- (length extension0)  2))
  -                           (setf (gethash match-string hash)
  +                           (setf (gethash match-string scnr-hash) ;; hash)
                                    (list (directory-namestring match-string)
                                          (pathname-name (pathname-name match-string))
                                          extension0))
  -                       
  -                           (setf (gethash match-string hash)
  +                           (setf (gethash match-string scnr-hash) ;; hash)
                                    (list (directory-namestring match-string)
                                          (pathname-name match-string)
                                          extension0)))))
                      t)))
                (push-other ()
  -               (sb-ext:with-locked-hash-table (*other-hash*)
  -                 (and (setf (gethash regular-namestring *other-hash*) 
  -                            (list (directory-namestring regular-namestring)
  -                                  (pathname-name regular-namestring)
  -                                  (pathname-type regular-namestring)))
  +               ;; (sb-ext:with-locked-hash-table (*other-hash*)
  +               (with-hash-table-op (ht-oh *other-hash*)
  +                 (and  ;; (setf (gethash regular-namestring *other-hash*) 
  +                  (setf (gethash regular-namestring ht-oh) 
  +                        (list (directory-namestring regular-namestring)
  +                              (pathname-name regular-namestring)
  +                              (pathname-type regular-namestring)))
                         t)))
                (map-pairs ()
                  (loop 
  
positive.code:       
  (defun %partition-walked-files (rel-file-or-directory-pathname)
    (declare 
     (special *bmp-hash* *bmp-gz-hash* 
              *jpg-hash* *jpg-gz-hash*
              *nef-hash*  *tiff-hash*
              *psd-hash*  *other-hash*
              ;;
              *psd-scanner*    
              *jpg-gz-scanner* 
              *jpg-scanner*    
              *bmp-scanner*    
              *bmp-gz-scanner* 
              *nef-scanner*    
              *tiff-scanner*)
     (pathname rel-file-or-directory-pathname) 
     (pathname rel-file-or-directory-pathname)
     (inline %ensure-simple-namestring) 
  
negative.code:                        :if-does-not-exist :create
                         :element-type       'character
                         :external-format   external-format)
        (flet ((hash-file-writer (key val)
                 (format f "~%~A~%(:FILE      ~S~% :DIRECTORY ~S~% :NAME      ~S~% :TYPE      ~S)~%"
                         delim key (elt val 0) (elt val 1) (elt val 2))))
          (with-hash-table-op (ht hash-table)
            (maphash #'hash-file-writer ht)))
        hash-file-name)))
  
  (defun image-hash-write-all-to-file (directory-pathname)
    (flet ((writer (hash-table)
             (image-hash-write-to-file (symbol-value hash-table)
                                       directory-pathname
                                       (string-trim '(#\*) (string-downcase hash-table)))))
      (mapcar #'writer (list '*jpg-hash* '*jpg-gz-hash*
                             '*nef-hash* '*tiff-hash* 
                             '*bmp-hash* '*bmp-gz-hash*
                             '*psd-hash* '*other-hash*))))
  
  (defun image-hash-map-conversion-extension (source-hash conversion-hash conversion-extension &key (clear-conversion nil))
    (declare (string conversion-extension)
  