
(/VERSIONCHECK 2) 

(PUT '|CDFMAT;minRowIndex;$I;1| '|SPADreplace| '(XLAM (|x|) 0)) 

(DEFUN |CDFMAT;minRowIndex;$I;1| (|x| $) 0) 

(PUT '|CDFMAT;minColIndex;$I;2| '|SPADreplace| '(XLAM (|x|) 0)) 

(DEFUN |CDFMAT;minColIndex;$I;2| (|x| $) 0) 

(PUT '|CDFMAT;nrows;$Nni;3| '|SPADreplace| 'CDANROWS) 

(DEFUN |CDFMAT;nrows;$Nni;3| (|x| $) (CDANROWS |x|)) 

(PUT '|CDFMAT;ncols;$Nni;4| '|SPADreplace| 'CDANCOLS) 

(DEFUN |CDFMAT;ncols;$Nni;4| (|x| $) (CDANCOLS |x|)) 

(DEFUN |CDFMAT;maxRowIndex;$I;5| (|x| $) (- (CDANROWS |x|) 1)) 

(DEFUN |CDFMAT;maxColIndex;$I;6| (|x| $) (- (CDANCOLS |x|) 1)) 

(PUT '|CDFMAT;qelt;$2IC;7| '|SPADreplace| 'CDAREF2) 

(DEFUN |CDFMAT;qelt;$2IC;7| (|m| |i| |j| $) (CDAREF2 |m| |i| |j|)) 

(PUT '|CDFMAT;elt;$2IC;8| '|SPADreplace| 'CDAREF2) 

(DEFUN |CDFMAT;elt;$2IC;8| (|m| |i| |j| $) (CDAREF2 |m| |i| |j|)) 

(PUT '|CDFMAT;qsetelt!;$2I2C;9| '|SPADreplace| 'CDSETAREF2) 

(DEFUN |CDFMAT;qsetelt!;$2I2C;9| (|m| |i| |j| |r| $)
  (CDSETAREF2 |m| |i| |j| |r|)) 

(PUT '|CDFMAT;setelt;$2I2C;10| '|SPADreplace| 'CDSETAREF2) 

(DEFUN |CDFMAT;setelt;$2I2C;10| (|m| |i| |j| |r| $)
  (CDSETAREF2 |m| |i| |j| |r|)) 

(PUT '|CDFMAT;empty;$;11| '|SPADreplace| '(XLAM NIL (MAKE-CDOUBLE-MATRIX 0 0))) 

(DEFUN |CDFMAT;empty;$;11| ($) (MAKE-CDOUBLE-MATRIX 0 0)) 

(PUT '|CDFMAT;qnew;2I$;12| '|SPADreplace| 'MAKE-CDOUBLE-MATRIX) 

(DEFUN |CDFMAT;qnew;2I$;12| (|rows| |cols| $)
  (MAKE-CDOUBLE-MATRIX |rows| |cols|)) 

(DEFUN |CDFMAT;new;2NniC$;13| (|rows| |cols| |a| $)
  (PROG (#1=#:G1819 |j| #2=#:G1818 |i| |res|)
    (RETURN
     (SEQ
      (LETT |res| (MAKE-CDOUBLE-MATRIX |rows| |cols|)
            . #3=(|CDFMAT;new;2NniC$;13|))
      (SEQ (LETT |i| 0 . #3#) (LETT #2# (- |rows| 1) . #3#) G190
           (COND ((QSGREATERP |i| #2#) (GO G191)))
           (SEQ
            (EXIT
             (SEQ (LETT |j| 0 . #3#) (LETT #1# (- |cols| 1) . #3#) G190
                  (COND ((QSGREATERP |j| #1#) (GO G191)))
                  (SEQ (EXIT (CDSETAREF2 |res| |i| |j| |a|)))
                  (LETT |j| (QSADD1 |j|) . #3#) (GO G190) G191 (EXIT NIL))))
           (LETT |i| (QSADD1 |i|) . #3#) (GO G190) G191 (EXIT NIL))
      (EXIT |res|))))) 

(DEFUN |ComplexDoubleFloatMatrix| #1=()
  (PROG #1#
    (RETURN
     (PROG (#2=#:G1833)
       (RETURN
        (COND
         ((LETT #2# (HGET |$ConstructorCache| '|ComplexDoubleFloatMatrix|)
                . #3=(|ComplexDoubleFloatMatrix|))
          (|CDRwithIncrement| (CDAR #2#)))
         ('T
          (UNWIND-PROTECT
              (PROG1
                  (CDDAR
                   (HPUT |$ConstructorCache| '|ComplexDoubleFloatMatrix|
                         (LIST
                          (CONS NIL (CONS 1 (|ComplexDoubleFloatMatrix;|))))))
                (LETT #2# T . #3#))
            (COND
             ((NOT #2#)
              (HREM |$ConstructorCache| '|ComplexDoubleFloatMatrix|))))))))))) 

(DEFUN |ComplexDoubleFloatMatrix;| ()
  (PROG (|dv$| $ #1=#:G1831 #2=#:G1830 |pv$|)
    (RETURN
     (PROGN
      (LETT |dv$| '(|ComplexDoubleFloatMatrix|)
            . #3=(|ComplexDoubleFloatMatrix|))
      (LETT $ (GETREFV 38) . #3#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3
                (LETT |pv$|
                      (|buildPredVector| 0 0
                                         (LIST
                                          (LETT #1#
                                                (|HasCategory|
                                                 (|Complex| (|DoubleFloat|))
                                                 '(|SetCategory|))
                                                . #3#)
                                          (AND
                                           (|HasCategory|
                                            (|Complex| (|DoubleFloat|))
                                            '(|Evalable|
                                              (|Complex| (|DoubleFloat|))))
                                           #1#)
                                          (LETT #2#
                                                (|HasCategory|
                                                 (|Complex| (|DoubleFloat|))
                                                 '(|CoercibleTo|
                                                   (|OutputForm|)))
                                                . #3#)
                                          (OR #2#
                                              (AND
                                               (|HasCategory|
                                                (|Complex| (|DoubleFloat|))
                                                '(|Evalable|
                                                  (|Complex| (|DoubleFloat|))))
                                               #1#))
                                          (|HasCategory|
                                           (|Complex| (|DoubleFloat|))
                                           '(|AbelianGroup|))
                                          (|HasCategory|
                                           (|Complex| (|DoubleFloat|))
                                           '(|Monoid|))
                                          (|HasCategory|
                                           (|Complex| (|DoubleFloat|))
                                           '(|EuclideanDomain|))
                                          (|HasCategory|
                                           (|Complex| (|DoubleFloat|))
                                           '(|IntegralDomain|))
                                          (|HasCategory|
                                           (|Complex| (|DoubleFloat|))
                                           '(|CommutativeRing|))
                                          (|HasCategory|
                                           (|Complex| (|DoubleFloat|))
                                           '(|Field|))))
                      . #3#))
      (|haddProp| |$ConstructorCache| '|ComplexDoubleFloatMatrix| NIL
                  (CONS 1 $))
      (|stuffDomainSlots| $)
      (AND (|HasCategory| $ '(|finiteAggregate|)) (|augmentPredVector| $ 1024))
      (AND (|HasCategory| $ '(|finiteAggregate|)) #1#
           (|augmentPredVector| $ 2048))
      (SETF |pv$| (QREFELT $ 3))
      $)))) 

(MAKEPROP '|ComplexDoubleFloatMatrix| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|Integer|) |CDFMAT;minRowIndex;$I;1|
              |CDFMAT;minColIndex;$I;2| (|NonNegativeInteger|)
              |CDFMAT;nrows;$Nni;3| |CDFMAT;ncols;$Nni;4|
              |CDFMAT;maxRowIndex;$I;5| |CDFMAT;maxColIndex;$I;6|
              (|Complex| (|DoubleFloat|)) |CDFMAT;qelt;$2IC;7|
              |CDFMAT;elt;$2IC;8| |CDFMAT;qsetelt!;$2I2C;9|
              |CDFMAT;setelt;$2I2C;10| |CDFMAT;empty;$;11| |CDFMAT;qnew;2I$;12|
              |CDFMAT;new;2NniC$;13| (|List| 14) (|Equation| 14) (|List| 23)
              (|Boolean|) (|OutputForm|) (|List| 32) (|Union| $ '"failed")
              (|SingleInteger|) (|String|) (|Mapping| 25 14)
              (|ComplexDoubleFloatVector|) (|List| 6) (|List| 22) (|List| $)
              (|Mapping| 14 14 14) (|Mapping| 14 14))
           '#(~= 0 |zero| 6 |vertConcat| 12 |transpose| 18 |symmetric?| 28
              |swapRows!| 33 |swapColumns!| 40 |subMatrix| 47 |squareTop| 56
              |square?| 61 |size?| 66 |setsubMatrix!| 72 |setelt| 80 |setRow!|
              96 |setColumn!| 103 |scalarMatrix| 110 |sample| 116 |rowEchelon|
              120 |row| 125 |rank| 131 |qsetelt!| 136 |qnew| 144 |qelt| 150
              |positivePower| 157 |parts| 163 |nullity| 168 |nullSpace| 173
              |nrows| 178 |new| 183 |ncols| 190 |more?| 195 |minordet| 201
              |minRowIndex| 206 |minColIndex| 211 |members| 216 |member?| 221
              |maxRowIndex| 227 |maxColIndex| 232 |matrix| 237 |map!| 242 |map|
              248 |listOfLists| 269 |less?| 274 |latex| 280 |inverse| 285
              |horizConcat| 290 |hash| 296 |fill!| 301 |exquo| 307 |every?| 313
              |eval| 319 |eq?| 345 |empty?| 351 |empty| 356 |elt| 360
              |diagonalMatrix| 382 |diagonal?| 392 |determinant| 397 |count|
              402 |copy| 414 |columnSpace| 419 |column| 424 |coerce| 430 |any?|
              440 |antisymmetric?| 446 ^ 451 |Pfaffian| 463 = 468 / 474 - 480 +
              491 * 497 |#| 533)
           'NIL
           (CONS (|makeByteWordVec2| 4 '(0 0 0 0 2 1 0 0 0 2 1 4))
                 (CONS
                  '#(|MatrixCategory&| |TwoDimensionalArrayCategory&|
                     |HomogeneousAggregate&| |Aggregate&| |Evalable&|
                     |SetCategory&| NIL NIL NIL |InnerEvalable&| |BasicType&|
                     NIL)
                  (CONS
                   '#((|MatrixCategory| 14 32 32)
                      (|TwoDimensionalArrayCategory| 14 32 32)
                      (|HomogeneousAggregate| 14) (|Aggregate|) (|Evalable| 14)
                      (|SetCategory|) (|Type|) (|finiteAggregate|)
                      (|shallowlyMutable|) (|InnerEvalable| 14 14)
                      (|BasicType|) (|CoercibleTo| 26))
                   (|makeByteWordVec2| 37
                                       '(2 1 25 0 0 1 2 0 0 9 9 1 2 0 0 0 0 1 1
                                         0 0 0 1 1 0 0 32 1 1 0 25 0 1 3 0 0 0
                                         6 6 1 3 0 0 0 6 6 1 5 0 0 0 6 6 6 6 1
                                         1 0 0 0 1 1 0 25 0 1 2 0 25 0 9 1 4 0
                                         0 0 6 6 0 1 4 0 0 0 33 33 0 1 4 0 14 0
                                         6 6 14 18 3 0 0 0 6 32 1 3 0 0 0 6 32
                                         1 2 0 0 9 14 1 0 0 0 1 1 7 0 0 1 2 0
                                         32 0 6 1 1 8 9 0 1 4 0 14 0 6 6 14 17
                                         2 0 0 6 6 20 3 0 14 0 6 6 15 2 0 0 0 6
                                         1 1 0 22 0 1 1 8 9 0 1 1 8 27 0 1 1 0
                                         9 0 10 3 0 0 9 9 14 21 1 0 9 0 11 2 0
                                         25 0 9 1 1 9 14 0 1 1 0 6 0 7 1 0 6 0
                                         8 1 11 22 0 1 2 12 25 14 0 1 1 0 6 0
                                         12 1 0 6 0 13 1 0 0 34 1 2 0 0 37 0 1
                                         3 0 0 36 0 0 1 4 0 0 36 0 0 14 1 2 0 0
                                         37 0 1 1 0 34 0 1 2 0 25 0 9 1 1 1 30
                                         0 1 1 10 28 0 1 2 0 0 0 0 1 1 1 29 0 1
                                         2 0 0 0 14 1 2 8 28 0 14 1 2 11 25 31
                                         0 1 3 2 0 0 14 14 1 3 2 0 0 22 22 1 2
                                         2 0 0 23 1 2 2 0 0 24 1 2 0 25 0 0 1 1
                                         0 25 0 1 0 0 0 19 3 0 0 0 33 33 1 4 0
                                         14 0 6 6 14 1 3 0 14 0 6 6 16 1 0 0 35
                                         1 1 0 0 22 1 1 0 25 0 1 1 9 14 0 1 2
                                         12 9 14 0 1 2 11 9 31 0 1 1 0 0 0 1 1
                                         7 27 0 1 2 0 32 0 6 1 1 3 26 0 1 1 0 0
                                         32 1 2 11 25 31 0 1 1 5 25 0 1 2 10 0
                                         0 6 1 2 6 0 0 9 1 1 9 14 0 1 2 1 25 0
                                         0 1 2 10 0 0 14 1 2 5 0 0 0 1 1 5 0 0
                                         1 2 0 0 0 0 1 2 5 0 6 0 1 2 0 32 0 32
                                         1 2 0 32 32 0 1 2 0 0 0 14 1 2 0 0 0 0
                                         1 2 0 0 14 0 1 1 11 9 0 1)))))
           '|lookupComplete|)) 

(MAKEPROP '|ComplexDoubleFloatMatrix| 'NILADIC T) 
