# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 852703788 0
# Node ID 7fe3a413068d8b70b4c65ace8acb020ee54ffe64
# Parent  adc714dc8e3c219f712b5af1eae08b892e29a853
(when, unless): Definitions moved to subr.el.

diff -r adc714dc8e3c -r 7fe3a413068d lisp/emacs-lisp/cl.el
--- a/lisp/emacs-lisp/cl.el	Wed Jan 08 06:09:02 1997 +0000
+++ b/lisp/emacs-lisp/cl.el	Wed Jan 08 06:09:48 1997 +0000
@@ -218,14 +218,6 @@
 ;;; These macros are so simple and so often-used that it's better to have
 ;;; them all the time than to load them from cl-macs.el.
 
-(defmacro when (cond &rest body)
-  "(when COND BODY...): if COND yields non-nil, do BODY, else return nil."
-  (list 'if cond (cons 'progn body)))
-
-(defmacro unless (cond &rest body)
-  "(unless COND BODY...): if COND yields nil, do BODY, else return nil."
-  (cons 'if (cons cond (cons nil body))))
-
 (defun cl-map-extents (&rest cl-args)
   (if (fboundp 'next-overlay-at) (apply 'cl-map-overlays cl-args)
     (if (fboundp 'map-extents) (apply 'map-extents cl-args))))