
(IN-PACKAGE DUMP)
(EVAL-WHEN (COMPILE LOAD EVAL)
                       (DATABASE:MAKESYMS '.%%SYMBOL-LABEL%%. 0 33 "DUMP"))

(SETQ DATABASE:*DB-INPUT* (SETQ .%%SYMBOL-LABEL%%.14 (MAKE-INSTANCE 'PAIL-LIB::POOLFILE :REAL-CONTENTS (LIST (SETQ .%%SYMBOL-LABEL%%.15 (SETQ .%%SYMBOL-LABEL%%.15 (MAKE-INSTANCE 'PAIL-LIB:POOL-ITEM :FROM-BUTTON NIL :START-OBJECT (SETQ .%%SYMBOL-LABEL%%.16 (MAKE-INSTANCE 'PAIL-LIB:EBG-TREE :DESCENDANTS (LIST (SETQ .%%SYMBOL-LABEL%%.17 (MAKE-INSTANCE 'PAIL-LIB:EBG-TREE :DESCENDANTS (LIST (SETQ .%%SYMBOL-LABEL%%.18 (MAKE-INSTANCE 'PAIL-LIB:EBG-TREE :DESCENDANTS (LIST (SETQ .%%SYMBOL-LABEL%%.19 (MAKE-INSTANCE 'PAIL-LIB:EBG-TREE :DESCENDANTS NIL :CONTENT NIL :UID "EBG18" :SUBSTITUTIONS NIL :FACT (LIST 'VOLUME 'BOOK 1))) (SETQ .%%SYMBOL-LABEL%%.20 (MAKE-INSTANCE 'PAIL-LIB:EBG-TREE :DESCENDANTS NIL :CONTENT NIL :UID "EBG19" :SUBSTITUTIONS NIL :FACT (LIST 'DENSITY 'BOOK 4)))) :CONTENT (SETQ .%%SYMBOL-LABEL%%.21 (MAKE-INSTANCE 'PAIL-LIB:RULE :DATE-PART 311091 :DOC-PART 'NO_DOCUMENTATION :TYPE-PART 'FORWARD :THEN-PART (LIST 'WEIGHT '?P1 (LIST '* '?V1 '?D1)) :IF-PART (LIST (LIST 'VOLUME '?P1 '?V1) (LIST 'DENSITY '?P1 '?D1)) :NAME-PART 'RULE-A)) :UID "EBG20" :SUBSTITUTIONS NIL :FACT NIL)) (SETQ .%%SYMBOL-LABEL%%.22 (MAKE-INSTANCE 'PAIL-LIB:EBG-TREE :DESCENDANTS (LIST (SETQ .%%SYMBOL-LABEL%%.23 (MAKE-INSTANCE 'PAIL-LIB:EBG-TREE :DESCENDANTS NIL :CONTENT NIL :UID "EBG21" :SUBSTITUTIONS NIL :FACT (LIST 'ISA 'THIS-TABLE 'TABLE)))) :CONTENT (SETQ .%%SYMBOL-LABEL%%.24 (MAKE-INSTANCE 'PAIL-LIB:RULE :DATE-PART 311091 :DOC-PART 'NO_DOCUMENTATION :TYPE-PART 'FORWARD :THEN-PART (LIST 'WEIGHT '?P1 5) :IF-PART (LIST (LIST 'ISA '?P1 'TABLE)) :NAME-PART 'RULE-C)) :UID "EBG22" :SUBSTITUTIONS NIL :FACT NIL)) (SETQ .%%SYMBOL-LABEL%%.25 (MAKE-INSTANCE 'PAIL-LIB:EBG-TREE :DESCENDANTS NIL :CONTENT NIL :UID "EBG23" :SUBSTITUTIONS NIL :FACT (LIST '< (LIST '* 1 4) 5)))) :CONTENT (SETQ .%%SYMBOL-LABEL%%.26 (MAKE-INSTANCE 'PAIL-LIB:RULE :DATE-PART 311091 :DOC-PART 'NO_DOCUMENTATION :TYPE-PART 'FORWARD :THEN-PART (LIST 'LIGHTER '?P1 '?P2) :IF-PART (LIST (LIST 'WEIGHT '?P1 '?W1) (LIST 'WEIGHT '?P2 '?W2) (LIST 'LISP '< '?W1 '?W2)) :NAME-PART 'RULE-B)) :UID "EBG24" :SUBSTITUTIONS NIL :FACT NIL))) :CONTENT (SETQ .%%SYMBOL-LABEL%%.27 (MAKE-INSTANCE 'PAIL-LIB:RULE :DATE-PART 311091 :DOC-PART 'NO_DOCUMENTATION :TYPE-PART 'FORWARD :THEN-PART (LIST 'SAFE-TO-STACK '?P1 '?P2) :IF-PART (LIST (LIST 'LIGHTER '?P1 '?P2)) :NAME-PART 'RULE-E)) :UID "EBG25" :SUBSTITUTIONS NIL :FACT NIL)) :NAME-PART "stacktree"))) (SETQ .%%SYMBOL-LABEL%%.28 (MAKE-INSTANCE 'PAIL-LIB:POOL-ITEM :NAME-PART "stackrules" :START-OBJECT (PAIL-LIB::GET-FILE-OBJECT "stackrules"))) (SETQ .%%SYMBOL-LABEL%%.29 (MAKE-INSTANCE 'PAIL-LIB:POOL-ITEM :NAME-PART "john" :START-OBJECT (PAIL-LIB::GET-FILE-OBJECT "john"))) (SETQ .%%SYMBOL-LABEL%%.30 (SETQ .%%SYMBOL-LABEL%%.30 (MAKE-INSTANCE 'PAIL-LIB:POOL-ITEM :FROM-BUTTON NIL :START-OBJECT (SETQ .%%SYMBOL-LABEL%%.31 (MAKE-INSTANCE 'PAIL-LIB:EBG-TREE :DESCENDANTS (LIST (SETQ .%%SYMBOL-LABEL%%.32 (MAKE-INSTANCE 'PAIL-LIB:EBG-TREE :DESCENDANTS (LIST (SETQ .%%SYMBOL-LABEL%%.33 (MAKE-INSTANCE 'PAIL-LIB:EBG-TREE :DESCENDANTS NIL :CONTENT NIL :UID "EBG106" :SUBSTITUTIONS NIL :FACT (LIST 'DEPRESSED 'JOHN)))) :CONTENT (SETQ .%%SYMBOL-LABEL%%.34 (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%%.35 (MAKE-INSTANCE 'PAIL-LIB:EBG-TREE :DESCENDANTS (LIST (SETQ .%%SYMBOL-LABEL%%.36 (MAKE-INSTANCE 'PAIL-LIB:EBG-TREE :DESCENDANTS NIL :CONTENT NIL :UID "EBG108" :SUBSTITUTIONS NIL :FACT (LIST 'BUYS 'JOHN 'GUN1)))) :CONTENT (SETQ .%%SYMBOL-LABEL%%.37 (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%%.38 (MAKE-INSTANCE 'PAIL-LIB:EBG-TREE :DESCENDANTS (LIST (SETQ .%%SYMBOL-LABEL%%.39 (MAKE-INSTANCE 'PAIL-LIB:EBG-TREE :DESCENDANTS NIL :CONTENT NIL :UID "EBG110" :SUBSTITUTIONS NIL :FACT (LIST 'GUN 'GUN1)))) :CONTENT (SETQ .%%SYMBOL-LABEL%%.40 (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%%.41 (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"))) (SETQ .%%SYMBOL-LABEL%%.42 (SETQ .%%SYMBOL-LABEL%%.42 (MAKE-INSTANCE 'PAIL-LIB:POOL-ITEM :FROM-BUTTON NIL :START-OBJECT (SETQ .%%SYMBOL-LABEL%%.43 (MAKE-INSTANCE 'PAIL-LIB:TRE-EXAMPLE :LISP-CODE NIL :CONTRADICTION NIL :ASSERTIONS NIL :RULE-SET NIL :NAME-PART NIL)) :NAME-PART "NEW EXAMPLE")))) :CONTENTS (LIST (SETQ .%%SYMBOL-LABEL%%.44 (MAKE-INSTANCE 'PAIL-LIB::FILENTRY :CLASSNAME "EBG-TREE" :POOLNAME "stacktree")) (SETQ .%%SYMBOL-LABEL%%.45 (MAKE-INSTANCE 'PAIL-LIB::FILENTRY :CLASSNAME "RULE-SET" :POOLNAME "stackrules")) (SETQ .%%SYMBOL-LABEL%%.46 (MAKE-INSTANCE 'PAIL-LIB::FILENTRY :CLASSNAME "WORKING-MEMORY" :POOLNAME "john")) (SETQ .%%SYMBOL-LABEL%%.47 (MAKE-INSTANCE 'PAIL-LIB::FILENTRY :CLASSNAME "EBG-TREE" :POOLNAME "whyohwhy")) (SETQ .%%SYMBOL-LABEL%%.48 (MAKE-INSTANCE 'PAIL-LIB::FILENTRY :CLASSNAME "TRE-EXAMPLE" :POOLNAME "NEW EXAMPLE"))) :FILENAME "")))