anchor.diff:         (car result)))))
   
   (defun bodyify (form)
  +  "Turn a single form into a list of forms appropriate for splicing
  +with ,@ in a macro.
  +
  +If `form' is a `progn' form, then this simply returns the cdr of
  +`form'.  Otherwise, this returns a list containing `form'.  This is
  +useful if you want to unroll `progn' forms in your macros."
     (if (and (consp form)
              (eq 'progn (car form)))
         (cdr form)
  
positive.code:        ,sigil)))
  
  (defmacro -> (value &body forms)
    (let ((sigil (gensym "SIGIL")))
      (labels
          ((prepare (form)
  
negative.code:            (values))))))
  
  (defun dump-logs (&optional (output-stream *standard-output*))
    "Write out all recorded log lines to the given output stream."
    (with-lock-held (*log-buffer-lock*)
      (loop :for chunk :across *log-buffer* :do
         (loop :for line :across chunk :do
  