guile18/lang/elisp/primitives/symprop.scm

   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)