anchor.diff:                    (setf my-list nil second 8)
                     (incf second 2)
                     (list my-list my-other-list second))
  -                output)))
  -      '((nil (0 10 2) 10)
  -        "(0 1 2)"))
  +                output))))
     (flet ((double (number)
              (* number 2)))
  -    (is equal
  +    (is equal '(4 nil)
           (let ((a 2) (b 8))
             (updatef (values a b) #'double)
  -          (list a b))
  -        '(4 nil))
  -    (is equal
  +          (list a b)))
  +    (is equal '(6 -8)
           (let ((a 2) (b 8))
             (updatef a #'1+
                      a #'double
                      b #'-)
  -          (list a b))
  -        '(6 -8))
  -    (is equalp
  +          (list a b)))
  +    (is equalp '(#(1 4) 3)
           (let ((a (vector 1 2))
                 (printcount 0))
             (flet ((fakeprint (value)
  
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: (cl:in-package #:place-utils_tests)
  
  (define-test "featured examples"
    (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)))
  