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: (cl:in-package #:place-utils_tests)
  
  (define-test "featured examples"
    (is equal
        (let* ((my-list (list 0 1 2))
               (my-other-list my-list)
               (output (make-array 0 :element-type 'character :fill-pointer t :adjustable t)))
  
negative.code:               (transferf 10
                           (first account-amounts)
                           (second account-amounts))
                account-amounts)))))
    (is equal '(0 0 (nil 0 nil))
        (flet ((bulkf-init (value number-of-places)
                 (values-list (make-list number-of-places
                                         :initial-element value))))
  