anchor.diff:  
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  -;;; Allocation
  +;;; Memory Management
   
   (defun map-program-buffer-groups (function program)
     (let ((buffers '()))
  
positive.code: (defun evaluator-template-arguments (xmas-backend lazy-arrays unknowns)
    (let* ((root-buffers (ir-from-lazy-arrays lazy-arrays))
           (program (buffer-program (first root-buffers))))
      (values
       xmas-backend
       (program-number-of-buffers program)
       (result-processor root-buffers)
       (argument-processor program unknowns)
       (allocator program)
       (runner program root-buffers xmas-backend))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  
negative.code:                    (funcall process-results backend storage-vector ,@results)
                     (funcall process-arguments backend storage-vector ,@arguments)
                     (funcall allocate backend storage-vector)
                     (unwind-protect (funcall run backend storage-vector)
                       (funcall deallocate backend storage-vector))))
                 (lambda (,@results ,@arguments)
                   (let ((storage-vector (make-array number-of-buffers :initial-element nil)))
                     (funcall process-results backend storage-vector ,@results)
                     (funcall process-arguments backend storage-vector ,@arguments)
                     (funcall allocate backend storage-vector)
                     (unwind-protect (funcall run backend storage-vector)
                       (funcall deallocate backend storage-vector)))))))))))
  
  (defun generate-variable (prefix integer)
    (intern
  