;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;  defaults.lisp
;;;  Written by:  Shaul Markovitch
;;;  Last time modified:10/1/2000
;;;
;;;  



(setf *default-generation-filtering-technique* (make-instance 'random-generation))
(setf *default-attention-filtering-technique* (make-instance 'min-to-better))
(setf *default-acquisition-filtering-technique* 
                                     (make-instance 'no-duplicate))
(setf *default-retention-filtering-technique*  (make-instance 'null-retention-filter))
(setf *default-utilization-filtering-technique* (make-instance 'same-state))

(setf *default-domain* (let ((g (make-instance 'connected-grid)))
			 (generate-domain g) g))

(setf *default-search-use-macros-flag* t)
(setf *default-search-technique* *best-first*)
(setf *default-training-search-strategy*
      (make-instance 'best-first-search))
(setf *default-testing-search-strategy*
      (make-instance 'best-first-search
		     :use-macros-flag t))
(setf *default-search-strategy*
            (make-instance 'best-first-search))
(setf *default-resource-type* 'problems)
(setf *default-max-resources* 100)
(setf  *default-use-macros-in-training-flag* t)
(setf *default-learning-strategy* (make-learning))