1 (define-module (lang elisp primitives fns)
2 #:use-module (lang elisp internals set)
3 #:use-module (lang elisp internals fset)
4 #:use-module (lang elisp internals null))
9 (fset 'apply elisp-apply)
12 (lambda (function . args)
13 (elisp-apply function args)))
21 (if (interactive-specification (fref sym)) #t %nil)))
25 (->nil (variable? (symbol-fref sym)))))
27 (fset 'symbol-function fref/error-if-void)
29 (fset 'macroexpand macroexpand)
33 (->nil (not (not-subr? obj)))))
35 (fset 'byte-code-function-p
41 (for-each (lambda (hooksym)
42 (for-each (lambda (fn)