Mercurial > emacs

comparison lisp/emacs-lisp/cl-macs.el @ 107558:20d30f421e4b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from mainline.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Wed, 24 Mar 2010 21:57:06 +0000
parents 893b1b725ad5
children 0a321c28c1b4 79b2da2db690
comparison
equal deleted inserted replaced
107557:f8082cab4d03 107558:20d30f421e4b
1 ;;; cl-macs.el --- Common Lisp macros 1 ;;; cl-macs.el --- Common Lisp macros
2 2
3 ;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 3 ;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
4 ;; Free Software Foundation, Inc. 4 ;; 2009, 2010 Free Software Foundation, Inc.
5 5
6 ;; Author: Dave Gillespie <daveg@synaptics.com> 6 ;; Author: Dave Gillespie <daveg@synaptics.com>
7 ;; Version: 2.02 7 ;; Version: 2.02
8 ;; Keywords: extensions 8 ;; Keywords: extensions
9 9
2594 (defun cl-byte-compile-compiler-macro (form) 2594 (defun cl-byte-compile-compiler-macro (form)
2595 (if (eq form (setq form (compiler-macroexpand form))) 2595 (if (eq form (setq form (compiler-macroexpand form)))
2596 (byte-compile-normal-call form) 2596 (byte-compile-normal-call form)
2597 (byte-compile-form form))) 2597 (byte-compile-form form)))
2598 2598
2599 ;;;###autoload
2599 (defmacro defsubst* (name args &rest body) 2600 (defmacro defsubst* (name args &rest body)
2600 "Define NAME as a function. 2601 "Define NAME as a function.
2601 Like `defun', except the function is automatically declared `inline', 2602 Like `defun', except the function is automatically declared `inline',
2602 ARGLIST allows full Common Lisp conventions, and BODY is implicitly 2603 ARGLIST allows full Common Lisp conventions, and BODY is implicitly
2603 surrounded by (block NAME ...). 2604 surrounded by (block NAME ...).