;ELC ;;; Compiled ;;; in Emacs version 30.2 ;;; with all optimizations. (defconst obarray-default-size 4)#@11 (fn OB) (make-obsolete-variable 'obarray-default-size "obarrays now grow automatically." "30.1") (defalias 'obarray-size #[257 "\207" [obarray-default-size] 2 (#$ . 117)])#@96 Return symbol named NAME if it is contained in obarray OB. Return nil otherwise. (fn OB NAME) (make-obsolete 'obarray-size "obarrays now grow automatically." "30.1") (defalias 'obarray-get #[514 "\300\"\207" [intern-soft] 5 (#$ . 297)])#@106 Return symbol named NAME from obarray OB. Creates and adds the symbol if it doesn't exist. (fn OB NAME) (defalias 'obarray-put #[514 "\300\"\207" [intern] 5 (#$ . 543)])#@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 (#$ . 722)])#@76 Call function FN on every symbol in obarray OB and return nil. (fn FN OB) (defalias 'obarray-map #[514 "\300\"\207" [mapatoms] 5 (#$ . 909)]) (provide 'obarray)