Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Silence a style-warning about suspicios &mandatory-key in defun*

  • Loading branch information...
commit 5e43b23b7bad91be7b53dd343123f18513ec4324 1 parent 44e378e
@trebb authored
Showing with 2 additions and 1 deletion.
  1. +2 −1  util.lisp
View
3  util.lisp
@@ -41,7 +41,8 @@ keyargs is missing."
after-key-position))
(when after-key-position
(subseq lambda-list after-key-position))))))
- `(defun ,name ,lambda-list ,@body))
+ `(defun ,name ,(delete (intern (string '&mandatory-key)) lambda-list)
+ ,@body))
(defmacro logged-query (message-tag &rest args)
"Act like postmodern:query; additionally log some debug information
Please sign in to comment.
Something went wrong with that request. Please try again.