+2010-06-18 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * emacs-lisp/byte-lexbind.el (byte-compile-compute-lforminfo):
+ specialp -> special-variable-p.
+
2010-06-15 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/bytecomp.el (byte-compile-initial-macro-environment):
;;; byte-lexbind.el --- Lexical binding support for byte-compiler
;;
-;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2002, 2010 Free Software Foundation, Inc.
;;
;; Author: Miles Bader <miles@gnu.org>
;; Keywords: lisp, compiler, lexical binding
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
+;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; Find the bound variables
(dolist (clause (cadr form))
(let ((var (if (consp clause) (car clause) clause)))
- (unless (or (specialp var) (memq var special))
+ (unless (or (special-variable-p var) (memq var special))
(byte-compile-lforminfo-add-var lforminfo var t))))
;; Analyze the body
(unless (null (byte-compile-lforminfo-vars lforminfo))
(when (and (consp clause) lforminfo)
(byte-compile-lforminfo-analyze lforminfo (cadr clause)
special nil))
- (unless (or (specialp var) (memq var special))
+ (unless (or (special-variable-p var) (memq var special))
(byte-compile-lforminfo-add-var lforminfo var t))))
;; Analyze the body
(unless (null (byte-compile-lforminfo-vars lforminfo))
\f
-DEFUN ("specialp", Fspecialp, Sspecialp, 1, 1, 0,
+DEFUN ("special-variable-p", Fspecial_variable_p, Sspecial_variable_p, 1, 1, 0,
doc: /* Return non-nil if SYMBOL's global binding has been declared special.
A special variable is one that will be bound dynamically, even in a
context where binding is lexical by default. */)
defsubr (&Sbacktrace);
defsubr (&Sbacktrace_frame);
defsubr (&Scurry);
- defsubr (&Sspecialp);
+ defsubr (&Sspecial_variable_p);
defsubr (&Sfunctionp);
}