Mercurial > hg > xemacs-beta
annotate man/lispref/functions.texi @ 5903:5afddd952c46
Return ratios in canonical form too, #'string-to-number
src/ChangeLog addition:
2015-05-08 Aidan Kehoe <kehoea@parhasard.net>
* data.c (Fstring_to_number):
Canonicalise ratios in this function, as we do bignums.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Fri, 08 May 2015 13:58:22 +0100 |
| parents | 9fae6227ede5 |
| children |
| rev | line source |
|---|---|
| 428 | 1 @c -*-texinfo-*- |
| 2 @c This is part of the XEmacs Lisp Reference Manual. | |
| 444 | 3 @c Copyright (C) 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. |
| 428 | 4 @c See the file lispref.texi for copying conditions. |
| 5 @setfilename ../../info/functions.info | |
| 2492 | 6 @node Functions and Commands, Macros, Variables, Top |
| 7 @chapter Functions and Commands | |
| 428 | 8 |
| 9 A Lisp program is composed mainly of Lisp functions. This chapter | |
| 10 explains what functions are, how they accept arguments, and how to | |
| 11 define them. | |
| 12 | |
| 13 @menu | |
| 14 * What Is a Function:: Lisp functions vs. primitives; terminology. | |
| 15 * Lambda Expressions:: How functions are expressed as Lisp objects. | |
| 16 * Function Names:: A symbol can serve as the name of a function. | |
| 17 * Defining Functions:: Lisp expressions for defining functions. | |
| 18 * Calling Functions:: How to use an existing function. | |
| 19 * Mapping Functions:: Applying a function to each element of a list, etc. | |
| 444 | 20 * Anonymous Functions:: Lambda expressions are functions with no names. |
| 428 | 21 * Function Cells:: Accessing or setting the function definition |
| 22 of a symbol. | |
| 23 * Inline Functions:: Defining functions that the compiler will open code. | |
| 24 * Related Topics:: Cross-references to specific Lisp primitives | |
| 25 that have a special bearing on how functions work. | |
| 26 @end menu | |
| 27 | |
|
5791
9fae6227ede5
Silence texinfo 5.2 warnings, primarily by adding next, prev, and up
Jerry James <james@xemacs.org>
parents:
5361
diff
changeset
|
28 @node What Is a Function, Lambda Expressions, Functions and Commands, Functions and Commands |
| 428 | 29 @section What Is a Function? |
| 30 | |
| 31 In a general sense, a function is a rule for carrying on a computation | |
| 32 given several values called @dfn{arguments}. The result of the | |
| 33 computation is called the value of the function. The computation can | |
| 34 also have side effects: lasting changes in the values of variables or | |
| 35 the contents of data structures. | |
| 36 | |
| 37 Here are important terms for functions in XEmacs Lisp and for other | |
| 38 function-like objects. | |
| 39 | |
| 40 @table @dfn | |
| 41 @item function | |
| 42 @cindex function | |
| 43 In XEmacs Lisp, a @dfn{function} is anything that can be applied to | |
| 44 arguments in a Lisp program. In some cases, we use it more | |
|
4905
755ae5b97edb
Change "special form" to "special operator" in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
2492
diff
changeset
|
45 specifically to mean a function written in Lisp. Special operators and |
| 428 | 46 macros are not functions. |
| 47 | |
| 2492 | 48 @item command |
| 49 @cindex command | |
| 50 | |
| 51 A @dfn{command} is a possible definition for a key sequence---we count | |
| 52 mouse events and menu accesses as key sequences for this purpose. More | |
| 53 formally, within XEmacs lisp, a command is something that | |
| 54 @code{command-execute} can invoke. | |
| 55 | |
| 56 Some functions are commands; a function written in Lisp is a command if | |
| 57 it contains an interactive declaration. A trivial interactive | |
| 58 declaration is a line @code{(interactive)} immediately after the | |
| 59 documentation string. For more complex examples, with prompting and | |
| 60 completion, see @xref{Defining Commands}. Such a function can be called | |
| 61 from Lisp expressions like other functions; in this case, the fact that | |
| 62 the function is a command makes no difference. | |
| 63 | |
| 64 Keyboard macros (strings and vectors) are commands also, even though | |
| 65 they are not functions. A symbol is a command if its function | |
| 66 definition is a command; such symbols can be invoked with @kbd{M-x}. | |
| 67 The symbol is a function as well if the definition is a function. | |
| 68 | |
| 69 In the case where you want to call a command in reaction to a | |
| 70 user-generated event, you'll need to bind it to that event. For how to | |
| 71 do this, see @xref{Key Binding Commands}. | |
| 72 @xref{Command Overview}. | |
| 73 | |
| 74 @item keystroke command | |
| 75 @cindex keystroke command | |
| 76 A @dfn{keystroke command} is a command that is bound to a key sequence | |
| 77 (typically one to three keystrokes). The distinction is made here | |
| 78 merely to avoid confusion with the meaning of ``command'' in non-Emacs | |
| 79 editors; for Lisp programs, the distinction is normally unimportant. | |
| 80 | |
| 428 | 81 @item primitive |
| 82 @cindex primitive | |
| 83 @cindex subr | |
| 84 @cindex built-in function | |
| 85 A @dfn{primitive} is a function callable from Lisp that is written in C, | |
| 86 such as @code{car} or @code{append}. These functions are also called | |
|
4905
755ae5b97edb
Change "special form" to "special operator" in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
2492
diff
changeset
|
87 @dfn{built-in} functions or @dfn{subrs}. (Special operators are also |
| 428 | 88 considered primitives.) |
| 89 | |
| 90 Usually the reason that a function is a primitives is because it is | |
| 91 fundamental, because it provides a low-level interface to operating | |
| 92 system services, or because it needs to run fast. Primitives can be | |
| 93 modified or added only by changing the C sources and recompiling the | |
| 94 editor. See @ref{Writing Lisp Primitives,,, internals, XEmacs | |
| 95 Internals Manual}. | |
| 96 | |
| 97 @item lambda expression | |
| 98 A @dfn{lambda expression} is a function written in Lisp. | |
| 99 These are described in the following section. | |
| 100 @ifinfo | |
| 101 @xref{Lambda Expressions}. | |
| 102 @end ifinfo | |
| 103 | |
|
4905
755ae5b97edb
Change "special form" to "special operator" in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
2492
diff
changeset
|
104 @item special operator |
|
755ae5b97edb
Change "special form" to "special operator" in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
2492
diff
changeset
|
105 A @dfn{special operator} is a primitive that is like a function but does not |
| 428 | 106 evaluate all of its arguments in the usual way. It may evaluate only |
| 107 some of the arguments, or may evaluate them in an unusual order, or | |
|
4905
755ae5b97edb
Change "special form" to "special operator" in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
2492
diff
changeset
|
108 several times. Many special operators are described in @ref{Control |
| 428 | 109 Structures}. |
| 110 | |
| 111 @item macro | |
| 112 @cindex macro | |
| 113 A @dfn{macro} is a construct defined in Lisp by the programmer. It | |
| 114 differs from a function in that it translates a Lisp expression that you | |
| 115 write into an equivalent expression to be evaluated instead of the | |
| 116 original expression. Macros enable Lisp programmers to do the sorts of | |
|
4905
755ae5b97edb
Change "special form" to "special operator" in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
2492
diff
changeset
|
117 things that special operators can do. @xref{Macros}, for how to define and |
| 428 | 118 use macros. |
| 119 | |
| 120 @item compiled function | |
| 121 A @dfn{compiled function} is a function that has been compiled by the | |
| 122 byte compiler. @xref{Compiled-Function Type}. | |
| 123 @end table | |
| 124 | |
| 125 @defun subrp object | |
| 126 This function returns @code{t} if @var{object} is a built-in function | |
| 127 (i.e., a Lisp primitive). | |
| 128 | |
| 129 @example | |
| 130 @group | |
| 131 (subrp 'message) ; @r{@code{message} is a symbol,} | |
| 132 @result{} nil ; @r{not a subr object.} | |
| 133 @end group | |
| 134 @group | |
| 135 (subrp (symbol-function 'message)) | |
| 136 @result{} t | |
| 137 @end group | |
| 138 @end example | |
| 139 @end defun | |
| 140 | |
| 141 @defun compiled-function-p object | |
| 142 This function returns @code{t} if @var{object} is a compiled | |
| 143 function. For example: | |
| 144 | |
| 145 @example | |
| 146 @group | |
| 147 (compiled-function-p (symbol-function 'next-line)) | |
| 148 @result{} t | |
| 149 @end group | |
| 150 @end example | |
| 151 @end defun | |
| 152 | |
|
5791
9fae6227ede5
Silence texinfo 5.2 warnings, primarily by adding next, prev, and up
Jerry James <james@xemacs.org>
parents:
5361
diff
changeset
|
153 @node Lambda Expressions, Function Names, What Is a Function, Functions and Commands |
| 428 | 154 @section Lambda Expressions |
| 155 @cindex lambda expression | |
| 156 | |
| 157 A function written in Lisp is a list that looks like this: | |
| 158 | |
| 159 @example | |
| 160 (lambda (@var{arg-variables}@dots{}) | |
| 161 @r{[}@var{documentation-string}@r{]} | |
| 162 @r{[}@var{interactive-declaration}@r{]} | |
| 163 @var{body-forms}@dots{}) | |
| 164 @end example | |
| 165 | |
| 166 @noindent | |
| 167 Such a list is called a @dfn{lambda expression}. In XEmacs Lisp, it | |
| 168 actually is valid as an expression---it evaluates to itself. In some | |
| 169 other Lisp dialects, a lambda expression is not a valid expression at | |
| 170 all. In either case, its main use is not to be evaluated as an | |
| 171 expression, but to be called as a function. | |
| 172 | |
| 173 @menu | |
| 174 * Lambda Components:: The parts of a lambda expression. | |
| 175 * Simple Lambda:: A simple example. | |
| 176 * Argument List:: Details and special features of argument lists. | |
| 177 * Function Documentation:: How to put documentation in a function. | |
| 178 @end menu | |
| 179 | |
|
5791
9fae6227ede5
Silence texinfo 5.2 warnings, primarily by adding next, prev, and up
Jerry James <james@xemacs.org>
parents:
5361
diff
changeset
|
180 @node Lambda Components, Simple Lambda, Lambda Expressions, Lambda Expressions |
| 428 | 181 @subsection Components of a Lambda Expression |
| 182 | |
| 183 @ifinfo | |
| 184 | |
| 185 A function written in Lisp (a ``lambda expression'') is a list that | |
| 186 looks like this: | |
| 187 | |
| 188 @example | |
| 189 (lambda (@var{arg-variables}@dots{}) | |
| 190 [@var{documentation-string}] | |
| 191 [@var{interactive-declaration}] | |
| 192 @var{body-forms}@dots{}) | |
| 193 @end example | |
| 194 @end ifinfo | |
| 195 | |
| 196 @cindex lambda list | |
| 197 The first element of a lambda expression is always the symbol | |
| 198 @code{lambda}. This indicates that the list represents a function. The | |
| 199 reason functions are defined to start with @code{lambda} is so that | |
| 200 other lists, intended for other uses, will not accidentally be valid as | |
| 201 functions. | |
| 202 | |
| 203 The second element is a list of symbols--the argument variable names. | |
| 204 This is called the @dfn{lambda list}. When a Lisp function is called, | |
| 205 the argument values are matched up against the variables in the lambda | |
| 206 list, which are given local bindings with the values provided. | |
| 207 @xref{Local Variables}. | |
| 208 | |
| 209 The documentation string is a Lisp string object placed within the | |
| 210 function definition to describe the function for the XEmacs help | |
| 211 facilities. @xref{Function Documentation}. | |
| 212 | |
| 213 The interactive declaration is a list of the form @code{(interactive | |
| 214 @var{code-string})}. This declares how to provide arguments if the | |
| 215 function is used interactively. Functions with this declaration are called | |
| 216 @dfn{commands}; they can be called using @kbd{M-x} or bound to a key. | |
| 217 Functions not intended to be called in this way should not have interactive | |
| 218 declarations. @xref{Defining Commands}, for how to write an interactive | |
| 219 declaration. | |
| 220 | |
| 221 @cindex body of function | |
| 222 The rest of the elements are the @dfn{body} of the function: the Lisp | |
| 223 code to do the work of the function (or, as a Lisp programmer would say, | |
| 224 ``a list of Lisp forms to evaluate''). The value returned by the | |
| 225 function is the value returned by the last element of the body. | |
| 226 | |
|
5791
9fae6227ede5
Silence texinfo 5.2 warnings, primarily by adding next, prev, and up
Jerry James <james@xemacs.org>
parents:
5361
diff
changeset
|
227 @node Simple Lambda, Argument List, Lambda Components, Lambda Expressions |
| 428 | 228 @subsection A Simple Lambda-Expression Example |
| 229 | |
| 230 Consider for example the following function: | |
| 231 | |
| 232 @example | |
| 233 (lambda (a b c) (+ a b c)) | |
| 234 @end example | |
| 235 | |
| 236 @noindent | |
| 237 We can call this function by writing it as the @sc{car} of an | |
| 238 expression, like this: | |
| 239 | |
| 240 @example | |
| 241 @group | |
| 242 ((lambda (a b c) (+ a b c)) | |
| 243 1 2 3) | |
| 244 @end group | |
| 245 @end example | |
| 246 | |
| 247 @noindent | |
| 248 This call evaluates the body of the lambda expression with the variable | |
| 249 @code{a} bound to 1, @code{b} bound to 2, and @code{c} bound to 3. | |
| 250 Evaluation of the body adds these three numbers, producing the result 6; | |
| 251 therefore, this call to the function returns the value 6. | |
| 252 | |
| 253 Note that the arguments can be the results of other function calls, as in | |
| 254 this example: | |
| 255 | |
| 256 @example | |
| 257 @group | |
| 258 ((lambda (a b c) (+ a b c)) | |
| 259 1 (* 2 3) (- 5 4)) | |
| 260 @end group | |
| 261 @end example | |
| 262 | |
| 263 @noindent | |
| 264 This evaluates the arguments @code{1}, @code{(* 2 3)}, and @code{(- 5 | |
| 265 4)} from left to right. Then it applies the lambda expression to the | |
| 266 argument values 1, 6 and 1 to produce the value 8. | |
| 267 | |
| 268 It is not often useful to write a lambda expression as the @sc{car} of | |
| 269 a form in this way. You can get the same result, of making local | |
|
4905
755ae5b97edb
Change "special form" to "special operator" in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
2492
diff
changeset
|
270 variables and giving them values, using the special operator @code{let} |
| 428 | 271 (@pxref{Local Variables}). And @code{let} is clearer and easier to use. |
| 272 In practice, lambda expressions are either stored as the function | |
| 273 definitions of symbols, to produce named functions, or passed as | |
| 274 arguments to other functions (@pxref{Anonymous Functions}). | |
| 275 | |
| 276 However, calls to explicit lambda expressions were very useful in the | |
|
4905
755ae5b97edb
Change "special form" to "special operator" in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
2492
diff
changeset
|
277 old days of Lisp, before the special operator @code{let} was invented. At |
| 428 | 278 that time, they were the only way to bind and initialize local |
| 279 variables. | |
| 280 | |
|
5791
9fae6227ede5
Silence texinfo 5.2 warnings, primarily by adding next, prev, and up
Jerry James <james@xemacs.org>
parents:
5361
diff
changeset
|
281 @node Argument List, Function Documentation, Simple Lambda, Lambda Expressions |
| 428 | 282 @subsection Advanced Features of Argument Lists |
| 283 @kindex wrong-number-of-arguments | |
| 284 @cindex argument binding | |
| 285 @cindex binding arguments | |
| 286 | |
| 287 Our simple sample function, @code{(lambda (a b c) (+ a b c))}, | |
| 288 specifies three argument variables, so it must be called with three | |
| 289 arguments: if you try to call it with only two arguments or four | |
| 290 arguments, you get a @code{wrong-number-of-arguments} error. | |
| 291 | |
| 292 It is often convenient to write a function that allows certain | |
|
5089
99f8ebc082d9
Make #'substring an alias of #'subseq; give the latter the byte code.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4905
diff
changeset
|
293 arguments to be omitted. For example, the function @code{subseq} |
|
99f8ebc082d9
Make #'substring an alias of #'subseq; give the latter the byte code.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4905
diff
changeset
|
294 accepts three arguments---a sequence, the start index and the end |
| 428 | 295 index---but the third argument defaults to the @var{length} of the |
|
5089
99f8ebc082d9
Make #'substring an alias of #'subseq; give the latter the byte code.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4905
diff
changeset
|
296 sequence if you omit it. It is also convenient for certain functions to |
| 428 | 297 accept an indefinite number of arguments, as the functions @code{list} |
| 298 and @code{+} do. | |
| 299 | |
| 300 @cindex optional arguments | |
| 301 @cindex rest arguments | |
| 302 @kindex &optional | |
| 303 @kindex &rest | |
| 304 To specify optional arguments that may be omitted when a function | |
| 305 is called, simply include the keyword @code{&optional} before the optional | |
| 306 arguments. To specify a list of zero or more extra arguments, include the | |
| 307 keyword @code{&rest} before one final argument. | |
| 308 | |
| 309 Thus, the complete syntax for an argument list is as follows: | |
| 310 | |
| 311 @example | |
| 312 @group | |
| 313 (@var{required-vars}@dots{} | |
| 314 @r{[}&optional @var{optional-vars}@dots{}@r{]} | |
| 315 @r{[}&rest @var{rest-var}@r{]}) | |
| 316 @end group | |
| 317 @end example | |
| 318 | |
| 319 @noindent | |
| 320 The square brackets indicate that the @code{&optional} and @code{&rest} | |
| 321 clauses, and the variables that follow them, are optional. | |
| 322 | |
| 323 A call to the function requires one actual argument for each of the | |
| 324 @var{required-vars}. There may be actual arguments for zero or more of | |
| 325 the @var{optional-vars}, and there cannot be any actual arguments beyond | |
| 326 that unless the lambda list uses @code{&rest}. In that case, there may | |
| 327 be any number of extra actual arguments. | |
| 328 | |
| 329 If actual arguments for the optional and rest variables are omitted, | |
| 330 then they always default to @code{nil}. There is no way for the | |
| 331 function to distinguish between an explicit argument of @code{nil} and | |
| 332 an omitted argument. However, the body of the function is free to | |
| 333 consider @code{nil} an abbreviation for some other meaningful value. | |
|
5089
99f8ebc082d9
Make #'substring an alias of #'subseq; give the latter the byte code.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4905
diff
changeset
|
334 This is what @code{subseq} does; @code{nil} as the third argument to |
|
99f8ebc082d9
Make #'substring an alias of #'subseq; give the latter the byte code.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4905
diff
changeset
|
335 @code{subseq} means to use the length of the sequence supplied. |
| 428 | 336 |
| 337 @cindex CL note---default optional arg | |
| 338 @quotation | |
| 339 @b{Common Lisp note:} Common Lisp allows the function to specify what | |
|
5361
62b9ef1ed4ac
Change "special form" to "special operator" in the manuals, too
Aidan Kehoe <kehoea@parhasard.net>
parents:
5089
diff
changeset
|
340 default value to use when an optional argument is omitted; this is |
|
62b9ef1ed4ac
Change "special form" to "special operator" in the manuals, too
Aidan Kehoe <kehoea@parhasard.net>
parents:
5089
diff
changeset
|
341 available in XEmacs Lisp with the @code{defun*} macro, an alternative to |
|
62b9ef1ed4ac
Change "special form" to "special operator" in the manuals, too
Aidan Kehoe <kehoea@parhasard.net>
parents:
5089
diff
changeset
|
342 @code{defun}. |
| 428 | 343 @end quotation |
| 344 | |
| 345 For example, an argument list that looks like this: | |
| 346 | |
| 347 @example | |
| 348 (a b &optional c d &rest e) | |
| 349 @end example | |
| 350 | |
| 351 @noindent | |
| 352 binds @code{a} and @code{b} to the first two actual arguments, which are | |
| 353 required. If one or two more arguments are provided, @code{c} and | |
| 354 @code{d} are bound to them respectively; any arguments after the first | |
| 355 four are collected into a list and @code{e} is bound to that list. If | |
| 356 there are only two arguments, @code{c} is @code{nil}; if two or three | |
| 357 arguments, @code{d} is @code{nil}; if four arguments or fewer, @code{e} | |
| 358 is @code{nil}. | |
| 359 | |
| 360 There is no way to have required arguments following optional | |
| 361 ones---it would not make sense. To see why this must be so, suppose | |
| 362 that @code{c} in the example were optional and @code{d} were required. | |
| 363 Suppose three actual arguments are given; which variable would the third | |
| 364 argument be for? Similarly, it makes no sense to have any more | |
| 365 arguments (either required or optional) after a @code{&rest} argument. | |
| 366 | |
| 367 Here are some examples of argument lists and proper calls: | |
| 368 | |
| 369 @smallexample | |
| 370 ((lambda (n) (1+ n)) ; @r{One required:} | |
| 371 1) ; @r{requires exactly one argument.} | |
| 372 @result{} 2 | |
| 373 ((lambda (n &optional n1) ; @r{One required and one optional:} | |
| 374 (if n1 (+ n n1) (1+ n))) ; @r{1 or 2 arguments.} | |
| 375 1 2) | |
| 376 @result{} 3 | |
| 377 ((lambda (n &rest ns) ; @r{One required and one rest:} | |
| 378 (+ n (apply '+ ns))) ; @r{1 or more arguments.} | |
| 379 1 2 3 4 5) | |
| 380 @result{} 15 | |
| 381 @end smallexample | |
| 382 | |
|
5791
9fae6227ede5
Silence texinfo 5.2 warnings, primarily by adding next, prev, and up
Jerry James <james@xemacs.org>
parents:
5361
diff
changeset
|
383 @node Function Documentation, , Argument List, Lambda Expressions |
| 428 | 384 @subsection Documentation Strings of Functions |
| 385 @cindex documentation of function | |
| 386 | |
| 387 A lambda expression may optionally have a @dfn{documentation string} just | |
| 388 after the lambda list. This string does not affect execution of the | |
| 389 function; it is a kind of comment, but a systematized comment which | |
| 390 actually appears inside the Lisp world and can be used by the XEmacs help | |
| 391 facilities. @xref{Documentation}, for how the @var{documentation-string} is | |
| 392 accessed. | |
| 393 | |
| 394 It is a good idea to provide documentation strings for all the | |
| 395 functions in your program, even those that are only called from within | |
| 396 your program. Documentation strings are like comments, except that they | |
| 397 are easier to access. | |
| 398 | |
| 399 The first line of the documentation string should stand on its own, | |
| 400 because @code{apropos} displays just this first line. It should consist | |
| 401 of one or two complete sentences that summarize the function's purpose. | |
| 402 | |
| 403 The start of the documentation string is usually indented in the source file, | |
| 404 but since these spaces come before the starting double-quote, they are not part of | |
| 405 the string. Some people make a practice of indenting any additional | |
| 406 lines of the string so that the text lines up in the program source. | |
| 407 @emph{This is a mistake.} The indentation of the following lines is | |
| 408 inside the string; what looks nice in the source code will look ugly | |
| 409 when displayed by the help commands. | |
| 410 | |
| 411 You may wonder how the documentation string could be optional, since | |
| 412 there are required components of the function that follow it (the body). | |
| 413 Since evaluation of a string returns that string, without any side effects, | |
| 414 it has no effect if it is not the last form in the body. Thus, in | |
| 415 practice, there is no confusion between the first form of the body and the | |
| 416 documentation string; if the only body form is a string then it serves both | |
| 417 as the return value and as the documentation. | |
| 418 | |
|
5791
9fae6227ede5
Silence texinfo 5.2 warnings, primarily by adding next, prev, and up
Jerry James <james@xemacs.org>
parents:
5361
diff
changeset
|
419 @node Function Names, Defining Functions, Lambda Expressions, Functions and Commands |
| 428 | 420 @section Naming a Function |
| 421 @cindex function definition | |
| 422 @cindex named function | |
| 423 @cindex function name | |
| 424 | |
| 425 In most computer languages, every function has a name; the idea of a | |
| 426 function without a name is nonsensical. In Lisp, a function in the | |
| 427 strictest sense has no name. It is simply a list whose first element is | |
| 428 @code{lambda}, or a primitive subr-object. | |
| 429 | |
| 430 However, a symbol can serve as the name of a function. This happens | |
| 431 when you put the function in the symbol's @dfn{function cell} | |
| 432 (@pxref{Symbol Components}). Then the symbol itself becomes a valid, | |
| 433 callable function, equivalent to the list or subr-object that its | |
| 434 function cell refers to. The contents of the function cell are also | |
| 435 called the symbol's @dfn{function definition}. The procedure of using a | |
| 436 symbol's function definition in place of the symbol is called | |
| 437 @dfn{symbol function indirection}; see @ref{Function Indirection}. | |
| 438 | |
| 439 In practice, nearly all functions are given names in this way and | |
| 440 referred to through their names. For example, the symbol @code{car} works | |
| 441 as a function and does what it does because the primitive subr-object | |
| 442 @code{#<subr car>} is stored in its function cell. | |
| 443 | |
| 444 We give functions names because it is convenient to refer to them by | |
| 445 their names in Lisp expressions. For primitive subr-objects such as | |
| 446 @code{#<subr car>}, names are the only way you can refer to them: there | |
| 447 is no read syntax for such objects. For functions written in Lisp, the | |
| 448 name is more convenient to use in a call than an explicit lambda | |
| 449 expression. Also, a function with a name can refer to itself---it can | |
| 450 be recursive. Writing the function's name in its own definition is much | |
| 451 more convenient than making the function definition point to itself | |
| 452 (something that is not impossible but that has various disadvantages in | |
| 453 practice). | |
| 454 | |
| 455 We often identify functions with the symbols used to name them. For | |
| 456 example, we often speak of ``the function @code{car}'', not | |
| 457 distinguishing between the symbol @code{car} and the primitive | |
| 458 subr-object that is its function definition. For most purposes, there | |
| 459 is no need to distinguish. | |
| 460 | |
| 461 Even so, keep in mind that a function need not have a unique name. While | |
| 462 a given function object @emph{usually} appears in the function cell of only | |
| 463 one symbol, this is just a matter of convenience. It is easy to store | |
| 464 it in several symbols using @code{fset}; then each of the symbols is | |
| 465 equally well a name for the same function. | |
| 466 | |
| 467 A symbol used as a function name may also be used as a variable; | |
| 468 these two uses of a symbol are independent and do not conflict. | |
| 469 | |
|
5791
9fae6227ede5
Silence texinfo 5.2 warnings, primarily by adding next, prev, and up
Jerry James <james@xemacs.org>
parents:
5361
diff
changeset
|
470 @node Defining Functions, Calling Functions, Function Names, Functions and Commands |
| 428 | 471 @section Defining Functions |
| 472 @cindex defining a function | |
| 473 | |
| 474 We usually give a name to a function when it is first created. This | |
| 475 is called @dfn{defining a function}, and it is done with the | |
|
4905
755ae5b97edb
Change "special form" to "special operator" in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
2492
diff
changeset
|
476 @code{defun} special operator. |
| 428 | 477 |
|
5361
62b9ef1ed4ac
Change "special form" to "special operator" in the manuals, too
Aidan Kehoe <kehoea@parhasard.net>
parents:
5089
diff
changeset
|
478 @deffn {Special Operator} defun name argument-list body-forms |
| 428 | 479 @code{defun} is the usual way to define new Lisp functions. It |
| 480 defines the symbol @var{name} as a function that looks like this: | |
| 481 | |
| 482 @example | |
| 483 (lambda @var{argument-list} . @var{body-forms}) | |
| 484 @end example | |
| 485 | |
| 486 @code{defun} stores this lambda expression in the function cell of | |
| 487 @var{name}. It returns the value @var{name}, but usually we ignore this | |
| 488 value. | |
| 489 | |
| 490 As described previously (@pxref{Lambda Expressions}), | |
| 491 @var{argument-list} is a list of argument names and may include the | |
| 492 keywords @code{&optional} and @code{&rest}. Also, the first two forms | |
| 493 in @var{body-forms} may be a documentation string and an interactive | |
| 494 declaration. | |
| 495 | |
| 496 There is no conflict if the same symbol @var{name} is also used as a | |
| 497 variable, since the symbol's value cell is independent of the function | |
| 498 cell. @xref{Symbol Components}. | |
| 499 | |
| 500 Here are some examples: | |
| 501 | |
| 502 @example | |
| 503 @group | |
| 504 (defun foo () 5) | |
| 505 @result{} foo | |
| 506 @end group | |
| 507 @group | |
| 508 (foo) | |
| 509 @result{} 5 | |
| 510 @end group | |
| 511 | |
| 512 @group | |
| 513 (defun bar (a &optional b &rest c) | |
| 514 (list a b c)) | |
| 515 @result{} bar | |
| 516 @end group | |
| 517 @group | |
| 518 (bar 1 2 3 4 5) | |
| 519 @result{} (1 2 (3 4 5)) | |
| 520 @end group | |
| 521 @group | |
| 522 (bar 1) | |
| 523 @result{} (1 nil nil) | |
| 524 @end group | |
| 525 @group | |
| 526 (bar) | |
| 527 @error{} Wrong number of arguments. | |
| 528 @end group | |
| 529 | |
| 530 @group | |
| 531 (defun capitalize-backwards () | |
| 532 "Upcase the last letter of a word." | |
| 533 (interactive) | |
| 534 (backward-word 1) | |
| 535 (forward-word 1) | |
| 536 (backward-char 1) | |
| 537 (capitalize-word 1)) | |
| 538 @result{} capitalize-backwards | |
| 539 @end group | |
| 540 @end example | |
| 541 | |
| 542 Be careful not to redefine existing functions unintentionally. | |
| 543 @code{defun} redefines even primitive functions such as @code{car} | |
| 544 without any hesitation or notification. Redefining a function already | |
| 545 defined is often done deliberately, and there is no way to distinguish | |
| 546 deliberate redefinition from unintentional redefinition. | |
|
5361
62b9ef1ed4ac
Change "special form" to "special operator" in the manuals, too
Aidan Kehoe <kehoea@parhasard.net>
parents:
5089
diff
changeset
|
547 @end deffn |
| 428 | 548 |
| 549 @defun define-function name definition | |
| 550 @defunx defalias name definition | |
|
4905
755ae5b97edb
Change "special form" to "special operator" in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
2492
diff
changeset
|
551 These equivalent primitives define the symbol @var{name} as a |
| 428 | 552 function, with definition @var{definition} (which can be any valid Lisp |
| 553 function). | |
| 554 | |
| 555 The proper place to use @code{define-function} or @code{defalias} is | |
| 556 where a specific function name is being defined---especially where that | |
| 557 name appears explicitly in the source file being loaded. This is | |
| 558 because @code{define-function} and @code{defalias} record which file | |
| 559 defined the function, just like @code{defun}. | |
| 560 (@pxref{Unloading}). | |
| 561 | |
| 562 By contrast, in programs that manipulate function definitions for other | |
| 563 purposes, it is better to use @code{fset}, which does not keep such | |
| 564 records. | |
| 565 @end defun | |
| 566 | |
| 567 See also @code{defsubst}, which defines a function like @code{defun} | |
| 568 and tells the Lisp compiler to open-code it. @xref{Inline Functions}. | |
| 569 | |
|
5791
9fae6227ede5
Silence texinfo 5.2 warnings, primarily by adding next, prev, and up
Jerry James <james@xemacs.org>
parents:
5361
diff
changeset
|
570 @node Calling Functions, Mapping Functions, Defining Functions, Functions and Commands |
| 428 | 571 @section Calling Functions |
| 572 @cindex function invocation | |
| 573 @cindex calling a function | |
| 574 | |
| 575 Defining functions is only half the battle. Functions don't do | |
| 576 anything until you @dfn{call} them, i.e., tell them to run. Calling a | |
| 577 function is also known as @dfn{invocation}. | |
| 578 | |
| 579 The most common way of invoking a function is by evaluating a list. | |
| 580 For example, evaluating the list @code{(concat "a" "b")} calls the | |
| 581 function @code{concat} with arguments @code{"a"} and @code{"b"}. | |
| 582 @xref{Evaluation}, for a description of evaluation. | |
| 583 | |
| 584 When you write a list as an expression in your program, the function | |
| 585 name is part of the program. This means that you choose which function | |
| 586 to call, and how many arguments to give it, when you write the program. | |
| 587 Usually that's just what you want. Occasionally you need to decide at | |
| 588 run time which function to call. To do that, use the functions | |
| 589 @code{funcall} and @code{apply}. | |
| 590 | |
| 591 @defun funcall function &rest arguments | |
| 592 @code{funcall} calls @var{function} with @var{arguments}, and returns | |
| 593 whatever @var{function} returns. | |
| 594 | |
| 595 Since @code{funcall} is a function, all of its arguments, including | |
| 596 @var{function}, are evaluated before @code{funcall} is called. This | |
| 597 means that you can use any expression to obtain the function to be | |
| 598 called. It also means that @code{funcall} does not see the expressions | |
| 599 you write for the @var{arguments}, only their values. These values are | |
| 600 @emph{not} evaluated a second time in the act of calling @var{function}; | |
| 601 @code{funcall} enters the normal procedure for calling a function at the | |
| 602 place where the arguments have already been evaluated. | |
| 603 | |
| 604 The argument @var{function} must be either a Lisp function or a | |
|
4905
755ae5b97edb
Change "special form" to "special operator" in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
2492
diff
changeset
|
605 primitive function. Special operators and macros are not allowed, because |
| 428 | 606 they make sense only when given the ``unevaluated'' argument |
| 607 expressions. @code{funcall} cannot provide these because, as we saw | |
| 608 above, it never knows them in the first place. | |
| 609 | |
| 610 @example | |
| 611 @group | |
| 612 (setq f 'list) | |
| 613 @result{} list | |
| 614 @end group | |
| 615 @group | |
| 616 (funcall f 'x 'y 'z) | |
| 617 @result{} (x y z) | |
| 618 @end group | |
| 619 @group | |
| 620 (funcall f 'x 'y '(z)) | |
| 621 @result{} (x y (z)) | |
| 622 @end group | |
| 623 @group | |
| 624 (funcall 'and t nil) | |
| 625 @error{} Invalid function: #<subr and> | |
| 626 @end group | |
| 627 @end example | |
| 628 | |
| 629 Compare these example with the examples of @code{apply}. | |
| 630 @end defun | |
| 631 | |
| 632 @defun apply function &rest arguments | |
| 633 @code{apply} calls @var{function} with @var{arguments}, just like | |
| 634 @code{funcall} but with one difference: the last of @var{arguments} is a | |
| 635 list of arguments to give to @var{function}, rather than a single | |
| 636 argument. We also say that @code{apply} @dfn{spreads} this list so that | |
| 637 each individual element becomes an argument. | |
| 638 | |
| 639 @code{apply} returns the result of calling @var{function}. As with | |
| 640 @code{funcall}, @var{function} must either be a Lisp function or a | |
|
4905
755ae5b97edb
Change "special form" to "special operator" in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
2492
diff
changeset
|
641 primitive function; special operators and macros do not make sense in |
| 428 | 642 @code{apply}. |
| 643 | |
| 644 @example | |
| 645 @group | |
| 646 (setq f 'list) | |
| 647 @result{} list | |
| 648 @end group | |
| 649 @group | |
| 650 (apply f 'x 'y 'z) | |
| 651 @error{} Wrong type argument: listp, z | |
| 652 @end group | |
| 653 @group | |
| 654 (apply '+ 1 2 '(3 4)) | |
| 655 @result{} 10 | |
| 656 @end group | |
| 657 @group | |
| 658 (apply '+ '(1 2 3 4)) | |
| 659 @result{} 10 | |
| 660 @end group | |
| 661 | |
| 662 @group | |
| 663 (apply 'append '((a b c) nil (x y z) nil)) | |
| 664 @result{} (a b c x y z) | |
| 665 @end group | |
| 666 @end example | |
| 667 | |
| 668 For an interesting example of using @code{apply}, see the description of | |
| 669 @code{mapcar}, in @ref{Mapping Functions}. | |
| 670 @end defun | |
| 671 | |
| 672 @cindex functionals | |
| 673 It is common for Lisp functions to accept functions as arguments or | |
| 674 find them in data structures (especially in hook variables and property | |
| 675 lists) and call them using @code{funcall} or @code{apply}. Functions | |
| 676 that accept function arguments are often called @dfn{functionals}. | |
| 677 | |
| 678 Sometimes, when you call a functional, it is useful to supply a no-op | |
| 679 function as the argument. Here are two different kinds of no-op | |
| 680 function: | |
| 681 | |
| 682 @defun identity arg | |
| 683 This function returns @var{arg} and has no side effects. | |
| 684 @end defun | |
| 685 | |
| 444 | 686 @deffn Command ignore &rest args |
| 428 | 687 This function ignores any arguments and returns @code{nil}. |
| 444 | 688 @end deffn |
| 428 | 689 |
|
5791
9fae6227ede5
Silence texinfo 5.2 warnings, primarily by adding next, prev, and up
Jerry James <james@xemacs.org>
parents:
5361
diff
changeset
|
690 @node Mapping Functions, Anonymous Functions, Calling Functions, Functions and Commands |
| 428 | 691 @section Mapping Functions |
| 692 @cindex mapping functions | |
| 693 | |
| 694 A @dfn{mapping function} applies a given function to each element of a | |
| 434 | 695 list or other collection. XEmacs Lisp has several such functions; |
| 428 | 696 @code{mapcar} and @code{mapconcat}, which scan a list, are described |
| 434 | 697 here. @xref{Creating Symbols}, for the function @code{mapatoms} which |
| 698 maps over the symbols in an obarray. | |
| 699 | |
| 700 Mapping functions should never modify the sequence being mapped over. | |
| 701 The results are unpredictable. | |
| 428 | 702 |
| 703 @defun mapcar function sequence | |
| 704 @code{mapcar} applies @var{function} to each element of @var{sequence} | |
| 705 in turn, and returns a list of the results. | |
| 706 | |
| 434 | 707 The argument @var{sequence} can be any kind of sequence; that is, a |
| 708 list, a vector, a bit vector, or a string. The result is always a list. | |
| 709 The length of the result is the same as the length of @var{sequence}. | |
| 428 | 710 |
| 711 @smallexample | |
| 712 @group | |
| 713 @exdent @r{For example:} | |
| 714 | |
| 715 (mapcar 'car '((a b) (c d) (e f))) | |
| 716 @result{} (a c e) | |
| 717 (mapcar '1+ [1 2 3]) | |
| 718 @result{} (2 3 4) | |
| 719 (mapcar 'char-to-string "abc") | |
| 720 @result{} ("a" "b" "c") | |
| 721 @end group | |
| 722 | |
| 723 @group | |
| 724 ;; @r{Call each function in @code{my-hooks}.} | |
| 725 (mapcar 'funcall my-hooks) | |
| 726 @end group | |
| 727 | |
| 728 @group | |
| 729 (defun mapcar* (f &rest args) | |
| 730 "Apply FUNCTION to successive cars of all ARGS. | |
| 731 Return the list of results." | |
| 732 ;; @r{If no list is exhausted,} | |
| 444 | 733 (if (not (memq 'nil args)) |
| 428 | 734 ;; @r{apply function to @sc{car}s.} |
| 444 | 735 (cons (apply f (mapcar 'car args)) |
| 736 (apply 'mapcar* f | |
| 428 | 737 ;; @r{Recurse for rest of elements.} |
| 738 (mapcar 'cdr args))))) | |
| 739 @end group | |
| 740 | |
| 741 @group | |
| 742 (mapcar* 'cons '(a b c) '(1 2 3 4)) | |
| 743 @result{} ((a . 1) (b . 2) (c . 3)) | |
| 744 @end group | |
| 745 @end smallexample | |
| 746 @end defun | |
| 747 | |
| 748 @defun mapconcat function sequence separator | |
| 749 @code{mapconcat} applies @var{function} to each element of | |
| 750 @var{sequence}: the results, which must be strings, are concatenated. | |
| 751 Between each pair of result strings, @code{mapconcat} inserts the string | |
| 752 @var{separator}. Usually @var{separator} contains a space or comma or | |
| 753 other suitable punctuation. | |
| 754 | |
| 755 The argument @var{function} must be a function that can take one | |
| 434 | 756 argument and return a string. The argument @var{sequence} can be any |
| 757 kind of sequence; that is, a list, a vector, a bit vector, or a string. | |
| 444 | 758 |
| 428 | 759 @smallexample |
| 760 @group | |
| 761 (mapconcat 'symbol-name | |
| 762 '(The cat in the hat) | |
| 763 " ") | |
| 764 @result{} "The cat in the hat" | |
| 765 @end group | |
| 766 | |
| 767 @group | |
| 768 (mapconcat (function (lambda (x) (format "%c" (1+ x)))) | |
| 769 "HAL-8000" | |
| 770 "") | |
| 771 @result{} "IBM.9111" | |
| 772 @end group | |
| 773 @end smallexample | |
| 774 @end defun | |
| 775 | |
|
5791
9fae6227ede5
Silence texinfo 5.2 warnings, primarily by adding next, prev, and up
Jerry James <james@xemacs.org>
parents:
5361
diff
changeset
|
776 @node Anonymous Functions, Function Cells, Mapping Functions, Functions and Commands |
| 428 | 777 @section Anonymous Functions |
| 778 @cindex anonymous function | |
| 779 | |
| 780 In Lisp, a function is a list that starts with @code{lambda}, a | |
| 781 byte-code function compiled from such a list, or alternatively a | |
| 782 primitive subr-object; names are ``extra''. Although usually functions | |
| 783 are defined with @code{defun} and given names at the same time, it is | |
| 784 occasionally more concise to use an explicit lambda expression---an | |
| 785 anonymous function. Such a list is valid wherever a function name is. | |
| 786 | |
| 787 Any method of creating such a list makes a valid function. Even this: | |
| 788 | |
| 789 @smallexample | |
| 790 @group | |
| 791 (setq silly (append '(lambda (x)) (list (list '+ (* 3 4) 'x)))) | |
| 792 @result{} (lambda (x) (+ 12 x)) | |
| 793 @end group | |
| 794 @end smallexample | |
| 795 | |
| 796 @noindent | |
| 797 This computes a list that looks like @code{(lambda (x) (+ 12 x))} and | |
| 798 makes it the value (@emph{not} the function definition!) of | |
| 799 @code{silly}. | |
| 800 | |
| 801 Here is how we might call this function: | |
| 802 | |
| 803 @example | |
| 804 @group | |
| 805 (funcall silly 1) | |
| 806 @result{} 13 | |
| 807 @end group | |
| 808 @end example | |
| 809 | |
| 810 @noindent | |
| 811 (It does @emph{not} work to write @code{(silly 1)}, because this function | |
| 812 is not the @emph{function definition} of @code{silly}. We have not given | |
| 813 @code{silly} any function definition, just a value as a variable.) | |
| 814 | |
| 815 Most of the time, anonymous functions are constants that appear in | |
| 816 your program. For example, you might want to pass one as an argument | |
| 817 to the function @code{mapcar}, which applies any given function to each | |
| 818 element of a list. Here we pass an anonymous function that multiplies | |
| 819 a number by two: | |
| 820 | |
| 821 @example | |
| 822 @group | |
| 823 (defun double-each (list) | |
| 824 (mapcar '(lambda (x) (* 2 x)) list)) | |
| 825 @result{} double-each | |
| 826 @end group | |
| 827 @group | |
| 828 (double-each '(2 11)) | |
| 829 @result{} (4 22) | |
| 830 @end group | |
| 831 @end example | |
| 832 | |
| 833 @noindent | |
|
4905
755ae5b97edb
Change "special form" to "special operator" in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
2492
diff
changeset
|
834 In such cases, we usually use the special operator @code{function} instead |
| 428 | 835 of simple quotation to quote the anonymous function. |
| 836 | |
|
5361
62b9ef1ed4ac
Change "special form" to "special operator" in the manuals, too
Aidan Kehoe <kehoea@parhasard.net>
parents:
5089
diff
changeset
|
837 @deffn {Special Operator} function function-object |
| 428 | 838 @cindex function quoting |
|
4905
755ae5b97edb
Change "special form" to "special operator" in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
2492
diff
changeset
|
839 This special operator returns @var{function-object} without evaluating it. |
| 428 | 840 In this, it is equivalent to @code{quote}. However, it serves as a |
| 841 note to the XEmacs Lisp compiler that @var{function-object} is intended | |
| 842 to be used only as a function, and therefore can safely be compiled. | |
| 843 Contrast this with @code{quote}, in @ref{Quoting}. | |
|
5361
62b9ef1ed4ac
Change "special form" to "special operator" in the manuals, too
Aidan Kehoe <kehoea@parhasard.net>
parents:
5089
diff
changeset
|
844 @end deffn |
| 428 | 845 |
| 846 Using @code{function} instead of @code{quote} makes a difference | |
| 847 inside a function or macro that you are going to compile. For example: | |
| 848 | |
| 849 @example | |
| 850 @group | |
| 851 (defun double-each (list) | |
| 852 (mapcar (function (lambda (x) (* 2 x))) list)) | |
| 853 @result{} double-each | |
| 854 @end group | |
| 855 @group | |
| 856 (double-each '(2 11)) | |
| 857 @result{} (4 22) | |
| 858 @end group | |
| 859 @end example | |
| 860 | |
| 861 @noindent | |
| 862 If this definition of @code{double-each} is compiled, the anonymous | |
| 863 function is compiled as well. By contrast, in the previous definition | |
| 864 where ordinary @code{quote} is used, the argument passed to | |
| 865 @code{mapcar} is the precise list shown: | |
| 866 | |
| 867 @example | |
| 868 (lambda (x) (* x 2)) | |
| 869 @end example | |
| 870 | |
| 871 @noindent | |
| 872 The Lisp compiler cannot assume this list is a function, even though it | |
| 873 looks like one, since it does not know what @code{mapcar} does with the | |
| 874 list. Perhaps @code{mapcar} will check that the @sc{car} of the third | |
| 875 element is the symbol @code{*}! The advantage of @code{function} is | |
| 876 that it tells the compiler to go ahead and compile the constant | |
| 877 function. | |
| 878 | |
| 879 We sometimes write @code{function} instead of @code{quote} when | |
| 880 quoting the name of a function, but this usage is just a sort of | |
| 881 comment. | |
| 882 | |
| 883 @example | |
| 884 (function @var{symbol}) @equiv{} (quote @var{symbol}) @equiv{} '@var{symbol} | |
| 885 @end example | |
| 886 | |
| 887 See @code{documentation} in @ref{Accessing Documentation}, for a | |
| 888 realistic example using @code{function} and an anonymous function. | |
| 889 | |
|
5791
9fae6227ede5
Silence texinfo 5.2 warnings, primarily by adding next, prev, and up
Jerry James <james@xemacs.org>
parents:
5361
diff
changeset
|
890 @node Function Cells, Inline Functions, Anonymous Functions, Functions and Commands |
| 428 | 891 @section Accessing Function Cell Contents |
| 892 | |
| 893 The @dfn{function definition} of a symbol is the object stored in the | |
| 894 function cell of the symbol. The functions described here access, test, | |
| 895 and set the function cell of symbols. | |
| 896 | |
| 897 See also the function @code{indirect-function} in @ref{Function | |
| 898 Indirection}. | |
| 899 | |
| 900 @defun symbol-function symbol | |
| 901 @kindex void-function | |
| 902 This returns the object in the function cell of @var{symbol}. If the | |
| 903 symbol's function cell is void, a @code{void-function} error is | |
| 904 signaled. | |
| 905 | |
| 906 This function does not check that the returned object is a legitimate | |
| 907 function. | |
| 908 | |
| 909 @example | |
| 910 @group | |
| 911 (defun bar (n) (+ n 2)) | |
| 912 @result{} bar | |
| 913 @end group | |
| 914 @group | |
| 915 (symbol-function 'bar) | |
| 916 @result{} (lambda (n) (+ n 2)) | |
| 917 @end group | |
| 918 @group | |
| 919 (fset 'baz 'bar) | |
| 920 @result{} bar | |
| 921 @end group | |
| 922 @group | |
| 923 (symbol-function 'baz) | |
| 924 @result{} bar | |
| 925 @end group | |
| 926 @end example | |
| 927 @end defun | |
| 928 | |
| 929 @cindex void function cell | |
| 930 If you have never given a symbol any function definition, we say that | |
| 931 that symbol's function cell is @dfn{void}. In other words, the function | |
| 932 cell does not have any Lisp object in it. If you try to call such a symbol | |
| 933 as a function, it signals a @code{void-function} error. | |
| 934 | |
| 935 Note that void is not the same as @code{nil} or the symbol | |
| 936 @code{void}. The symbols @code{nil} and @code{void} are Lisp objects, | |
| 937 and can be stored into a function cell just as any other object can be | |
| 938 (and they can be valid functions if you define them in turn with | |
| 939 @code{defun}). A void function cell contains no object whatsoever. | |
| 940 | |
| 941 You can test the voidness of a symbol's function definition with | |
| 942 @code{fboundp}. After you have given a symbol a function definition, you | |
| 943 can make it void once more using @code{fmakunbound}. | |
| 944 | |
| 945 @defun fboundp symbol | |
| 444 | 946 This function returns @code{t} if @var{symbol} has an object in its |
| 428 | 947 function cell, @code{nil} otherwise. It does not check that the object |
| 948 is a legitimate function. | |
| 949 @end defun | |
| 950 | |
| 951 @defun fmakunbound symbol | |
| 952 This function makes @var{symbol}'s function cell void, so that a | |
| 953 subsequent attempt to access this cell will cause a @code{void-function} | |
| 954 error. (See also @code{makunbound}, in @ref{Local Variables}.) | |
| 955 | |
| 956 @example | |
| 957 @group | |
| 958 (defun foo (x) x) | |
| 959 @result{} x | |
| 960 @end group | |
| 961 @group | |
| 962 (foo 1) | |
| 963 @result{}1 | |
| 964 @end group | |
| 965 @group | |
| 966 (fmakunbound 'foo) | |
| 967 @result{} x | |
| 968 @end group | |
| 969 @group | |
| 970 (foo 1) | |
| 971 @error{} Symbol's function definition is void: foo | |
| 972 @end group | |
| 973 @end example | |
| 974 @end defun | |
| 975 | |
| 976 @defun fset symbol object | |
| 977 This function stores @var{object} in the function cell of @var{symbol}. | |
| 978 The result is @var{object}. Normally @var{object} should be a function | |
| 979 or the name of a function, but this is not checked. | |
| 980 | |
| 981 There are three normal uses of this function: | |
| 982 | |
| 983 @itemize @bullet | |
| 984 @item | |
| 985 Copying one symbol's function definition to another. (In other words, | |
| 986 making an alternate name for a function.) | |
| 987 | |
| 988 @item | |
| 989 Giving a symbol a function definition that is not a list and therefore | |
| 990 cannot be made with @code{defun}. For example, you can use @code{fset} | |
| 444 | 991 to give a symbol @var{symbol1} a function definition which is another symbol |
| 992 @var{symbol2}; then @var{symbol1} serves as an alias for whatever definition | |
| 993 @var{symbol2} presently has. | |
| 428 | 994 |
| 995 @item | |
| 996 In constructs for defining or altering functions. If @code{defun} | |
| 997 were not a primitive, it could be written in Lisp (as a macro) using | |
| 998 @code{fset}. | |
| 999 @end itemize | |
| 1000 | |
| 1001 Here are examples of the first two uses: | |
| 1002 | |
| 1003 @example | |
| 1004 @group | |
| 1005 ;; @r{Give @code{first} the same definition @code{car} has.} | |
| 1006 (fset 'first (symbol-function 'car)) | |
| 1007 @result{} #<subr car> | |
| 1008 @end group | |
| 1009 @group | |
| 1010 (first '(1 2 3)) | |
| 1011 @result{} 1 | |
| 1012 @end group | |
| 1013 | |
| 1014 @group | |
| 1015 ;; @r{Make the symbol @code{car} the function definition of @code{xfirst}.} | |
| 1016 (fset 'xfirst 'car) | |
| 1017 @result{} car | |
| 1018 @end group | |
| 1019 @group | |
| 1020 (xfirst '(1 2 3)) | |
| 1021 @result{} 1 | |
| 1022 @end group | |
| 1023 @group | |
| 1024 (symbol-function 'xfirst) | |
| 1025 @result{} car | |
| 1026 @end group | |
| 1027 @group | |
| 1028 (symbol-function (symbol-function 'xfirst)) | |
| 1029 @result{} #<subr car> | |
| 1030 @end group | |
| 1031 | |
| 1032 @group | |
| 1033 ;; @r{Define a named keyboard macro.} | |
| 1034 (fset 'kill-two-lines "\^u2\^k") | |
| 1035 @result{} "\^u2\^k" | |
| 1036 @end group | |
| 1037 @end example | |
| 1038 | |
| 1039 See also the related functions @code{define-function} and | |
| 1040 @code{defalias}, in @ref{Defining Functions}. | |
| 1041 @end defun | |
| 1042 | |
| 1043 When writing a function that extends a previously defined function, | |
| 1044 the following idiom is sometimes used: | |
| 1045 | |
| 1046 @example | |
| 1047 (fset 'old-foo (symbol-function 'foo)) | |
| 1048 (defun foo () | |
| 1049 "Just like old-foo, except more so." | |
| 1050 @group | |
| 1051 (old-foo) | |
| 1052 (more-so)) | |
| 1053 @end group | |
| 1054 @end example | |
| 1055 | |
| 1056 @noindent | |
| 1057 This does not work properly if @code{foo} has been defined to autoload. | |
| 1058 In such a case, when @code{foo} calls @code{old-foo}, Lisp attempts | |
| 1059 to define @code{old-foo} by loading a file. Since this presumably | |
| 1060 defines @code{foo} rather than @code{old-foo}, it does not produce the | |
| 1061 proper results. The only way to avoid this problem is to make sure the | |
| 1062 file is loaded before moving aside the old definition of @code{foo}. | |
| 1063 | |
| 1064 But it is unmodular and unclean, in any case, for a Lisp file to | |
| 1065 redefine a function defined elsewhere. | |
| 1066 | |
|
5791
9fae6227ede5
Silence texinfo 5.2 warnings, primarily by adding next, prev, and up
Jerry James <james@xemacs.org>
parents:
5361
diff
changeset
|
1067 @node Inline Functions, Related Topics, Function Cells, Functions and Commands |
| 428 | 1068 @section Inline Functions |
| 1069 @cindex inline functions | |
| 1070 | |
| 1071 @findex defsubst | |
| 1072 You can define an @dfn{inline function} by using @code{defsubst} instead | |
| 1073 of @code{defun}. An inline function works just like an ordinary | |
| 1074 function except for one thing: when you compile a call to the function, | |
| 1075 the function's definition is open-coded into the caller. | |
| 1076 | |
| 1077 Making a function inline makes explicit calls run faster. But it also | |
| 1078 has disadvantages. For one thing, it reduces flexibility; if you change | |
| 1079 the definition of the function, calls already inlined still use the old | |
| 1080 definition until you recompile them. Since the flexibility of | |
| 1081 redefining functions is an important feature of XEmacs, you should not | |
| 1082 make a function inline unless its speed is really crucial. | |
| 1083 | |
| 1084 Another disadvantage is that making a large function inline can increase | |
| 1085 the size of compiled code both in files and in memory. Since the speed | |
| 1086 advantage of inline functions is greatest for small functions, you | |
| 1087 generally should not make large functions inline. | |
| 1088 | |
| 1089 It's possible to define a macro to expand into the same code that an | |
| 1090 inline function would execute. But the macro would have a limitation: | |
| 1091 you can use it only explicitly---a macro cannot be called with | |
| 1092 @code{apply}, @code{mapcar} and so on. Also, it takes some work to | |
| 1093 convert an ordinary function into a macro. (@xref{Macros}.) To convert | |
| 1094 it into an inline function is very easy; simply replace @code{defun} | |
| 1095 with @code{defsubst}. Since each argument of an inline function is | |
| 1096 evaluated exactly once, you needn't worry about how many times the | |
| 1097 body uses the arguments, as you do for macros. (@xref{Argument | |
| 1098 Evaluation}.) | |
| 1099 | |
| 1100 Inline functions can be used and open-coded later on in the same file, | |
| 1101 following the definition, just like macros. | |
| 1102 | |
| 1103 @c Emacs versions prior to 19 did not have inline functions. | |
| 1104 | |
|
5791
9fae6227ede5
Silence texinfo 5.2 warnings, primarily by adding next, prev, and up
Jerry James <james@xemacs.org>
parents:
5361
diff
changeset
|
1105 @node Related Topics, , Inline Functions, Functions and Commands |
| 428 | 1106 @section Other Topics Related to Functions |
| 1107 | |
| 1108 Here is a table of several functions that do things related to | |
| 1109 function calling and function definitions. They are documented | |
| 1110 elsewhere, but we provide cross references here. | |
| 1111 | |
| 1112 @table @code | |
| 1113 @item apply | |
| 1114 See @ref{Calling Functions}. | |
| 1115 | |
| 1116 @item autoload | |
| 1117 See @ref{Autoload}. | |
| 1118 | |
| 1119 @item call-interactively | |
| 1120 See @ref{Interactive Call}. | |
| 1121 | |
| 1122 @item commandp | |
| 1123 See @ref{Interactive Call}. | |
| 1124 | |
| 1125 @item documentation | |
| 1126 See @ref{Accessing Documentation}. | |
| 1127 | |
| 1128 @item eval | |
| 1129 See @ref{Eval}. | |
| 1130 | |
| 1131 @item funcall | |
| 1132 See @ref{Calling Functions}. | |
| 1133 | |
| 1134 @item ignore | |
| 1135 See @ref{Calling Functions}. | |
| 1136 | |
| 1137 @item indirect-function | |
| 1138 See @ref{Function Indirection}. | |
| 1139 | |
| 1140 @item interactive | |
| 1141 See @ref{Using Interactive}. | |
| 1142 | |
| 1143 @item interactive-p | |
| 1144 See @ref{Interactive Call}. | |
| 1145 | |
| 1146 @item mapatoms | |
| 1147 See @ref{Creating Symbols}. | |
| 1148 | |
| 1149 @item mapcar | |
| 1150 See @ref{Mapping Functions}. | |
| 1151 | |
| 1152 @item mapconcat | |
| 1153 See @ref{Mapping Functions}. | |
| 1154 | |
| 1155 @item undefined | |
| 1156 See @ref{Key Lookup}. | |
| 1157 @end table | |
| 1158 |