;ELC   
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defalias 'rtree-make-node '(macro . #[0 "\300\207" [(list (list nil) nil)] 1]))
#@18 

(fn NODE LEFT)
(defalias 'rtree-set-left '(macro . #[514 "\300\301DE\207" [setcar cdr] 5 (#$ . 489)]))
#@19 

(fn NODE RIGHT)
(defalias 'rtree-set-right '(macro . #[514 "\300\301DE\207" [setcdr cdr] 5 (#$ . 602)]))
#@19 

(fn NODE RANGE)
(defalias 'rtree-set-range '(macro . #[514 "\300E\207" [setcar] 5 (#$ . 717)]))
#@13 

(fn NODE)
(defalias 'rtree-low '(macro . #[257 "\300D\207" [caar] 3 (#$ . 823)]))
#@13 

(fn NODE)
(defalias 'rtree-high '(macro . #[257 "\300D\207" [cdar] 3 (#$ . 914)]))
#@20 

(fn NODE NUMBER)
(defalias 'rtree-set-low '(macro . #[514 "\300\301DE\207" [setcar car] 5 (#$ . 1006)]))
#@20 

(fn NODE NUMBER)
(defalias 'rtree-set-high '(macro . #[514 "\300\301DE\207" [setcdr car] 5 (#$ . 1121)]))
#@13 

(fn NODE)
(defalias 'rtree-left '(macro . #[257 "\300D\207" [cadr] 3 (#$ . 1237)]))
#@13 

(fn NODE)
(defalias 'rtree-right '(macro . #[257 "\300D\207" [cddr] 3 (#$ . 1330)]))
#@13 

(fn NODE)
(defalias 'rtree-range '(macro . #[257 "\300D\207" [car] 3 (#$ . 1424)]))
#@14 

(fn RANGE)
(defalias 'rtree-normalize-range #[257 "\211\247\203\n \211B\262\207" [] 3 (#$ . 1517)])
(byte-code "\300\301\302\303#\210\304\305\301\306#\210\307\305\301\310#\207" [put rtree-normalize-range byte-optimizer byte-compile-inline-expand defalias rtree-normalise-range nil make-obsolete "25.1"] 4)
#@39 Make an rtree from RANGE.

(fn RANGE)
(defalias 'rtree-make #[257 "\211\243<\204\n \211C\262\300\301BG\"\207" [rtree-make-1 nil] 4 (#$ . 1833)])
#@21 

(fn RANGE LENGTH)
(defalias 'rtree-make-1 #[514 "\211\300\245\301C\301D\302V\203 \211A\303\"\240\210\211A@\211\247\203# \211B\262\240\210\211AA\241\210\304\305#\302V\203C \211A\303\304\305#\"\241\210\207" [2 nil 0 rtree-make-1 - 1] 11 (#$ . 1987)])
#@64 Return non-nil if NUMBER is present in TREE.

(fn TREE NUMBER)
(defalias 'rtree-memq #[514 "\203* \211@@Y\203 \211@AX\204* \211@@W\203\" A@\202% AA\262\202  \207" [] 4 (#$ . 2259)])
#@39 Add NUMBER to TREE.

(fn TREE NUMBER)
(defalias 'rtree-add #[514 "\205\340 \211@@Y\203 \211@AX\203 \300\262\202  \211@@W\203\201 \211@@SU\203Y @\240\210A@\203S A@@ASU\203S @A@@@\240\210AA@A@\240\210\300\262\202  A@\203g A@\262\202  \300C\300D\211@\240\210\211@\241\210A\240\210\300\262\210\202  \211@ATU\203\270 @\241\210AA\203\262 AA@@TU\203\262 @AA@A\241\210AAAAA\241\210\300\262\202  AA\203\306 AA\262\202  \300C\300D\211@\240\210\211@\241\210A\241\210\300\262\210\202  \207" [nil] 5 (#$ . 2456)])
#@81 Remove NUMBER from TREE destructively.  Returns the new tree.

(fn TREE NUMBER)
(defalias 'rtree-delq #[514 "\300\2037@@W\203 \262A@\262\202 @AV\203, \262AA\262\202 @@@AU\203\223 A@\203g AA\203g \211AA\211A@\203W \211\262\211A@\262\202F @\240\210AAA\240\266\2021A@\206p AA\204z \211\262\202\217 A@=\203\212 A\240\210\202\217 A\241\210\210\2021@@U\203\244 @T\240\210\2021@AU\203\265 @S\241\210\2021\300C\300D\211@@@\240\210\211@S\241\210@T\240\210A@\203\362 AA\203\362 A@\211AA\203\351 \211AA\262\202\333 \211A\241\266\2020A@\203+\211A\241\210\211AA@\240\210A\300\240\210\204\211\262\2020A@=\203#A\240\210\2020A\241\210\2020A\240\210\210\300\262\202 \207" [nil] 8 (#$ . 3008)])
#@40 Convert TREE to range form.

(fn TREE)
(defalias 'rtree-extract #[257 "\300\211\204\n \203A \203 B\262AA\262\202 \211A\262\242\262@@@AU\2033 @@\2025 @B\262A@\262\202 \207" [nil] 5 (#$ . 3778)])
#@57 Return the number of numbers stored in TREE.

(fn TREE)
(defalias 'rtree-length #[257 "\211\204 \300\207\301\302A@!@A@@ZT\302AA!#\207" [0 + rtree-length] 6 (#$ . 4000)])
(provide 'rtree)