|
-
- ;;variables used in reports
- ;; these variables are used as placeholders as the actual objects are generated, pushed into these variables, then pushed from these variables
- ;; into other streams and files
- (defvar report-number nil)
- (defvar report-year nil)
- (defvar report-month nil)
- (defvar report-day nil)
- (defvar report-class nil)
- (defvar report-type nil)
- (defvar report-evidence nil)
- (defvar report-response-a nil)
- (defvar report-agreement-a nil)
- (defvar report-counselor-a nil)
- (defvar report-response-b nil)
- (defvar report-agreement-b nil)
- (defvar report-counselor-b nil)
- (defvar report-response-c nil)
- (defvar report-agreement-c nil)
- (defvar report-counselor-c nil)
- (defvar report-response-d nil)
- (defvar report-agreement-d nil)
- (defvar report-counselor-d nil)
- (defvar report-response-e nil)
- (defvar report-agreement-e nil)
- (defvar report-counselor-e nil)
- (defun alien-group-generator (personality technology biology location ships goals relations)
- (list :personality a :technology b :biology c :location d :ships e :goals f :relations h))
- (defun alien-personality-generator ())
- (defun alien-technology-generator (level techs))
- (defun alien-biology-generator (type-main))
- (defun alien-locations-generator (surface orbit systems))
- (defun alien-ships-generator ())
- (defun alien-goals-generator ())
- (defun alien-relations-generator ())
|