;;;; -*- coding:utf-8 -*-

;; ----------------------------------------------------------------------
;; -- CMU-AI -- AIMA: Artificial Inteligence - A Modern Approach --
;; ----------------------------------------------------------------
(eval-when (:compile-toplevel :load-toplevel :execute)
  (setf *readtable* (copy-readtable nil)))

(load "cmu-ai:bookcode;aima;aima")
(aima-load 'all)

(defun compile-aima ()
  (aima-compile)
  (test 'all))

;;;; aima.lisp                        -- 2003-05-02 08:02:18 -- pascal   ;;;;