;;;; -*-  Mode: LISP; Syntax: Common-Lisp; Base: 10                          -*-
;;;; ---------------------------------------------------------------------------
;;;; File name: case-viewer.lsp
;;;;    System: 
;;;;    Author: Shawn Nicholson
;;;;   Created: July 26, 2002 10:30:38
;;;;   Purpose: 
;;;; ---------------------------------------------------------------------------
;;;;  Modified: Friday, July 26, 2002 at 16:05:45 by nicholson
;;;; ---------------------------------------------------------------------------

(in-package :fire-case-viewer)


(defun test-fire-case-viewer ()
  (unless (fire:open-kb? fire:*kb*)
    (fire::test-case-management))
  (test-case-viewer-window)
  )




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; End of Code