genesis.asd package.lisp @@ -26,16 +26,8 @@ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. |# -(defpackage "GENESIS" - (:use "CL" "LISP-UNIT") - (:export "RULE" - "*CURRENT-POPULATION*" - "GENETIC-ALGORITHM" - "FUNCALL-RULES" - "FUNCALL-BEST")) - (in-package "GENESIS") - + (load "./utility.lisp") (defstruct RULE genesis.lisp @@ -25,8 +25,6 @@ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. |# -(load "./utility.lisp") - (defvar *sample-values* #(-1 1 genesis::num genesis::num randomnum randomfrac) "Sample values that can be produced. You can get either -1, 0, 1, square-root-sample.lisp @@ -53,8 +53,7 @@ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. (defmacro swap (item1 item2) - "Swaps the contents of item1 and item2. I can't believe this isn't defined - in the standard." + "Swaps the contents of item1 and item2." (let ((tmp (gensym))) `(progn (setf ,tmp ,item1) utility.lisp 399d364c58c6390668ed70480642123b07b87c5f Jake Voytko jakevoytko@gmail.com http://github.com/jakevoytko/genesis/commit/a93843a40ebdafdd223e410f14223858dde0a14b a93843a40ebdafdd223e410f14223858dde0a14b 2009-01-02T20:49:04-08:00 2009-01-02T20:49:04-08:00 I officially added the ASDF system definition that tracks down the "Lisp-Unit" dependency!" d903aa0d7e0e18917fa62a7178d3a6776151a59e Jake Voytko jakevoytko@gmail.com