From e8584a75c8f26ad4d0cd14571e43d708acb39acb Mon Sep 17 00:00:00 2001 From: Robin Templeton Date: Mon, 11 Aug 2014 07:01:49 -0400 Subject: [PATCH] guile-elisp defsubst --- lisp/emacs-lisp/byte-run.el | 12 ------------ 1 file changed, 12 deletions(-) diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index 55b508fd9f..68f541af80 100644 --- 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))) -(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) -- 2.20.1