1 (define-module (lang elisp primitives symprop)
2 #:use-module (lang elisp internals evaluation)
3 #:use-module (lang elisp internals fset)
4 #:use-module (lang elisp internals null)
5 #:use-module (lang elisp internals set)
6 #:use-module (ice-9 optargs))
10 (fset 'put set-symbol-property!)
12 (fset 'get (lambda->nil symbol-property))
16 (fset 'set-default 'set)
20 (->nil (module-defined? the-elisp-module sym))))
22 (fset 'default-boundp 'boundp)
28 (fset 'default-value 'symbol-value)
36 (fset 'local-variable-if-set-p
37 (lambda* (variable #:optional buffer)
40 (fset 'symbol-name symbol->string)