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

(setq database:*db-input*
      (setq .%%symbol-label%%.2
            (make-instance
              'pail-lib::poolfile
              :real-contents
              (list (setq .%%symbol-label%%.3
                          (make-instance
                            'pail-lib:pool-item
                            :name-part
                            "stackrules"
                            :start-object
                            (pail-lib::get-file-object "stackrules")))
                    (setq .%%symbol-label%%.4
                          (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%%.5
                          (make-instance
                            'pail-lib:pool-item
                            :name-part
                            "shortcut"
                            :start-object
                            (pail-lib::get-file-object "shortcut"))))
              :contents
              (list (setq .%%symbol-label%%.6
                          (make-instance
                            'pail-lib::filentry
                            :classname
                            "rule-set"
                            :poolname
                            "stackrules"))
                    (setq .%%symbol-label%%.7
                          (make-instance
                            'pail-lib::filentry
                            :classname
                            "working-memory"
                            :poolname
                            "safe-to-stack-wm"))
                    (setq .%%symbol-label%%.8
                          (make-instance
                            'pail-lib::filentry
                            :classname
                            "rule"
                            :poolname
                            "shortcut")))
              :filename
              "stack-ex")))