| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. #@67 The value 59 is an arbitrary prime number that gives a good hash. (defconst obarray-default-size 59 (#$ . 84)) #@83 Return a new obarray of size SIZE or `obarray-default-size'. (fn &optional SIZE) (defalias 'obarray-make #[256 "\211\206 \301W\203 \302\301\"\207\303\304\305\"\207" [obarray-default-size 0 make-vector signal wrong-type-argument (size 0)] 5 (#$ . 201)]) #@52 Return the number of slots of obarray OB. (fn OB) (defalias 'obarray-size #[257 "\211G\207" [] 2 (#$ . 466)]) #@48 Return t if OBJECT is an obarray. (fn OBJECT) (defalias 'obarrayp #[257 "\300!\205\n \301GW\207" [vectorp 0] 3 (#$ . 583)]) #@96 Return symbol named NAME if it is contained in obarray OB. Return nil otherwise. (fn OB NAME) (defalias 'obarray-get #[514 "\300\"\207" [intern-soft] 5 (#$ . 716)]) #@103 Return symbol named NAME from obarray OB. Creates and adds the symbol if doesn't exist. (fn OB NAME) (defalias 'obarray-put #[514 "\300\"\207" [intern] 5 (#$ . 891)]) #@110 Remove symbol named NAME if it is contained in obarray OB. Return t on success, nil otherwise. (fn OB NAME) (defalias 'obarray-remove #[514 "\300\"\207" [unintern] 5 (#$ . 1068)]) #@76 Call function FN on every symbol in obarray OB and return nil. (fn FN OB) (defalias 'obarray-map #[514 "\300\"\207" [mapatoms] 5 (#$ . 1257)]) (provide 'obarray)