Skip to content

Instantly share code, notes, and snippets.

@AeroNotix

AeroNotix/stupid.lisp Secret

Created September 14, 2020 13:09
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save AeroNotix/18e84ced24ba9775328aa581dea2ac5c to your computer and use it in GitHub Desktop.
Save AeroNotix/18e84ced24ba9775328aa581dea2ac5c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
stupid.lisp
(defmacro make-stupid-function (name)
(let ((arg-list (loop for i upto call-arguments-limit
collect (gensym))))
`(defun ,name ,arg-list
,arg-list)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment