Function: unsafep-let

unsafep-let is a byte-compiled function defined in unsafep.el.gz.

Signature

(unsafep-let CLAUSE)

Documentation

Check the safety of a let binding.

CLAUSE is a let-binding, either SYM or (SYM) or (SYM VAL). Check VAL and throw a reason to unsafep if unsafe. Return SYM.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/unsafep.el.gz
(defun unsafep-let (clause)
  "Check the safety of a let binding.
CLAUSE is a let-binding, either SYM or (SYM) or (SYM VAL).
Check VAL and throw a reason to `unsafep' if unsafe.
Return SYM."
  (let (reason sym)
    (if (atom clause)
	(setq sym clause)
      (setq sym    (car clause)
	    reason (unsafep (cadr clause) unsafep-vars)))
    (setq reason (or (unsafep-variable sym t) reason))
    (if reason (throw 'unsafep reason))
    sym))