* lisp/autorevert.el: Use cl-lib instead of cl.

2 files changed, 10 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b90a5ecd11e..665620ff375 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-01-12  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+        * autorevert.el: Use cl-lib instead of cl.
+
         * vc/vc-bzr.el (vc-bzr--sanitize-header): New function (bug#13307).
         (vc-bzr-checkin): Use it.
         * vc/log-edit.el (log-edit-extract-headers): Don't presume FUNCTION
diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index e78cecf0cc2..fae2b88b3e2 100644
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -97,7 +97,7 @@
 
 ;; Dependencies:
 
-(eval-when-compile (require 'cl))
+(eval-when-compile (require 'cl-lib))
 (require 'timer)
 
 ;; Custom Group:
@@ -527,14 +527,14 @@ will use an up-to-date value of `auto-revert-interval'"
       (ignore-errors
         ;; Check, that event is meant for us.
         ;; TODO: Filter events which stop watching, like `move' or `removed'.
-        (assert descriptor)
-        (when (featurep 'inotify) (assert (memq 'modify descriptor)))
-        (when (featurep 'w32notify) (assert (eq 'modified descriptor)))
-        (assert (bufferp buffer))
+        (cl-assert descriptor)
+        (when (featurep 'inotify) (cl-assert (memq 'modify descriptor)))
+        (when (featurep 'w32notify) (cl-assert (eq 'modified descriptor)))
+        (cl-assert (bufferp buffer))
         (when (stringp file)
-          (assert (string-equal
-                   (directory-file-name file)
-                   (directory-file-name (buffer-file-name buffer)))))
+          (cl-assert (string-equal
+                      (directory-file-name file)
+                      (directory-file-name (buffer-file-name buffer)))))
 
         ;; Mark buffer modified.
         (with-current-buffer buffer