Implement anonymous variables and the `*_void` opcodes
That was more difficult than I expected. The shitty part was that we have to
thread the anonymous variables way the hell down into the register allocation
phase. I took the opportunity to refactor a bit so further things like this
shouldn't be quite so bad.
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Mon, 04 Jul 2016 23:35:08 +0000 |
| parents |
13136d4b4761 |
| children |
23d4dc2900a1 |
(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)
(let ((exit-code (if *passed* 0 1)))
#+sbcl (sb-ext:exit :code exit-code)
#+ccl (quit exit-code))