* lisp/emacs-lisp/ring.el (ring): Define as a type

diff --git a/lisp/emacs-lisp/ring.el b/lisp/emacs-lisp/ring.el
index 2b2039f9d1561f44061fbf2d54f4f5abb8f15660..e8b92a532fa3588343cfe008d0090d42a08ba1e9 100644 (file)
--- a/lisp/emacs-lisp/ring.el
+++ b/lisp/emacs-lisp/ring.el
@@ -42,6 +42,8 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'cl-lib))
+
 ;;; User Functions:
 
 ;;;###autoload
@@ -51,6 +53,8 @@
        (consp (cdr x)) (integerp (cadr x))
        (vectorp (cddr x))))
 
+(cl-deftype ring () '(satisfies ring-p))
+
 ;;;###autoload
 (defun make-ring (size)
   "Make a ring that can contain SIZE elements."