anchor.diff:                         (format s "~&~A~%;; Failed conversion ~%;; :FROM ~S~%;; :TO   ~S~%" delim from to)
                          (format t "~&~A~%;; Failed conversion ~%;; :FROM ~S~%;; :TO   ~S~%" delim from to)))))
                (hash-pair-to-args (key val)
  -               (if 
  -                (zerop 
  -                 (sb-ext:process-exit-code
  -                  (sb-ext:run-program *image-magick-convert-path* (list key "-compress" "zip" val))))
  -                (progn 
  -                  (log-results t key val)
  -                  (when delete-on-success 
  -                    (delete-file key))
  -                  t)
  -                (log-results nil key val)))
  +               (if (zerop 
  +                    (sb-ext:process-exit-code
  +                     (sb-ext:run-program *image-magick-convert-path* (list key "-compress" "zip" val))))
  +                   (progn 
  +                     (log-results t key val)
  +                     (when delete-on-success 
  +                       (delete-file key))
  +                     t)
  +                   (log-results nil key val)))
                (map-with-lock ()
  -               (sb-ext:with-locked-hash-table (conversion-hash)
  -                 (maphash #'hash-pair-to-args conversion-hash))))
  +               ;; (sb-ext:with-locked-hash-table (conversion-hash)
  +               ;;   (maphash #'hash-pair-to-args conversion-hash))
  +               (with-hash-table-op (ht conversion-hash)
  +                 (maphash #'hash-pair-to-args ht))))
         (sb-thread:make-thread #'map-with-lock
                                :name (format nil "image-hash-conversion-perform-~D" (random most-positive-fixnum))))))
  -  
  +
   
   ;;; ==============================
   
  
positive.code: (defun image-hash-reset-all ()
    ;; (image-hash-reset-all)
    (declare 
     (special *bmp-hash* *bmp-gz-hash* 
              *jpg-hash* *jpg-gz-hash*
              *nef-hash*  *tiff-hash*
              *psd-hash*  *other-hash*)
     (optimize (speed 3)))
    (mapc #'(lambda (hash)
              (sb-ext:with-locked-hash-table (hash)
                (clrhash hash)))
          (list *nef-hash*
                *bmp-hash*
                *bmp-gz-hash*
                *jpg-hash*
                *jpg-gz-hash*
                *psd-hash*
                *tiff-hash*
                *other-hash*)))
  
  (defun image-hash-counts-report ()
    ;; (image-hash-counts-report)
    (declare (special *bmp-hash* *bmp-gz-hash* 
                      *jpg-hash* *jpg-gz-hash*
                      *nef-hash*  *tiff-hash*
                      *psd-hash*  *other-hash*)
             (optimize (speed 3)))
    (flet ((ht-and-count (ht)
             (sb-ext:with-locked-hash-table (ht)
               (hash-table-count ht))))
      (pairlis (list 
                '*nef-hash*
                '*bmp-hash*
                '*bmp-gz-hash*
                '*jpg-hash*
                '*jpg-gz-hash*
                '*psd-hash*
                '*tiff-hash*
                '*other-hash*)
               (mapcar #'ht-and-count (list *nef-hash* *bmp-hash* *bmp-gz-hash* *jpg-hash*
                                            *jpg-gz-hash* *psd-hash* *tiff-hash* *other-hash*)))))
  
  ;; Our main function 
  (defun %walk-directory-images-to-hash (directory-pathname &key (clear-count t))
    (declare ((or pathname string) directory-pathname)
             (boolean clear-count)
  
negative.code: ;;; :FILE-CREATED <Timestamp: #{2011-08-26T16:44:51-04:00Z}#{11345} - by MON>
  ;;; :FILE image-ops/image-ops-hash-dir-tree.lisp
  ;;; ==============================
  
  (in-package #:image-ops)
  ;; *package*
  