Output hash-table from a function

[Heime <heimeborgia@protonmail.com>]

I have a hash table composed of a set of keys and an associated directory path

(defvar xiakos (make-hash-table :test 'equal)
  "Hash table storing paths for different components.")

(defun xiakos-insert ()
  (puthash "GLXKS" xiakos-path xiakos-fpln) )

I want to write a function xiakos-anctr that taking the hash table xiakos, 
produces another hash-table, with the same keys but the associated value
would be 1 (if directory path does not exist) or 0 (if the directory path exists).

(defun xiakos-anctr (fpln)

  (if (hash-table-p fpln)

      (let ( (anctr (make-hash-table :test 'equal)) )
        (maphash (lambda (waypt dirpath)
                   (puthash
                     waypt (not (file-directory-p dirpath))
                     anctr))
                 fpln)) ))