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

(setq database:*db-input* (setq .%%symbol-label%%.1 (make-instance 'pail-lib::poolfile :real-contents (list (setq .%%symbol-label%%.2 (make-instance 'pail-lib:pool-item :name-part "basic-block" :start-object (pail-lib::get-file-object "basic-block"))) (setq .%%symbol-label%%.3 (make-instance 'pail-lib:pool-item :name-part "abc-on-table" :start-object (pail-lib::get-file-object "abc-on-table"))) (setq .%%symbol-label%%.4 (make-instance 'pail-lib:pool-item :name-part "a-on-c" :start-object (pail-lib::get-file-object "a-on-c")))) :contents (list (setq .%%symbol-label%%.5 (make-instance 'pail-lib::filentry :classname "op-set" :poolname "basic-block")) (setq .%%symbol-label%%.6 (make-instance 'pail-lib::filentry :classname "working-memory" :poolname "abc-on-table")) (setq .%%symbol-label%%.7 (make-instance 'pail-lib::filentry :classname "working-memory" :poolname "a-on-c"))) :filename "")))