anchor.diff:              (row-major-aref m n)))))
   
   (defun compute-array-vector (m)
  -  ;; FIXME: Move this DEFUN to the MCi CLtL 'utils' system
     (declare (type array m)
              (values (simple-array t (*))))
     (let* ((len (apply #'* (the cons (array-dimensions m))))
  
positive.code: 
  (in-package #:math)
  
  
  (defun copy-array (m)
    (declare (type array m)
  
negative.code: (defun row (m i)
    (declare (type array-dimension-designator i)
             (type (array t (* *)) m)
             (values (array t (1 *))))
    (let* ((n-cols (array-dimension m 1))
           (reslt (make-array (list 1 n-cols)
                              :element-type (array-element-type m))))
      (declare (type array-dimension-designator n-cols)
               (type (array t (1 *)) reslt))
      (dotimes (n n-cols reslt)
        (setf (aref reslt 0 n) 
              (aref m i n))
  