(in-package "KPML")

;;; File: resources.lisp

;;; Basic resource management stuff...

;;; KPML 0.8; John, March 95.
;;; Following function broken down into subfunctions for
;;; more selectively erasing parts of the linguistic resources.
;;;
(defun ERASE-GRAMMAR ()
  (erase-systems)
  (erase-choosers)
  (erase-inquiries)
  (erase-nonsystemic-orderings)
  )

(defun ERASE-GRAMMAR-LEXICON-EXAMPLES ()
  (erase-lexicon)
  (erase-grammar)
  (flush-inquiry-implementation-functions)
  (erase-examples) t)

