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

(setq database:*db-input*
      (setq .%%symbol-label%%.1
            (make-instance
              'pail-lib::poolfile
              :real-contents
              (list (setq .%%symbol-label%%.2
                          (setq .%%symbol-label%%.2
                                (make-instance
                                  'pail-lib:pool-item
                                  :from-button
                                  nil
                                  :start-object
                                  (setq .%%symbol-label%%.3
                                        (make-instance
                                          'pail-lib:table
                                          :rows
                                          (list (list 'down 'old 'no 'software)
                                                (list 'down 'midlife 'yes 'software)
                                                (list 'up 'midlife 'no 'hardware)
                                                (list 'down 'old 'no 'hardware)
                                                (list 'up 'new 'no 'hardware)
                                                (list 'up 'new 'no 'software)
                                                (list 'up 'midlife 'no 'software)
                                                (list 'up 'new 'yes 'software)
                                                (list 'down 'midlife 'yes 'hardware)
                                                (list 'down 'old 'yes 'software))
                                          :number-of-rows
                                          10
                                          :attributes
                                          (list 'profit 'age 'competition 'type)))
                                  :name-part
                                  "companies")))
                    (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:table
                                          :rows
                                          (list (list 'down 20 'no 'software)
                                                (list 'down 8 'yes 'software)
                                                (list 'up 5 'no 'hardware)
                                                (list 'down 18 'no 'hardware)
                                                (list 'up 1 'no 'hardware)
                                                (list 'up 2 'no 'software)
                                                (list 'up 6 'no 'software)
                                                (list 'up 3 'yes 'software)
                                                (list 'down 5 'yes 'hardware)
                                                (list 'down 15 'yes 'software))
                                          :number-of-rows
                                          10
                                          :attributes
                                          (list 'profit 'age 'competition 'type)))
                                  :name-part
                                  "company-numeric"))))
              :contents
              (list (setq .%%symbol-label%%.6
                          (make-instance
                            'pail-lib::filentry
                            :classname
                            "table"
                            :poolname
                            "companies"))
                    (setq .%%symbol-label%%.7
                          (make-instance
                            'pail-lib::filentry
                            :classname
                            "table"
                            :poolname
                            "company-numeric")))
              :filename
              "id3-examples")))