ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/obarray.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; 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 (#$ . 410))
#@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 (#$ . 528)])
#@48 Return t if OBJECT is an obarray.
(fn OBJECT)
(defalias 'obarrayp #[257 "\300!\205\n \301GW\207" [vectorp 0] 3 (#$ . 795)])
#@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 (#$ . 928)])
#@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 (#$ . 1103)])
#@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 (#$ . 1281)])
#@76 Call function FN on every symbol in obarray OB and return nil.
(fn FN OB)
(defalias 'obarray-map #[514 "\300\"\207" [mapatoms] 5 (#$ . 1470)])
(provide 'obarray)
Kontol Shell Bypass