anchor.diff:    "Descriptor for a Compressed-Row-Storage matrix following LAPACK conventions."
     (cols 0 :type (integer 1 #.most-positive-fixnum))
     (rows 0 :type (integer 1 #.most-positive-fixnum))
  -  (col-ind nil :type (simple-array fixnum (*)))
  -  (row-ptr nil :type (simple-array fixnum (*)))
  +  (col-ind nil :type (simple-array foreign-int (*)))
  +  (row-ptr nil :type (simple-array foreign-int (*)))
     (data-fill 0 :type (integer 0 #.most-positive-fixnum))
     (row-fill 0 :type (integer 0 #.most-positive-fixnum)))
   
  
positive.code:   crs-matrix)
  
  
  ;;(defun crs-matrix (columns-list values-list))
  
negative.code: 
  (in-package :amino-type)
  
  (deftype foreign-int ()
    '(signed-byte #.(* 8 (cffi:foreign-type-size :int))))
  
  (defstruct (crs-matrix (:include real-array)
                         (:constructor %make-crs-matrix)
  