Lines Matching +defs:var +defs:error
164 (defsubst elint-env-add-var (env var)
167 (cons (cons (list var) (car env)) (cdr env)))
169 (defsubst elint-env-add-global-var (env var)
173 (nconc (car env) (list (list var)))
176 (defsubst elint-env-find-var (env var)
179 (assq var (car env)))
234 (error "Lint what?"))
291 (error "Missing ')' in top form: %s" (buffer-substring pos (point)))))
311 (setq env (elint-env-add-var env (car (cdr form)))))
349 (error "dummy error...")))
350 (error
416 (elint-error "Call to undefined function: %s" form))
461 (defun elint-unbound-variable (var env)
463 (not (or (eq var nil)
464 (eq var t)
465 (elint-env-find-var env var)
466 (memq var elint-standard-variables))))
490 (elint-error "Wrong number of args: %s, %s" arglist argpattern)
538 (elint-error "cond clause should be a list: %s" (car form)))
547 (setq env (elint-env-add-var env p)))
557 (elint-error "Missing varlist in let: %s" form)
560 ;; Check for (let (a (car b)) ...) type of error
572 (setq newenv (elint-env-add-var newenv s)))
579 (elint-env-add-var newenv (car s))))
580 (t (elint-error
592 (elint-error "Missing value in setq: %s" form))
604 (elint-error "Setting non-symbol in setq: %s" sym))
607 (setq newenv (elint-env-add-var newenv sym))))
615 (elint-env-add-global-var (elint-form (nth 2 form) env)
617 (elint-error "Malformed variable declaration: %s" form)
625 (elint-env-add-global-var (elint-form (nth 2 form) env)
627 (elint-error "Malformed variable declaration: %s" form)
642 (t (elint-error "Not a function object: %s" form)
658 (elint-error "Malformed condition-case: %s" form)
663 (let ((newenv (elint-env-add-var env (car (cdr form))))
669 (or (get s 'error-conditions)
670 (get s 'error-message)
672 "Not an error symbol in error handler: %s" s))))
676 (t (elint-error "Bad error list in error handler: %s"
689 ;; elint-error and elint-warning are identical, but they might change
692 (defun elint-error (string &rest args)
693 "Report a linting error.