# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1595808661 14400
# Node ID 54ec08936d37874c40e996b3f11eae64e534114d
# Parent  f077c455877a7b42eaa531ebb944536eb740c0d3
Make defun-inline's lambda list more explicit

diff -r f077c455877a -r 54ec08936d37 src/chili-dogs.lisp
--- 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))