;;;; -*- 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: Thursday, May 15, 2003 at 16:40:24 by nicholson ;;;; --------------------------------------------------------------------------- (in-package :zgraph-case-display) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #+packdoc (packdoc:package-documentation :zgraph-case-display "This is a tool for viewing a case in a graphical fashion") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (export-symbols "Zgraph Case Viewer" "These methods are for loading/maintaining the Case Manager" '( load-zgraph-case-display )) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Franz Allegro stuff #+(and allegro allegro-version>= (version>= 5) (not :runtime-system)) (progn (setf (cg:text-edit-indentation 'export-symbols) '(4 4 2)) (setf (cg:text-edit-indentation 'if) '(2 2)) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; End of Code