
(in-package dump)
(EVAL-WHEN (COMPILE LOAD EVAL)
                       (DATABASE:MAKESYMS '.%%symbol-label%%. 0 49 "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 "answer1" :start-object (pail-lib::get-file-object "answer1"))) (setq .%%symbol-label%%.4 (setq .%%symbol-label%%.4 (make-instance 'pail-lib:pool-item :from-button nil :start-object (setq .%%symbol-label%%.5 (make-instance 'pail-lib:ebg-tree :descendants (list (setq .%%symbol-label%%.6 (make-instance 'pail-lib:ebg-tree :descendants (list (setq .%%symbol-label%%.7 (make-instance 'pail-lib:ebg-tree :descendants nil :content nil :substitutions nil :fact (list 'color 1))) (setq .%%symbol-label%%.8 (make-instance 'pail-lib:ebg-tree :descendants nil :content nil :substitutions nil :fact (list 'bruises-red 1))) (setq .%%symbol-label%%.9 (make-instance 'pail-lib:ebg-tree :descendants nil :content nil :substitutions nil :fact (list 'bruises-brown 1))) (setq .%%symbol-label%%.10 (make-instance 'pail-lib:ebg-tree :descendants nil :content nil :substitutions nil :fact (list 'bubous-base 0)))) :content (setq .%%symbol-label%%.11 (make-instance 'pail-lib:rule :date-part nil :doc-part 'no :type-part nil :then-part (list 'elements 'phalloides) :if-part (list (list 'color 1) (list 'bruises-red 1) (list 'bruises-brown 1) (list 'bubous-base 0)) :name-part 'id3rule)) :substitutions nil :fact nil))) :content (setq .%%symbol-label%%.12 (make-instance 'pail-lib:rule :date-part nil :doc-part nil :type-part nil :then-part (list 'poison) :if-part (list (list 'elements 'phalloides)) :name-part 'poison1)) :substitutions nil :fact nil)) :name-part "poison1"))) (setq .%%symbol-label%%.13 (make-instance 'pail-lib:pool-item :name-part "classrule" :start-object (pail-lib::get-file-object "classrule"))) (setq .%%symbol-label%%.14 (setq .%%symbol-label%%.14 (make-instance 'pail-lib:pool-item :from-button nil :start-object (setq .%%symbol-label%%.15 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.16 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.17 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.18 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.19 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.20 (make-instance 'pail-lib:decision-tree :descendants nil :content 'common-lisp-user::rubescens))) :content 'common-lisp-user::elements))) :content 0)) (setq .%%symbol-label%%.21 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.22 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.23 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.24 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.25 (make-instance 'pail-lib:decision-tree :descendants nil :content 'common-lisp-user::brunnescens))) :content 'common-lisp-user::elements))) :content 0)) (setq .%%symbol-label%%.26 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.27 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.28 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.29 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.30 (make-instance 'pail-lib:decision-tree :descendants nil :content 'common-lisp-user::citrina))) :content 'common-lisp-user::elements))) :content 1)) (setq .%%symbol-label%%.31 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.32 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.33 (make-instance 'pail-lib:decision-tree :descendants nil :content 'common-lisp-user::phalloides))) :content 'common-lisp-user::elements))) :content 0))) :content 'common-lisp-user::bubous-base))) :content 1))) :content 'common-lisp-user::bruises-brown))) :content 1))) :content 'common-lisp-user::bruises-red))) :content 1)) (setq .%%symbol-label%%.34 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.35 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.36 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.37 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.38 (make-instance 'pail-lib:decision-tree :descendants nil :content 'common-lisp-user::verna))) :content 'common-lisp-user::elements))) :content 0)) (setq .%%symbol-label%%.39 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.40 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.41 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.42 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.43 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.44 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.45 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.46 (make-instance 'pail-lib:decision-tree :descendants (list (setq .%%symbol-label%%.47 (make-instance 'pail-lib:decision-tree :descendants nil :content (list 'common-lisp-user::tenuifolia 'common-lisp-user::virosa 'common-lisp-user::bisporigera)))) :content 'common-lisp-user::elements))) :content 0))) :content 'common-lisp-user::bubous-base))) :content 1))) :content 'common-lisp-user::bruises-brown))) :content 1))) :content 'common-lisp-user::bruises-red))) :content 1))) :content 'common-lisp-user::potassium-hydroxide))) :content 0))) :content 'common-lisp-user::color)) :name-part "classroom"))) (setq .%%symbol-label%%.48 (make-instance 'pail-lib:pool-item :name-part "myroom" :start-object (pail-lib::get-file-object "myroom")))) :contents (list (setq .%%symbol-label%%.49 (make-instance 'pail-lib::filentry :classname "rule" :poolname "answer1")) (setq .%%symbol-label%%.50 (make-instance 'pail-lib::filentry :classname "ebg-tree" :poolname "poison1")) (setq .%%symbol-label%%.51 (make-instance 'pail-lib::filentry :classname "rule-set" :poolname "classrule")) (setq .%%symbol-label%%.52 (make-instance 'pail-lib::filentry :classname "decision-tree" :poolname "classroom")) (setq .%%symbol-label%%.53 (make-instance 'pail-lib::filentry :classname "working-memory" :poolname "myroom"))) :filename "")))