Mercurial > hg > xemacs-beta

comparison lisp/bytecomp.el @ 5472:e79980ee5efe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with trunk.
author Mats Lidell <matsl@xemacs.org>
date Tue, 22 Feb 2011 22:56:02 +0100
parents 00e79bbbe48f 31475de17064
children ac37a5f7e5be
comparison
equal deleted inserted replaced
5471:00e79bbbe48f 5472:e79980ee5efe
2884 (subsetp . 3) (subst . 4) (subst-if . 4) (subst-if-not . 4) 2884 (subsetp . 3) (subst . 4) (subst-if . 4) (subst-if-not . 4)
2885 (substitute . 4) (substitute-if . 4) (substitute-if-not . 4) 2885 (substitute . 4) (substitute-if . 4) (substitute-if-not . 4)
2886 (tree-equal . 3))) 2886 (tree-equal . 3)))
2887 2887
2888 (defun byte-compile-normal-call (form) 2888 (defun byte-compile-normal-call (form)
2889 (and (get (car form) 'byte-compile-keyword-start) 2889 (and (symbolp (car form)) (get (car form) 'byte-compile-keyword-start)
2890 (let ((plist (nthcdr (get (car form) 'byte-compile-keyword-start) 2890 (let ((plist (nthcdr (get (car form) 'byte-compile-keyword-start)
2891 form))) 2891 form)))
2892 (symbol-macrolet 2892 (symbol-macrolet
2893 ((not-present '#:not-present)) 2893 ((not-present '#:not-present))
2894 (if (not (valid-plist-p plist)) 2894 (if (not (valid-plist-p plist))