Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php on line 456
;ELC
;;; Compiled by leavens@CMC3251632-A on Fri Aug 09 22:33:57 2002
;;; from file d:/emacs/elib/queue-m.el
;;; in Emacs version 21.2.1
;;; with bytecomp version 2.85
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19.29")))
(error "`queue-m.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\301\302!\210\303\304\"\301\207" [features provide queue-m delq queue-f] 3)
#@29 Create an empty fifo queue.
(defalias 'queue-create '(macro . #[nil "\300\207" [(cons 'QUEUE (cons nil nil))] 1 (#$ . 681)]))
#@53 Return t if QUEUE is a queue, otherwise return nil.
(defalias 'queue-p '(macro . #[(queue) "\301\302D\303BB\207" [queue eq car-safe ('QUEUE)] 3 (#$ . 813)]))
#@52 Enter an element into a queue.
Args: QUEUE ELEMENT
(defalias 'queue-enqueue #[(queue element) "\303B\nA@\204 \nA\nA \241\240\202 \nAA \241\210\nA \241)\207" [element elementcell queue nil] 3 (#$ . 978)])
#@96 Remove the first element of QUEUE and return it.
If QUEUE is empty, return nil and do nothing.
(defalias 'queue-dequeue #[(queue) "A@??\205 A@@AA@A\240\210A@\204 A\301\241\210\207" [queue nil] 3 (#$ . 1192)])
#@51 Return t if QUEUE is empty, otherwise return nil.
(defalias 'queue-empty '(macro . #[(queue) "\301\302\303DDD\207" [queue null car cdr] 4 (#$ . 1415)]))
#@86 Return the first element of QUEUE or nil if it is empty.
The element is not removed.
(defalias 'queue-first '(macro . #[(queue) "\301\302\303DDD\207" [queue car-safe car cdr] 4 (#$ . 1575)]))
#@176 Return the nth element of a queue, but don't remove it.
Args: QUEUE N
If the length of the queue is less than N, return nil.
The oldest element (the first one) has number 0.
(defalias 'queue-nth '(macro . #[(queue n) "\302\303\304 DDE\207" [n queue nth car cdr] 5 (#$ . 1775)]))
#@57 Return the last element of QUEUE or nil if it is empty.
(defalias 'queue-last '(macro . #[(queue) "\301\302\211DDD\207" [queue car-safe cdr] 4 (#$ . 2062)]))
#@121 Return a list of all elements of QUEUE or nil if it is empty.
The oldest element in the queue is the first in the list.
(defalias 'queue-all '(macro . #[(queue) "\301\302DD\207" [queue car cdr] 3 (#$ . 2228)]))
#@64 Return a copy of QUEUE. All entries in QUEUE are also copied.
(defalias 'queue-copy #[(queue) "\303A@!\211\211A\203 \nA\211\202 \304 \n*BB\207" [queue first last copy-sequence QUEUE] 4 (#$ . 2446)])
#@41 Return the number of elements in QUEUE.
(defalias 'queue-length '(macro . #[(queue) "\301\302\303DDD\207" [queue length car cdr] 4 (#$ . 2658)]))
#@33 Remove all elements from QUEUE.
(defalias 'queue-clear '(macro . #[(queue) "\301\302BB\207" [queue setcdr ((cons nil nil))] 3 (#$ . 2811)]))