
(in-package dump)

(setq database:*db-input* (setq .%%symbol-label%%.194 (make-instance 'pail-lib::poolfile :real-contents (list (setq .%%symbol-label%%.195 (make-instance 'pail-lib:pool-item :name-part "suicide-rules" :start-object (pail-lib::get-file-object "suicide-rules"))) (setq .%%symbol-label%%.196 (make-instance 'pail-lib:pool-item :name-part "john" :start-object (pail-lib::get-file-object "john"))) (setq .%%symbol-label%%.197 (setq .%%symbol-label%%.197 (make-instance 'pail-lib:pool-item :from-button nil :start-object (setq .%%symbol-label%%.198 (make-instance 'pail-lib:ebg-tree :descendants (list (setq .%%symbol-label%%.199 (make-instance 'pail-lib:ebg-tree :descendants (list (setq .%%symbol-label%%.200 (make-instance 'pail-lib:ebg-tree :descendants nil :content nil :uid "EBG106" :substitutions nil :fact (list 'depressed 'john)))) :content (setq .%%symbol-label%%.201 (make-instance 'pail-lib:rule :date-part 311091 :doc-part 'no_documentation :type-part 'forward :then-part (list 'hates '?self '?self) :if-part (list (list 'depressed '?self)) :name-part 'rule-b)) :uid "EBG107" :substitutions nil :fact nil)) (setq .%%symbol-label%%.202 (make-instance 'pail-lib:ebg-tree :descendants (list (setq .%%symbol-label%%.203 (make-instance 'pail-lib:ebg-tree :descendants nil :content nil :uid "EBG108" :substitutions nil :fact (list 'buys 'john 'gun1)))) :content (setq .%%symbol-label%%.204 (make-instance 'pail-lib:rule :date-part 311091 :doc-part 'no_documentation :type-part 'forward :then-part (list 'possesses '?s '?object) :if-part (list (list 'buys '?s '?object)) :name-part 'rule-c)) :uid "EBG109" :substitutions nil :fact nil)) (setq .%%symbol-label%%.205 (make-instance 'pail-lib:ebg-tree :descendants (list (setq .%%symbol-label%%.206 (make-instance 'pail-lib:ebg-tree :descendants nil :content nil :uid "EBG110" :substitutions nil :fact (list 'gun 'gun1)))) :content (setq .%%symbol-label%%.207 (make-instance 'pail-lib:rule :date-part 311091 :doc-part 'no_documentation :type-part 'forward :then-part (list 'weapon '?thing) :if-part (list (list 'gun '?thing)) :name-part 'rule-e)) :uid "EBG111" :substitutions nil :fact nil))) :content (setq .%%symbol-label%%.208 (make-instance 'pail-lib:rule :date-part 311091 :doc-part 'no_documentation :type-part 'forward :then-part (list 'kills '?a '?b) :if-part (list (list 'hates '?a '?b) (list 'possesses '?a '?w) (list 'weapon '?w)) :name-part 'rule-a)) :uid "EBG112" :substitutions nil :fact nil)) :name-part "whyohwhy")))) :contents (list (setq .%%symbol-label%%.209 (make-instance 'pail-lib::filentry :classname "rule-set" :poolname "suicide-rules")) (setq .%%symbol-label%%.210 (make-instance 'pail-lib::filentry :classname "working-memory" :poolname "john")) (setq .%%symbol-label%%.211 (make-instance 'pail-lib::filentry :classname "ebg-tree" :poolname "whyohwhy"))) :filename "")))