# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 949098554 0
# Node ID 82ee2e8bf67c2528240196fce2a84fa6519a7d0a
# Parent  a681b4de47a11161a2754647054b5da9e58a59bb
Remove stuff for dotimes, dolist, push, pop.
Don't use lisp-indent-hook property.
(cl-abs): Remove.

diff -r a681b4de47a1 -r 82ee2e8bf67c lisp/emacs-lisp/cl.el
--- a/lisp/emacs-lisp/cl.el	Fri Jan 28 22:14:30 2000 +0000
+++ b/lisp/emacs-lisp/cl.el	Fri Jan 28 22:29:14 2000 +0000
@@ -291,11 +291,6 @@
   "T if INTEGER is even."
   (eq (logand x 1) 0))
 
-(defun cl-abs (x)
-  "Return the absolute value of ARG."
-  (if (>= x 0) x (- x)))
-(or (fboundp 'abs) (defalias 'abs 'cl-abs))   ; This is built-in to Emacs 19
-
 (defvar *random-state* (vector 'cl-random-state-tag -1 30 (cl-random-time)))
 
 ;;; We use `eval' in case VALBITS differs from compile-time to load-time.
@@ -609,7 +604,7 @@
 	  ("cl-macs" t
 	   defun* defmacro* function* destructuring-bind eval-when
 	   load-time-value case ecase typecase etypecase
-	   block return return-from loop do do* dolist dotimes do-symbols
+	   block return return-from loop do do* do-symbols
 	   do-all-symbols psetq progv flet labels macrolet symbol-macrolet
 	   lexical-let lexical-let* multiple-value-bind multiple-value-setq
 	   locally the declare define-setf-method defsetf define-modify-macro
@@ -638,7 +633,6 @@
 	  ((do do*) 2 ((&rest &or symbolp (symbolp &optional form form))
 		       (form &rest form)
 		       &rest form))
-	  ((dolist dotimes) 1 ((symbolp form &rest form) &rest form))
 	  ((do-symbols) 1 ((symbolp form &optional form form) &rest form))
 	  ((do-all-symbols) 1 ((symbolp form &optional form) &rest form))
 	  ((psetq setf psetf) nil edebug-setq-form)
@@ -649,7 +643,7 @@
 	   ((&rest &or symbolp (symbolp form)) &rest form))
 	  ((multiple-value-bind) 2 ((&rest symbolp) &rest form))
 	  ((multiple-value-setq) 1 ((&rest symbolp) &rest form))
-	  ((incf decf remf pop push pushnew shiftf rotatef) nil (&rest form))
+	  ((incf decf remf pushnew shiftf rotatef) nil (&rest form))
 	  ((letf letf*) 1 ((&rest (&rest form)) &rest form))
 	  ((callf destructuring-bind) 2 (sexp form &rest form))
 	  ((callf2) 3 (sexp form form &rest form))