Current File : //proc/self/root/kunden/kunden/proc/thread-self/root/usr/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\301
W\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\301
GW\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)