(in-package :cl-user)

;; most moved to util;namespace

;;; Given a KB, register all the namespaces it knows about
(defun kb-grab-namespaces (kb)
  (let* ((jena (kb-jena-model kb))
	 (hash (#"getNsPrefixMap" jena))
	 (keys (#"keySet" hash)))
    (dolist (key (jcollection->list keys))
      (register-namespace (format nil "~A:" key)
			  (#"get" hash key)))))