(defun load-lib (&optional (comp-path "/u/pzyeh/RKF/Working/Trunk/components/"))
  (let (result)
    (setq *recursive-classification* t)
    (setq *indirect-classification*  t)
    (dolist (component (traverse-directory comp-path) result)
      (if (equal (pathname-type component) "km")
          (progn
	    (load-kb component)
	    (setf result (cons (pathname-name component) result)))))))

(defun traverse-directory (root-dir-path)
  (let ((dir-list (directory root-dir-path)) sub-dir-path result)
    (dolist (element dir-list result)
      (if (directory (setf sub-dir-path (concatenate 'string root-dir-path (pathname-name element) "/")))
          (setf result (append (traverse-directory sub-dir-path) result))
          (setf result (cons element result))))))