Permalink
Browse files

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

  • Loading branch information...
1 parent 44e378e commit 5e43b23b7bad91be7b53dd343123f18513ec4324 @trebb committed Jun 14, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 util.lisp
View
@@ -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

0 comments on commit 5e43b23

Please sign in to comment.