Lines Matching refs:forms
77 '((while test &rest forms)
251 (defvar elint-buffer-forms nil
252 "The top forms in a buffer.
263 Returns the forms."
265 (local-variable-p 'elint-buffer-forms (current-buffer))
269 elint-buffer-forms
271 (set (make-local-variable 'elint-buffer-forms) (elint-get-top-forms))
273 (elint-init-env elint-buffer-forms))
275 elint-buffer-forms))
277 (defun elint-get-top-forms ()
278 "Collect all the top forms in the current buffer."
297 Return nil if there are no more forms, t otherwise."
301 (defun elint-init-env (forms)
305 (while forms
306 (setq form (elint-top-form-form (car forms))
307 forms (cdr forms))
381 (defconst elint-special-forms
405 (let ((func (cdr (assq (car form) elint-special-forms))))
440 (elint-forms (cdr form) env))))
453 (defun elint-forms (forms env)
456 (while forms
457 (setq env (elint-form (car forms) env)
458 forms (cdr forms)))
529 ;;; Functions to check some special forms
537 (elint-forms (car form) env)
550 (elint-forms (cdr form) env))
585 ;; Lint the body forms
586 (elint-forms (cdr (cdr form)) newenv)
680 (elint-forms (cdr (car errforms)) newenv)