examples/bench.lisp @ ceecc846dd67
Add a benchrunner
author | Steve Losh <steve@stevelosh.com> |
---|---|
date | Mon, 02 May 2016 17:55:07 +0000 |
parents | (none) |
children | d26fa87611c0 |
(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))