From 3a9c803f24d3919ba308acc43fb3be468d23775e Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 14 Aug 2022 12:29:17 -0400 Subject: [PATCH] * lisp/emacs-lisp/ring.el (ring): Define as a type --- lisp/emacs-lisp/ring.el | 4 ++++ 1 file changed, 4 insertions(+) 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." -- 2.39.5