Function: unsafep-function

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

Signature

(unsafep-function FUN)

Documentation

Return nil if FUN is a safe function.

(Either a safe lambda or a symbol that names a safe function).
Otherwise result is a reason code.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/unsafep.el.gz
(defun unsafep-function (fun)
  "Return nil if FUN is a safe function.
\(Either a safe lambda or a symbol that names a safe function).
Otherwise result is a reason code."
  (cond
   ((eq (car-safe fun) 'lambda)
    (unsafep fun unsafep-vars))
   ((not (and (symbolp fun)
	      (or (function-get fun 'side-effect-free)
		  (eq (get fun 'safe-function) t)
		  (eq safe-functions t)
		  (memq fun safe-functions))))
    `(function ,fun))))