Plaster
New
List
Login
common-lisp
default
anonymous
2021.03.17 19:59:40
(defmacro command-defining-macro-no-moonbot (name command-type) `(defmacro ,name (name args doc-string &body body) (alexandria:with-gensyms (command fun) `(let* ((,fun (lambda (community room message ,@(args-from-validation-lists ',args)) (declare (ignorable message)) (progn ,@(list-of-lists->validators ',args)) (locally ,@body))) (,command (make-command ,',command-type ',name ,doc-string ',args ,fun)) (add-command ,command))))))
Raw
Annotate
Repaste
Edit