anchor.diff:  
   (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)
  
positive.code:   crs-matrix)
  
  
  ;;(defun crs-matrix (columns-list values-list))
  
negative.code:   "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 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)))
  
  