Function: edebug-basic-spec

edebug-basic-spec is an autoloaded and byte-compiled function defined in edebug.el.gz.

Signature

(edebug-basic-spec SPEC)

Documentation

Return t if SPEC uses only extant spec symbols.

An extant spec symbol is a symbol that is not a function and has a edebug-form-spec property.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/edebug.el.gz
;;;###autoload
(defun edebug-basic-spec (spec)
  "Return t if SPEC uses only extant spec symbols.
An extant spec symbol is a symbol that is not a function and has a
`edebug-form-spec' property."
  (cond ((listp spec)
	 (catch 'basic
	   (while spec
	     (unless (edebug-basic-spec (car spec)) (throw 'basic nil))
	     (setq spec (cdr spec)))
	   t))
	((symbolp spec)
	 (unless (functionp spec)
           (and (function-get spec 'edebug-form-spec) t)))))