Implement the query code runner
Also adds a few convenience functions for functors, and makes structures print
more nicely in the heap dump.
author |
Steve Losh <steve@stevelosh.com> |
date |
Sun, 10 Apr 2016 16:02:54 +0000 |
parents |
e29b793a6e91 |
children |
d16b5b360398 |
(in-package #:bones.utils)
;; TODO: learn setf expanders and do this right.
(defmacro push-if-new (thing list-place)
`(not (eql ,list-place (pushnew ,thing ,list-place))))
(defun vector-push-extend-all (vector &rest things)
(loop :for thing :in things :do
(vector-push-extend thing vector)))