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:                           (values nil assets)
                            (values assets (if (numberp assets) 0 nil))))
                      cave museum house (first triplex) (second triplex) (third triplex))
              (list cave museum house triplex))))
        '((:INITIAL-ASSETS (:PAINTINGS :COLLECTION) 20000 NIL :RANDOM-STUFF 400)
          NIL
          0
          (:NOTHING-VALUABLE NIL 0)))
    (flet ((test (initial-value expected-result)
             (is equal
                 (let ((cache initial-value)
                       (output (make-array 0 :element-type 'character :fill-pointer t :adjustable t)))
                   (with-output-to-string (*standard-output* output)
                     (incf (cachef nil cache 0 :test #'numberp) (princ (+ 5 2)))
                     (list cache output)))
                 expected-result)))
      (test "cached-string" '(7 "7"))
      (test 20 '(27 "7")))
    (is equal
        (let ((values (list :empty :placeholder))
              (output (make-array 0 :element-type 'character :fill-pointer t :adjustable t)))
          (with-output-to-string (*standard-output* output)
  
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))))
  