examples/bench.lisp @ d26fa87611c0
Purge compiled CL code before benchmarking
| author | Steve Losh <steve@stevelosh.com> |
|---|---|
| date | Mon, 02 May 2016 19:29:36 +0000 |
| parents | ceecc846dd67 |
| children | b36cb61805d4 |
(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-exhaust)) (in-package :bones.wam) (format t "WAM -------------------------------~%") (time (dfs-exhaust))