# HG changeset patch # User Steve Losh # Date 1462217376 0 # Node ID d26fa87611c094a12c9a074539a58c07c4adcb4d # Parent 5503ccfaae6509b6ca4c936705b80a36c984f14d Purge compiled CL code before benchmarking diff -r 5503ccfaae65 -r d26fa87611c0 Makefile --- a/Makefile Mon May 02 19:07:40 2016 +0000 +++ b/Makefile Mon May 02 19:29:36 2016 +0000 @@ -25,4 +25,6 @@ hg -R ~/src/sjl.bitbucket.org push bench: + # jesus christ quicklisp + rm -rf ~/.cache/common-lisp sbcl-rlwrap --noinform --load examples/bench.lisp --eval '(quit)' diff -r 5503ccfaae65 -r d26fa87611c0 examples/bench.lisp --- a/examples/bench.lisp Mon May 02 19:07:40 2016 +0000 +++ b/examples/bench.lisp Mon May 02 19:29:36 2016 +0000 @@ -7,8 +7,8 @@ (in-package :bones.paip) (format t "PAIP ------------------------------~%") -(time (dfs)) +(time (dfs-exhaust)) (in-package :bones.wam) (format t "WAM -------------------------------~%") -(time (dfs)) +(time (dfs-exhaust))