From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 14 Aug 2022 16:29:17 +0000 (-0400)
Subject: * lisp/emacs-lisp/ring.el (ring): Define as a type
X-Git-Tag: emacs-29.0.90~1447^2~164
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3a9c803f24d3919ba308acc43fb3be468d23775e;p=emacs.git

* 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 2b2039f9d15..e8b92a532fa 100644
--- 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."