blob: 4ca1692261077fd45eca47b8656935815be1d4d1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
(define-module (lang elisp primitives symprop)
#:use-module (lang elisp internals set)
#:use-module (lang elisp internals fset)
#:use-module (lang elisp internals evaluation)
#:use-module (ice-9 optargs))
;;; {Elisp Exports}
(fset 'put set-symbol-property!)
(fset 'get symbol-property)
(fset 'set set)
(fset 'set-default 'set)
(fset 'boundp
(lambda (sym)
(module-defined? the-elisp-module sym)))
(fset 'default-boundp 'boundp)
(fset 'symbol-value
(lambda (sym)
(value sym #t)))
(fset 'default-value 'symbol-value)
(fset 'symbolp
(lambda (object)
(or (symbol? object)
(keyword? object))))
(fset 'local-variable-if-set-p
(lambda* (variable #:optional buffer)
#f))
(fset 'symbol-name symbol->string)
|