ceecc846dd67

--- a/Makefile	Mon May 02 16:44:29 2016 +0000
+++ b/Makefile	Mon May 02 17:55:07 2016 +0000
@@ -1,4 +1,4 @@
-.PHONY: test pubdocs
+.PHONY: test pubdocs bench
 
 sourcefiles = $(shell ffind --full-path --dir src --literal .lisp)
 docfiles = $(shell ls docs/*.markdown)
@@ -24,3 +24,5 @@
 	hg -R ~/src/sjl.bitbucket.org commit -Am 'bones: Update site.'
 	hg -R ~/src/sjl.bitbucket.org push
 
+bench:
+	sbcl-rlwrap --noinform --load examples/bench.lisp  --eval '(quit)'

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/bench.lisp	Mon May 02 17:55:07 2016 +0000
@@ -0,0 +1,14 @@
+(declaim (optimize (speed 3) (safety 1) (debug 0)))
+
+(ql:quickload 'bones)
+
+(load "examples/ggp-paip.lisp")
+(load "examples/ggp.lisp")
+
+(in-package :bones.paip)
+(format t "PAIP ------------------------------~%")
+(time (dfs))
+
+(in-package :bones.wam)
+(format t "WAM -------------------------------~%")
+(time (dfs))

--- a/examples/ggp.lisp	Mon May 02 16:44:29 2016 +0000
+++ b/examples/ggp.lisp	Mon May 02 17:55:07 2016 +0000
@@ -1,7 +1,7 @@
 (in-package #:bones.wam)
 
-(declaim (optimize (speed 1) (safety 3) (debug 1)))
-; (declaim (optimize (speed 3) (safety 1) (debug 0)))
+; (declaim (optimize (speed 1) (safety 3) (debug 1)))
+(declaim (optimize (speed 3) (safety 1) (debug 0)))
 
 (defparameter *d* (make-database))