Function: wisent-automaton-p

wisent-automaton-p is a byte-compiled function defined in wisent.el.gz.

Signature

(wisent-automaton-p OBJ)

Documentation

Return non-nil if OBJ is a LALR automaton.

If OBJ is a symbol check its value.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/wisent/wisent.el.gz
;;; Special functions
(defun wisent-automaton-p (obj)
  "Return non-nil if OBJ is a LALR automaton.
If OBJ is a symbol check its value."
  (and obj (symbolp obj) (boundp obj)
       (setq obj (symbol-value obj)))
  (and (vectorp obj) (= 4 (length obj))
       (vectorp (aref obj 0)) (vectorp (aref obj 1))
       (= (length (aref obj 0)) (length (aref obj 1)))
       (listp (aref obj 2)) (obarrayp (aref obj 3))))