You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

37 lines
1.3KB

  1. ;;variables used in reports
  2. ;; these variables are used as placeholders as the actual objects are generated, pushed into these variables, then pushed from these variables
  3. ;; into other streams and files
  4. (defvar report-number nil)
  5. (defvar report-year nil)
  6. (defvar report-month nil)
  7. (defvar report-day nil)
  8. (defvar report-class nil)
  9. (defvar report-type nil)
  10. (defvar report-evidence nil)
  11. (defvar report-response-a nil)
  12. (defvar report-agreement-a nil)
  13. (defvar report-counselor-a nil)
  14. (defvar report-response-b nil)
  15. (defvar report-agreement-b nil)
  16. (defvar report-counselor-b nil)
  17. (defvar report-response-c nil)
  18. (defvar report-agreement-c nil)
  19. (defvar report-counselor-c nil)
  20. (defvar report-response-d nil)
  21. (defvar report-agreement-d nil)
  22. (defvar report-counselor-d nil)
  23. (defvar report-response-e nil)
  24. (defvar report-agreement-e nil)
  25. (defvar report-counselor-e nil)
  26. (defun alien-group-generator (personality technology biology location ships goals relations)
  27. (list :personality a :technology b :biology c :location d :ships e :goals f :relations h))
  28. (defun alien-personality-generator ())
  29. (defun alien-technology-generator (level techs))
  30. (defun alien-biology-generator (type-main))
  31. (defun alien-locations-generator (surface orbit systems))
  32. (defun alien-ships-generator ())
  33. (defun alien-goals-generator ())
  34. (defun alien-relations-generator ())