summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/ring.el
diff options
context:
space:
mode:
authorPhilip Kaludercic <philipk@posteo.net>2022-08-18 09:23:45 +0200
committerPhilip Kaludercic <philipk@posteo.net>2022-08-18 09:23:45 +0200
commitd3f03666bbd6c506d65650c33413df826f502065 (patch)
tree52c932f10280cc9a63a4cebb2a673b5e49a5a0d2 /lisp/emacs-lisp/ring.el
parent57e16b316d76b77de4252b7923eab8199b8c3fd5 (diff)
parent9f26a8d31b1c7e6a596ca0933f327df5ac60463d (diff)
downloademacs-d3f03666bbd6c506d65650c33413df826f502065.tar.gz
emacs-d3f03666bbd6c506d65650c33413df826f502065.tar.bz2
emacs-d3f03666bbd6c506d65650c33413df826f502065.zip
Merge remote-tracking branch 'origin/master' into feature/package+vc
Diffstat (limited to 'lisp/emacs-lisp/ring.el')
-rw-r--r--lisp/emacs-lisp/ring.el4
1 files changed, 4 insertions, 0 deletions
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."