home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / guile / 1.8 / lang / elisp / primitives / symprop.scm < prev    next >
Encoding:
Text File  |  2008-12-17  |  827 b   |  41 lines
  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.