4 (defun copy-to-matrix-type (m mtype
&key
(constrain nil
))
5 (let ((b (make-instance mtype
:rows
(rows m
) :cols
(cols m
))))
6 (matrix-move m b
:constrain constrain
)
9 (defgeneric copy-to-ub8-matrix
(m &key constrain
))
10 (defmethod copy-to-ub8-matrix ((m matrix
) &key
(constrain nil
))
11 (copy-to-matrix-type m
'ub8-matrix
:constrain constrain
))
13 (defgeneric copy-to-ub16-matrix
(m &key constrain
))
14 (defmethod copy-to-ub16-matrix ((m matrix
) &key
(constrain nil
))
15 (copy-to-matrix-type m
'ub16-matrix
:constrain constrain
))
17 (defgeneric copy-to-ub32-matrix
(m &key constrain
))
18 (defmethod copy-to-ub32-matrix ((m matrix
) &key
(constrain nil
))
19 (copy-to-matrix-type m
'ub32-matrix
:constrain constrain
))
21 (defgeneric copy-to-sb8-matrix
(m &key constrain
))
22 (defmethod copy-to-sb8-matrix ((m matrix
) &key
(constrain nil
))
23 (copy-to-matrix-type m
'sb8-matrix
:constrain constrain
))
25 (defgeneric copy-to-sb16-matrix
(m &key constrain
))
26 (defmethod copy-to-sb16-matrix ((m matrix
) &key
(constrain nil
))
27 (copy-to-matrix-type m
'sb16-matrix
:constrain constrain
))
29 (defgeneric copy-to-sb32-matrix
(m &key constrain
))
30 (defmethod copy-to-sb32-matrix ((m matrix
) &key
(constrain nil
))
31 (copy-to-matrix-type m
'sb32-matrix
:constrain constrain
))
33 (defgeneric copy-to-double-float-matrix
(m &key constrain
))
34 (defmethod copy-to-double-float-matrix ((m matrix
) &key
(constrain nil
))
35 (copy-to-matrix-type m
'double-float-matrix
:constrain constrain
))
37 (defgeneric copy-to-single-float-matrix
(m &key constrain
))
38 (defmethod copy-to-single-float-matrix ((m matrix
) &key
(constrain nil
))
39 (copy-to-matrix-type m
'single-float-matrix
:constrain constrain
))
41 (defgeneric copy-to-fixnum-matrix
(m &key constrain
))
42 (defmethod copy-to-fixnum-matrix ((m matrix
) &key
(constrain nil
))
43 (copy-to-matrix-type m
'fixnum-matrix
:constrain constrain
))
45 (defgeneric copy-to-bit-matrix
(m &key constrain
))
46 (defmethod copy-to-bit-matrix ((m matrix
) &key
(constrain t
))
47 (copy-to-matrix-type m
'bit-matrix
:constrain constrain
))
49 (defgeneric copy-to-complex-matrix
(m &key constrain
))
50 (defmethod copy-to-complex-matrix ((m matrix
) &key
(constrain t
))
51 (copy-to-matrix-type m
'complex-matrix
:constrain constrain
))