diff options
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 05932062d74..f861aa546e3 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el | |||
| @@ -486,7 +486,7 @@ The result of the body appears to the compiler as a quoted constant." | |||
| 486 | Each clause looks like (KEYLIST BODY...). EXPR is evaluated and compared | 486 | Each clause looks like (KEYLIST BODY...). EXPR is evaluated and compared |
| 487 | against each key in each KEYLIST; the corresponding BODY is evaluated. | 487 | against each key in each KEYLIST; the corresponding BODY is evaluated. |
| 488 | If no clause succeeds, case returns nil. A single atom may be used in | 488 | If no clause succeeds, case returns nil. A single atom may be used in |
| 489 | place of a KEYLIST of one atom. A KEYLIST of `t' or `otherwise' is | 489 | place of a KEYLIST of one atom. A KEYLIST of t or `otherwise' is |
| 490 | allowed only in the final clause, and matches if no other keys match. | 490 | allowed only in the final clause, and matches if no other keys match. |
| 491 | Key values are compared by `eql'." | 491 | Key values are compared by `eql'." |
| 492 | (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym))) | 492 | (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym))) |
| @@ -523,7 +523,7 @@ Key values are compared by `eql'." | |||
| 523 | "Evals EXPR, chooses from CLAUSES on that value. | 523 | "Evals EXPR, chooses from CLAUSES on that value. |
| 524 | Each clause looks like (TYPE BODY...). EXPR is evaluated and, if it | 524 | Each clause looks like (TYPE BODY...). EXPR is evaluated and, if it |
| 525 | satisfies TYPE, the corresponding BODY is evaluated. If no clause succeeds, | 525 | satisfies TYPE, the corresponding BODY is evaluated. If no clause succeeds, |
| 526 | typecase returns nil. A TYPE of `t' or `otherwise' is allowed only in the | 526 | typecase returns nil. A TYPE of t or `otherwise' is allowed only in the |
| 527 | final clause, and matches if no other keys match." | 527 | final clause, and matches if no other keys match." |
| 528 | (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym))) | 528 | (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym))) |
| 529 | (type-list nil) | 529 | (type-list nil) |