Import guile-1.8 as multiple upstream tarball component

[lilypond.git] / guile18 / lang / elisp / primitives / symprop.scm

diff --git a/guile18/lang/elisp/primitives/symprop.scm b/guile18/lang/elisp/primitives/symprop.scm
new file mode 100644 (file)
index 0000000..8f10fd8
--- /dev/null
+++ b/guile18/lang/elisp/primitives/symprop.scm
@@ -0,0 +1,40 @@
+(define-module (lang elisp primitives symprop)
+  #:use-module (lang elisp internals evaluation)
+  #:use-module (lang elisp internals fset)
+  #:use-module (lang elisp internals null)
+  #:use-module (lang elisp internals set)
+  #:use-module (ice-9 optargs))
+
+;;; {Elisp Exports}
+
+(fset 'put set-symbol-property!)
+
+(fset 'get (lambda->nil symbol-property))
+
+(fset 'set set)
+
+(fset 'set-default 'set)
+
+(fset 'boundp
+      (lambda (sym)
+       (->nil (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)
+           %nil)))
+
+(fset 'local-variable-if-set-p
+      (lambda* (variable #:optional buffer)
+       %nil))
+
+(fset 'symbol-name symbol->string)