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

(setq database:*db-input* (setq .%%symbol-label%%.25 (make-instance 'pail-lib::poolfile :real-contents (list (setq .%%symbol-label%%.26 (make-instance 'pail-lib:pool-item :name-part "at25" :start-object (pail-lib::get-file-object "at25"))) (setq .%%symbol-label%%.27 (make-instance 'pail-lib:pool-item :name-part "maze-ops" :start-object (pail-lib::get-file-object "maze-ops"))) (setq .%%symbol-label%%.28 (make-instance 'pail-lib:pool-item :name-part "maze1" :start-object (pail-lib::get-file-object "maze1"))) (setq .%%symbol-label%%.29 (make-instance 'pail-lib:pool-item :name-part "maze1at1" :start-object (pail-lib::get-file-object "maze1at1"))) (setq .%%symbol-label%%.30 (make-instance 'pail-lib:pool-item :name-part "maze1at25" :start-object (pail-lib::get-file-object "maze1at25"))) (setq .%%symbol-label%%.31 (setq .%%symbol-label%%.31 (make-instance 'pail-lib:pool-item :from-button nil :start-object (setq .%%symbol-label%%.32 (make-instance 'pail-lib:world-desc :animation-info nil :animation-type "maze")) :name-part "maze"))) (setq .%%symbol-label%%.33 (make-instance 'pail-lib:pool-item :name-part "at1" :start-object (pail-lib::get-file-object "at1")))) :contents (list (setq .%%symbol-label%%.34 (make-instance 'pail-lib::filentry :classname "working-memory" :poolname "at25")) (setq .%%symbol-label%%.35 (make-instance 'pail-lib::filentry :classname "op-set" :poolname "maze-ops")) (setq .%%symbol-label%%.36 (make-instance 'pail-lib::filentry :classname "working-memory" :poolname "maze1")) (setq .%%symbol-label%%.37 (make-instance 'pail-lib::filentry :classname "working-memory" :poolname "maze1at1")) (setq .%%symbol-label%%.38 (make-instance 'pail-lib::filentry :classname "working-memory" :poolname "maze1at25")) (setq .%%symbol-label%%.39 (make-instance 'pail-lib::filentry :classname "world-desc" :poolname "maze")) (setq .%%symbol-label%%.40 (make-instance 'pail-lib::filentry :classname "working-memory" :poolname "at1"))) :filename "")))