#0Y UTF-8
(COMMON-LISP::PROGN (SYSTEM::C-PROVIDE '"matrix"))
(COMMON-LISP::PROGN
 (SYSTEM::%IN-PACKAGE #1="MATRIX" :NICKNAMES 'COMMON-LISP::NIL :USE
  'COMMON-LISP::NIL)
 (COMMON-LISP::USE-PACKAGE '("COMMON-LISP") #1#)
 (COMMON-LISP::FIND-PACKAGE #1#))
(COMMON-LISP::PROGN
 (COMMON-LISP::SETQ COMMON-LISP::*PACKAGE* (SYSTEM::%FIND-PACKAGE "MATRIX")))
(COMMON-LISP::PROGN
 (SYSTEM::C-DEFUN 'MATRIX::MAKE-VECTOR
  (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
   '(MATRIX::SIZE COMMON-LISP::&KEY (COMMON-LISP::TYPE 'COMMON-LISP::VECTOR)
     (MATRIX::INITIAL-ELEMENT 0.)))))
(COMMON-LISP::PROGN
 (SYSTEM::C-DEFUN 'MATRIX::MAKE-MATRIX
  (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
   '(MATRIX::NROWS MATRIX::NCOLS COMMON-LISP::&KEY
     (MATRIX::ROW-TYPE 'COMMON-LISP::LIST)
     (MATRIX::COL-TYPE 'COMMON-LISP::VECTOR) (MATRIX::INITIAL-ELEMENT 0.)))))
(COMMON-LISP::PROGN
 (SYSTEM::C-DEFUN 'MATRIX::MATRIX-DIMENSIONS
  (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(MATRIX::MATRIX))))
(COMMON-LISP::PROGN
 (SYSTEM::C-DEFUN 'MATRIX::NROWS
  (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(MATRIX::MATRIX))))
(COMMON-LISP::PROGN
 (SYSTEM::C-DEFUN 'MATRIX::NCOLS
  (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(MATRIX::MATRIX))))
(COMMON-LISP::PROGN
 (SYSTEM::C-DEFUN 'MATRIX::MATRIX-ELT
  (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
   '(MATRIX::MATRIX MATRIX::ROW MATRIX::COL))))
(COMMON-LISP::PROGN
 (SYSTEM::C-DEFUN 'MATRIX::SET-MATRIX-ELT
  (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
   '(MATRIX::MATRIX MATRIX::ROW MATRIX::COL MATRIX::VALUE))))
(COMMON-LISP::PROGN
 (COMMON-LISP::LET COMMON-LISP::NIL
  (COMMON-LISP::REMPROP 'MATRIX::MATRIX-ELT 'SYSTEM::DEFSTRUCT-WRITER)
  (SYSTEM::%PUT 'MATRIX::MATRIX-ELT 'SYSTEM::SETF-EXPANDER
   'MATRIX::SET-MATRIX-ELT)
  (SYSTEM::%SET-DOCUMENTATION 'MATRIX::MATRIX-ELT 'COMMON-LISP::SETF
   COMMON-LISP::NIL)
  'MATRIX::MATRIX-ELT))
(COMMON-LISP::PROGN
 (SYSTEM::C-DEFUN 'MATRIX::SPLIT-LINE
  (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(MATRIX::LINE))))
(COMMON-LISP::PROGN
 (SYSTEM::C-DEFUN 'MATRIX::READ-MATRIX
  (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(MATRIX::FILE))))
(COMMON-LISP::PROGN
 (SYSTEM::C-DEFUN 'MATRIX::WRITE-MATRIX
  (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
   '(MATRIX::FILE MATRIX::M COMMON-LISP::&KEY (COMMON-LISP::FORMAT "~e ")))))
(COMMON-LISP::PROGN
 (SYSTEM::C-DEFUN 'MATRIX::COLUMN
  (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
   '(MATRIX::MATRIX MATRIX::COL COMMON-LISP::&KEY
     (COMMON-LISP::TYPE 'COMMON-LISP::VECTOR)))))
(COMMON-LISP::PROGN
 (SYSTEM::C-DEFUN 'MATRIX::ROW
  (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
   '(MATRIX::MATRIX MATRIX::ROW COMMON-LISP::&KEY
     (COMMON-LISP::TYPE 'COMMON-LISP::VECTOR)))))
(COMMON-LISP::PROGN
 (SYSTEM::C-DEFUN 'MATRIX::SUB-MATRIX
  (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
   '(MATRIX::M COMMON-LISP::&KEY (MATRIX::ROW-START 0.)
     (MATRIX::ROW-END (MATRIX::NROWS MATRIX::M)) (MATRIX::COL-START 0.)
     (MATRIX::COL-END (MATRIX::NCOLS MATRIX::M))))))
(COMMON-LISP::PROGN
 (SYSTEM::C-DEFUN 'MATRIX::TRANSPOSE
  (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(MATRIX::M))))