summaryrefslogtreecommitdiff
path: root/lang/elisp/primitives/symprop.scm
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)