anchor.diff:  	   finally (return result)))
         (error 'dimension-mismatch :a A :b B)))
   
  -(defmethod .+ ((A simple-array) (B number))
  +(defmethod .+ ((A array) (B number))
     (let ((result (apply 'zeros (array-dimensions A))))
       (loop for i from 0 upto (1- (array-total-size A))
          do (setf (row-major-aref result i)
  
positive.code: 		   B))
         finally (return result))))
  
  (defmethod .+ ((A number) (B simple-array))
    (.+ B A))
  
  
  (defmethod .* ((A simple-array) (B simple-array))
  
negative.code: 	 do (setf (aref new j i) (aref M i j))
  	 return M)))
  
  (defgeneric .+ (A B)
    (:documentation "Matrix addition function, will also add single numbers elementwise to the matrix."))
  
  (defmethod .+ ((A array) (B array))
    (if (same-size-p A B)
        (let ((result (apply 'zeros (array-dimensions A))))
  	(loop for i from 0 upto (1- (array-total-size A))
  