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)) 7 8;;; {Elisp Exports} 9 10(fset 'put set-symbol-property!) 11 12(fset 'get (lambda->nil symbol-property)) 13 14(fset 'set set) 15 16(fset 'set-default 'set) 17 18(fset 'boundp 19 (lambda (sym) 20 (->nil (module-defined? the-elisp-module sym)))) 21 22(fset 'default-boundp 'boundp) 23 24(fset 'symbol-value 25 (lambda (sym) 26 (value sym #t))) 27 28(fset 'default-value 'symbol-value) 29 30(fset 'symbolp 31 (lambda (object) 32 (or (symbol? object) 33 (keyword? object) 34 %nil))) 35 36(fset 'local-variable-if-set-p 37 (lambda* (variable #:optional buffer) 38 %nil)) 39 40(fset 'symbol-name symbol->string) 41