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

(setq database:*db-input* (setq .%%symbol-label%%.62 (make-instance 'pail-lib::poolfile :real-contents (list (setq .%%symbol-label%%.63 (make-instance 'pail-lib:pool-item :name-part "a-b-c" :start-object (pail-lib::get-file-object "a-b-c"))) (setq .%%symbol-label%%.64 (make-instance 'pail-lib:pool-item :name-part "plain" :start-object (pail-lib::get-file-object "plain"))) (setq .%%symbol-label%%.65 (make-instance 'pail-lib:pool-item :name-part "how-to-put" :start-object (pail-lib::get-file-object "how-to-put"))) (setq .%%symbol-label%%.66 (setq .%%symbol-label%%.66 (make-instance 'pail-lib:pool-item :from-button nil :start-object (setq .%%symbol-label%%.67 (make-instance 'pail-lib:world-desc :animation-info (list (list 'a 'block) (list 'b 'block) (list 'c 'block) (list 'support-table 'table)) :animation-type "blocks")) :name-part "abcblocks")))) :contents (list (setq .%%symbol-label%%.68 (make-instance 'pail-lib::filentry :classname "working-memory" :poolname "a-b-c")) (setq .%%symbol-label%%.69 (make-instance 'pail-lib::filentry :classname "working-memory" :poolname "plain")) (setq .%%symbol-label%%.70 (make-instance 'pail-lib::filentry :classname "op-set" :poolname "how-to-put")) (setq .%%symbol-label%%.71 (make-instance 'pail-lib::filentry :classname "world-desc" :poolname "abcblocks"))) :filename "")))