Begin inlining things
Things seemed a bit slow, so I decided to start poking around the guts of this
thing I've built. After a couple hours of profiling, poring over disassembly,
tweaking the hottest functions, and inlining things once their bodies were small
enough, I can say it's definitely faster.
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Sun, 15 May 2016 00:06:53 +0000 |
| parents |
0b8e6d6401c2 |
| children |
13136d4b4761 |
(let ((*standard-output* (make-broadcast-stream)))
(ql:quickload "bones-test"))
(defvar *passed* t)
(defun test (spec)
(let ((result (5am:run spec)))
(5am:explain! result)
(when (not (5am:results-status result))
(setf *passed* nil))))
(test :bones)
(test :bones.paip)
(test :bones.wam)
(test :bones.circle)
(sb-ext:exit :code (if *passed* 0 1))