
(in-package dump)
(EVAL-WHEN (COMPILE LOAD EVAL)
                       (DATABASE:MAKESYMS '.%%symbol-label%%. 0 3 "dump"))

(setq database:*db-input* (setq .%%symbol-label%%.11 (make-instance 'pail-lib::poolfile :real-contents (list (setq .%%symbol-label%%.12 (make-instance 'pail-lib:pool-item :name-part "john" :start-object (pail-lib::get-file-object "john"))) (setq .%%symbol-label%%.13 (make-instance 'pail-lib:pool-item :name-part "suicide-rules" :start-object (pail-lib::get-file-object "suicide-rules")))) :contents (list (setq .%%symbol-label%%.14 (make-instance 'pail-lib::filentry :classname "working-memory" :poolname "john")) (setq .%%symbol-label%%.15 (make-instance 'pail-lib::filentry :classname "rule-set" :poolname "suicide-rules"))) :filename "")))