;ELC   
;;; compiled by roland@churchy.gnu.ai.mit.edu on Thu Jun 23 20:59:56 1994
;;; from file /gd/gnu/emacs/19.0/lisp/ring.el
;;; emacs version 19.25.13.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/gd/gnu/emacs/19.0/lisp/ring.el' was compiled for Emacs 19"))

(defalias 'ring-p #[(x) ":… @¨… A:… A@¨… ÁAA!‡" [x vectorp] 2 "\
Returns t if X is a ring; nil otherwise."])
(defalias 'make-ring #[(size) "À‰Á\nÃ\"BB‡" [0 make-vector size nil] 5 "\
Make a ring that can contain SIZE elements."])
(defalias 'ring-insert-at-beginning #[(ring item) "AA‰G@A@\n\fT^Å\n\"	Iˆ ˆA\f ,‡" [ring vec veclen hd ln ring-minus1 item] 4 "\
Add to RING the item ITEM.  Add it at the front (the early end)."])
(defalias 'ring-plus1 #[(index veclen) "Á\\‰Uƒ Ä‚ \n)‡" [index 1 new-index veclen 0] 3 "\
INDEX+1, with wraparound"])
(defalias 'ring-minus1 #[(index veclen) "ÁUƒ\n \n‚ ÃZ‡" [index 0 veclen 1] 2 "\
INDEX-1, with wraparound"])
(defalias 'ring-length #[(ring) "A@‡" [ring] 1 "\
Number of elements in the ring."])
(byte-code "ÀÁÂ\"ˆÀÃÄ\"‡" [defalias ring-empty-p #[(ring) "A@ÁU‡" [ring 0] 2] ring-index #[(index head ringlen veclen) "À	\n\"À\n	Z\\S\f\"‡" [mod index ringlen head veclen] 4]] 3)
(defalias 'ring-insert #[(ring item) "AA‰G@A@	Å\f\\\n\"I\f\nUƒ( Ç\n\" ˆ‚. A\fT ˆ,‡" [ring vec veclen hd ln mod item ring-plus1] 6 "\
Insert onto ring RING the item ITEM, as the newest (last) item.
If the ring is full, dump the oldest item to make room."])
(defalias 'ring-remove #[(ring &optional index) "À	!ƒ\n ÂÃ!‡	@	A@	AA‰GÈ\f\\S\"	Ê\f„0 S\fÍ\f\f$\f\fH\f	U„d \fÎ\f\"HIˆÎ\f\"‰\f‚C 	ÊIˆ	AS ˆ.‡" [ring-empty-p ring error "Ring empty" hd ln vec veclen mod tl nil oldelt index ring-index ring-plus1] 7 "\
Remove an item from the RING.  Return the removed item.
If optional INDEX is nil, remove the oldest item.  If it's
numeric, remove the element indexed."])
(defalias 'ring-ref #[(ring index) "À	!ƒ\n ÂÃ!‡	@	A@	AA‰Ç\fG$H+‡" [ring-empty-p ring error "indexed empty ring" hd ln vec ring-index index] 7 "\
Returns RING's INDEX element.
INDEX need not be <= the ring length, the appropriate modulo operation
will be performed.  Element 0 is the most recently inserted; higher indices
correspond to older elements until they wrap."])
(provide (quote ring))