First, you need the following information:

1) the name of the classifier for your hierarchy (taxonomy, I gather)
2) the names of all the recognition agents you use 
	-to get this, do the following: (not in lisp, at the shell prompt)
	  grep -i define-rec sourcefilename.gt
	-this will get all the first lines of the RA definitions. Gather
	up the names however you wish, (type, cut & paste, shell script)
	and put them in a file with emacs (temporary storage)
3) the names of all the databases you use
	- to get this, do the same as above, only use
	 grep -i define-idb sourcefilename.gt


	  

At the *end* of the file in which you define your agents, put the following:

(defun save-taxonomy (filename)
  (let
    ((ra-list '(name1 name2 name3...))
     ;; where name1, name2, and so on are *all* the RA names you collected in
     ;;	step 2 above
     (idb-list '(name1 name2 name3...))
     ;; these are the names from step3
     (classifier 'taxonomy)
     (dragon-list nil))

     (setf dragon-list
       (append (list classifier)
               idb-list ra-list
               (get-nodes classifier)))
     (save-dragon dragon-list filename))
