Function: math-matrixp

math-matrixp is a byte-compiled function defined in calc-ext.el.gz.

Signature

(math-matrixp A)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-ext.el.gz
;;; True if A is a matrix.  [P x] [Public]
(defun math-matrixp (a)
  (and (Math-vectorp a)
       (Math-vectorp (nth 1 a))
       (cdr (nth 1 a))
       (let ((len (length (nth 1 a))))
	 (setq a (cdr a))
	 (while (and (setq a (cdr a))
		     (Math-vectorp (car a))
		     (= (length (car a)) len)))
	 (null a))))