HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
32a9496
)
guile-elisp defsubst
author
Robin Templeton
<robin@terpri.org>
Mon, 11 Aug 2014 11:01:49 +0000
(07:01 -0400)
committer
Robin Templeton
<robin@terpri.org>
Mon, 20 Apr 2015 04:29:03 +0000
(
00:29
-0400)
lisp/emacs-lisp/byte-run.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/emacs-lisp/byte-run.el
b/lisp/emacs-lisp/byte-run.el
index
55b508f
..
68f541a
100644
(file)
--- a/
lisp/emacs-lisp/byte-run.el
+++ b/
lisp/emacs-lisp/byte-run.el
@@
-286,18
+286,6
@@
The return value is undefined.
;; (list 'put x ''byte-optimizer nil)))
;; fns)))
;; (list 'put x ''byte-optimizer nil)))
;; fns)))
-(defmacro defsubst (name arglist &rest body)
- "Define an inline function. The syntax is just like that of `defun'.
-\(fn NAME ARGLIST &optional DOCSTRING DECL &rest BODY)"
- (declare (debug defun) (doc-string 3))
- (or (memq (get name 'byte-optimizer)
- '(nil byte-compile-inline-expand))
- (error "`%s' is a primitive" name))
- `(prog1
- (defun ,name ,arglist ,@body)
- (eval-and-compile
- (put ',name 'byte-optimizer 'byte-compile-inline-expand))))
-
(defvar advertised-signature-table (make-hash-table :test 'eq :weakness 'key))
(defun set-advertised-calling-convention (function signature _when)
(defvar advertised-signature-table (make-hash-table :test 'eq :weakness 'key))
(defun set-advertised-calling-convention (function signature _when)