;;;; -*- Mode: LISP; Syntax: Common-Lisp; Base: 10 -*- ;;;; --------------------------------------------------------------------------- ;;;; File name: export.lsp ;;;; System: Fire Case Viewer ;;;; Author: Shawn Nicholson ;;;; Created: June 25, 2002 10:24:45 ;;;; Purpose: Exports public symbols. ;;;; --------------------------------------------------------------------------- ;;;; Modified: Friday, July 26, 2002 at 15:41:23 by nicholson ;;;; --------------------------------------------------------------------------- (in-package :fire-case-viewer) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #+packdoc (packdoc:package-documentation :fire-case-viewer "This is a tool for viewing a case") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (export-symbols "Case Viewer" "These methods are for loading/maintaining the Case Manager" '( load-case-viewer register-case-display-pane case-name reasoner )) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Franz Allegro stuff #+(and allegro allegro-version>= (version>= 5) (not :runtime-system) (not unix)) (progn (setf (cg:text-edit-indentation 'export-symbols) '(4 4 2)) (setf (cg:text-edit-indentation 'if) '(2 2)) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; End of Code