anchor.diff:                            bench-psort
                             bench-preduce
                             bench-pfib
  -                          bench-pmm))
  +                          bench-pmatrix-mul))
   
   (defparameter *sizes* '(10 100 500 1000 5000 10000 50000 100000 200000))
   
  
positive.code: 
         (compute-rows-between 0 (1- n)))))
  
  (define-mm mm defun let)
  (define-mm pmm defpar plet)
  
  (defun run-mm (fn n)
    (funcall fn
  
negative.code:            (make-array (* n n) :initial-element 2)
             (make-array (* n n) :initial-element nil)))
  
  (defun bench-pmatrix-mul ()
    (let ((fns        '(matrix-mul pmatrix-mul))
          (trials     *trials*)
          (rehearsals *rehearsals*))
      (bench
  