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