Current File : //usr/local/share/emacs/27.2/lisp/obarray.elc
;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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@67 The value 59 is an arbitrary prime number that gives a good hash.
(defconst obarray-default-size 59 (#$ . 408))
#@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\"\202 \303\304\305\"\207" [obarray-default-size 0 make-vector signal wrong-type-argument (size 0)] 5 (#$ . 526)])
#@52 Return the number of slots of obarray OB.
(fn OB)
(defalias 'obarray-size #[257 "\211G\207" [] 2 (#$ . 793)])
#@48 Return t if OBJECT is an obarray.
(fn OBJECT)
(defalias 'obarrayp #[257 "\300!\205\n \301GW\207" [vectorp 0] 3 (#$ . 910)])
#@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 (#$ . 1043)])
#@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 (#$ . 1219)])
#@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 (#$ . 1397)])
#@76 Call function FN on every symbol in obarray OB and return nil.
(fn FN OB)
(defalias 'obarray-map #[514 "\300\"\207" [mapatoms] 5 (#$ . 1586)])
(provide 'obarray)
Mini Shell