anchor.diff:                           #'<
                            :min-part-size 100
                            :max-part-size 1000)))
  +      #-abcl
         (is (equalp ( sort a #'<)
                     (psort b
                            #'<
  
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))))))))
  
  