anchor.diff:  (cl:in-package #:place-utils_tests)
   
   (define-test "featured examples"
  -  (is equal
  +  (is equal '((nil (0 10 2) 10)
  +              "(0 1 2)")
         (let* ((my-list (list 0 1 2))
                (my-other-list my-list)
                (output (make-array 0 :element-type 'character :fill-pointer t :adjustable t)))
  
positive.code:     (macrolet ((spreadf (spread-function sum-function &rest places)
                   `(bulkf #'bulkf-spread :pass ,spread-function ,sum-function
                           :access ,@places)))
        (is equal
            (let ((a 5) (b (list 10 18 20)))
              (spreadf #'/ #'+ a (first b) (second b))
              (list a b))
            '(11 (11 11 20)))
        (is equal
            (let ((a 2) (b (list 2 4 8)))
              (spreadf #'* #'* a (first b) (second b) (third b))
              (list a b))
            '(512 (512 512 512)))))
    (is equal
        (flet ((bulkf-map (function &rest place-values)
                 (values-list (mapcar function place-values))))
          (macrolet ((mapf (function &rest places)
                       `(bulkf #'bulkf-map :pass ,function :access ,@places)))
            (let ((a 0) (b 5) (c (list 10 15)))
              (list (multiple-value-list (mapf #'1+ a b (second c)))
                    a b c))))
        '((1 6 16) 1 6 (10 16)))
    (is equal
        (flet ((bulkf-steal (sum-function steal-function
                                          initial-assets &rest target-assets)
                 (let (stolen leftovers)
  
negative.code:                             (:full t)
                              (:empty nil)))
                    :new-cachedp :full)
            (list values output))))
    (is equal '(5 7)
        (let ((a 5))
          (list (incf (oldf a) 2)
                a)))
    (is equal '(5 10)
        (let ((a 5))
          (list (setf (oldf a) 10)
                a)))
    (is equal '((1 2 3) (0 1 2 3))
        (let ((list '(1 2 3)))
          (list (push 0 (oldf list))
                list))))
  