1 |
(define-module (lang elisp primitives symprop) |
(define-module (lang elisp primitives symprop) |
|
#:use-module (lang elisp internals set) |
|
|
#:use-module (lang elisp internals fset) |
|
2 |
#:use-module (lang elisp internals evaluation) |
#: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)) |
#:use-module (ice-9 optargs)) |
7 |
|
|
8 |
;;; {Elisp Exports} |
;;; {Elisp Exports} |
17 |
|
|
18 |
(fset 'boundp |
(fset 'boundp |
19 |
(lambda (sym) |
(lambda (sym) |
20 |
(module-defined? the-elisp-module sym))) |
(->nil (module-defined? the-elisp-module sym)))) |
21 |
|
|
22 |
(fset 'default-boundp 'boundp) |
(fset 'default-boundp 'boundp) |
23 |
|
|
30 |
(fset 'symbolp |
(fset 'symbolp |
31 |
(lambda (object) |
(lambda (object) |
32 |
(or (symbol? object) |
(or (symbol? object) |
33 |
(keyword? object)))) |
(keyword? object) |
34 |
|
%nil))) |
35 |
|
|
36 |
(fset 'local-variable-if-set-p |
(fset 'local-variable-if-set-p |
37 |
(lambda* (variable #:optional buffer) |
(lambda* (variable #:optional buffer) |
38 |
#f)) |
%nil)) |
39 |
|
|
40 |
(fset 'symbol-name symbol->string) |
(fset 'symbol-name symbol->string) |