[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-macs.el

[Juanma Barranquero]

Index: emacs/lisp/emacs-lisp/cl-macs.el
diff -c emacs/lisp/emacs-lisp/cl-macs.el:1.39 
emacs/lisp/emacs-lisp/cl-macs.el:1.40
*** emacs/lisp/emacs-lisp/cl-macs.el:1.39       Mon Feb 10 16:45:14 2003
--- emacs/lisp/emacs-lisp/cl-macs.el    Tue May  6 13:37:04 2003
***************
*** 486,492 ****
  Each clause looks like (KEYLIST BODY...).  EXPR is evaluated and compared
  against each key in each KEYLIST; the corresponding BODY is evaluated.
  If no clause succeeds, case returns nil.  A single atom may be used in
! place of a KEYLIST of one atom.  A KEYLIST of `t' or `otherwise' is
  allowed only in the final clause, and matches if no other keys match.
  Key values are compared by `eql'."
    (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym)))
--- 486,492 ----
  Each clause looks like (KEYLIST BODY...).  EXPR is evaluated and compared
  against each key in each KEYLIST; the corresponding BODY is evaluated.
  If no clause succeeds, case returns nil.  A single atom may be used in
! place of a KEYLIST of one atom.  A KEYLIST of t or `otherwise' is
  allowed only in the final clause, and matches if no other keys match.
  Key values are compared by `eql'."
    (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym)))
***************
*** 523,529 ****
    "Evals EXPR, chooses from CLAUSES on that value.
  Each clause looks like (TYPE BODY...).  EXPR is evaluated and, if it
  satisfies TYPE, the corresponding BODY is evaluated.  If no clause succeeds,
! typecase returns nil.  A TYPE of `t' or `otherwise' is allowed only in the
  final clause, and matches if no other keys match."
    (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym)))
         (type-list nil)
--- 523,529 ----
    "Evals EXPR, chooses from CLAUSES on that value.
  Each clause looks like (TYPE BODY...).  EXPR is evaluated and, if it
  satisfies TYPE, the corresponding BODY is evaluated.  If no clause succeeds,
! typecase returns nil.  A TYPE of t or `otherwise' is allowed only in the
  final clause, and matches if no other keys match."
    (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym)))
         (type-list nil)