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:59 2002 ;;; from file d:/emacs/elib/stack-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 "`stack-m.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\210\303\304\"\301\207" [features provide stack-m delq stack-f] 3) #@29 Create an empty lifo stack. (defalias 'stack-create '(macro . #[nil "\300\207" [(cons 'STACK nil)] 1 (#$ . 681)])) #@53 Return t if STACK is a stack, otherwise return nil. (defalias 'stack-p '(macro . #[(stack) "\301\302D\303BB\207" [stack eq car-safe ('STACK)] 3 (#$ . 802)])) #@53 Push an element onto the stack. Args: STACK ELEMENT (defalias 'stack-push '(macro . #[(stack element) "\302\303 \304DEE\207" [stack element setcdr cons cdr] 6 (#$ . 967)])) #@90 Remove the topmost element from STACK and return it. If the stack is empty, return nil. (defalias 'stack-pop '(macro . #[(stack) "\301\302\303DD\304\305\303DDEE\207" [stack prog1 car-safe cdr setcdr cdr-safe] 7 (#$ . 1148)])) #@51 Return t if STACK is empty, otherwise return nil. (defalias 'stack-empty '(macro . #[(stack) "\301\302DD\207" [stack null cdr] 3 (#$ . 1384)])) #@60 Return the topmost element of STACK or nil if it is empty. (defalias 'stack-top '(macro . #[(stack) "\301\302DD\207" [stack car-safe cdr] 3 (#$ . 1535)])) #@159 Return nth element of a stack, but don't remove it. Args: STACK N If the length of the stack is less than N, return nil. The top stack element has number 0. (defalias 'stack-nth '(macro . #[(stack n) "\302\303 DE\207" [n stack nth cdr] 4 (#$ . 1698)])) #@86 Return a list of all entries in STACK. The element last pushed is first in the list. (defalias 'stack-all '(macro . #[(stack) "\301D\207" [stack cdr] 2 (#$ . 1959)])) #@63 Return a copy of STACK. All entries in STACK are also copied. (defalias 'stack-copy '(macro . #[(stack) "\301\302\303\304DDE\207" [stack cons 'STACK copy-sequence cdr] 5 (#$ . 2133)])) #@41 Return the number of elements on STACK. (defalias 'stack-length '(macro . #[(stack) "\301\302DD\207" [stack length cdr] 3 (#$ . 2325)])) #@33 Remove all elements from STACK. (defalias 'stack-clear '(macro . #[(stack) "\301\302BB\207" [stack setcdr (nil)] 3 (#$ . 2469)]))