anchor.diff:                (b (copy-seq source)))
             (is (equalp ( sort a #'< :key (lambda (x) (* -1 x)))
                         (psort b #'< :key (lambda (x) (* -1 x)) :parts i)))
  +          #-abcl
             (is (equalp ( sort a #'< :key (lambda (x) (* -1 x)))
                         (psort b #'< :key (lambda (x) (* -1 x)) :parts i))))))
       (let1 source (make-array 50 :initial-element 5)
  
positive.code:               (b (copy-seq source)))
            (is (equalp ( sort a #'<)
                        (psort b #'< :parts i)))
            (is (equalp ( sort a #'<)
                        (psort b #'< :parts i)))
            (is (equalp ( sort a #'>)
                        (psort b #'> :parts i))))))
      (let1 source (vector 5 1 9 3 6 0 1 9)
  
negative.code:               (b (copy-seq source)))
            (is (equalp ( sort a #'<)
                        (psort b #'< :parts i)))
            #-abcl
            (is (equalp ( sort a #'<)
                        (psort b #'< :parts i)))
            #-abcl
            (is (equalp ( sort a #'>)
                        (psort b #'> :parts i))))))))
  
  