
(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 "somerule" :start-object (pail-lib::get-file-object "somerule")))
                    (setq .%%symbol-label%%.3
                          (make-instance 'pail-lib:pool-item :name-part "safe-to-stack-wm" :start-object (pail-lib::get-file-object "safe-to-stack-wm")))
                    (setq .%%symbol-label%%.4
                          (make-instance 'pail-lib:pool-item :name-part "stackrules" :start-object (pail-lib::get-file-object "stackrules"))))
              :contents
              (list (setq .%%symbol-label%%.5 (make-instance 'pail-lib::filentry :classname "rule" :poolname "somerule"))
                    (setq .%%symbol-label%%.6 (make-instance 'pail-lib::filentry :classname "working-memory" :poolname "safe-to-stack-wm"))
                    (setq .%%symbol-label%%.7 (make-instance 'pail-lib::filentry :classname "rule-set" :poolname "stackrules")))
              :filename
             (namestring(pail-lib::add-path "rules-con1" (pail-lib::add-subdir pail::*pail-path* "rules"))))))