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

(setq database:*db-input* (setq .%%symbol-label%%.1 (make-instance 'pail-lib::poolfile :real-contents (list (setq .%%symbol-label%%.2 (setq .%%symbol-label%%.2 (make-instance 'pail-lib:pool-item :from-button nil :start-object nil :name-part "net-4"))) (setq .%%symbol-label%%.3 (setq .%%symbol-label%%.3 (make-instance 'pail-lib:pool-item :from-button nil :start-object nil :name-part "lex-1"))) (setq .%%symbol-label%%.4 (setq .%%symbol-label%%.4 (make-instance 'pail-lib:pool-item :from-button nil :start-object nil :name-part "net-1"))) (setq .%%symbol-label%%.5 (setq .%%symbol-label%%.5 (make-instance 'pail-lib:pool-item :from-button nil :start-object nil :name-part "net-2")))) :contents (list (setq .%%symbol-label%%.6 (make-instance 'pail-lib::filentry :classname "null" :poolname "net-4")) (setq .%%symbol-label%%.7 (make-instance 'pail-lib::filentry :classname "null" :poolname "lex-1")) (setq .%%symbol-label%%.8 (make-instance 'pail-lib::filentry :classname "null" :poolname "net-1")) (setq .%%symbol-label%%.9 (make-instance 'pail-lib::filentry :classname "null" :poolname "net-2"))) :filename "")))