54ec08936d37

Make defun-inline's lambda list more explicit
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Sun, 26 Jul 2020 20:11:01 -0400
parents f077c455877a
children aee9ba1c4913
branches/tags (none)
files src/chili-dogs.lisp

Changes

--- a/src/chili-dogs.lisp	Sun Dec 15 13:12:36 2019 -0500
+++ b/src/chili-dogs.lisp	Sun Jul 26 20:11:01 2020 -0400
@@ -13,10 +13,10 @@
      (declaim (notinline ,name))
      ',name))
 
-(defmacro defun-inline (name &body body)
+(defmacro defun-inline (name args &body body)
   "Like `defun`, but declaims `name` to be `inline`."
   `(progn
      (declaim (inline ,name))
-     (defun ,name ,@body)
+     (defun ,name ,args ,@body)
      ',name))