/[emacs]/emacs/lisp/emacs-lisp/cl-macs.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/cl-macs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.39 by monnier, Mon Feb 10 21:45:14 2003 UTC revision 1.40 by lektu, Tue May 6 17:37:04 2003 UTC
# Line 486  The result of the body appears to the co Line 486  The result of the body appears to the co
486  Each clause looks like (KEYLIST BODY...).  EXPR is evaluated and compared  Each clause looks like (KEYLIST BODY...).  EXPR is evaluated and compared
487  against each key in each KEYLIST; the corresponding BODY is evaluated.  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  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  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.  allowed only in the final clause, and matches if no other keys match.
491  Key values are compared by `eql'."  Key values are compared by `eql'."
492    (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym)))    (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym)))
# Line 523  Key values are compared by `eql'." Line 523  Key values are compared by `eql'."
523    "Evals EXPR, chooses from CLAUSES on that value.    "Evals EXPR, chooses from CLAUSES on that value.
524  Each clause looks like (TYPE BODY...).  EXPR is evaluated and, if it  Each clause looks like (TYPE BODY...).  EXPR is evaluated and, if it
525  satisfies TYPE, the corresponding BODY is evaluated.  If no clause succeeds,  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  typecase returns nil.  A TYPE of t or `otherwise' is allowed only in the
527  final clause, and matches if no other keys match."  final clause, and matches if no other keys match."
528    (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym)))    (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym)))
529           (type-list nil)           (type-list nil)

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26