Refactor the parsing and register assignment
Instead of using bare lists/conses/numbers for register assignments we now use
a separate data type. This is a bit more wordy, but far easier to read and work
with.
author |
Steve Losh <steve@stevelosh.com> |
date |
Thu, 14 Apr 2016 17:16:20 +0000 |
parents |
ae2b13a9a629 |
children |
00f7bec64b84 |
(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)
(sb-ext:exit :code (if *passed* 0 1))