Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Do not warn for valid lambda list keywords.

  • Loading branch information...
commit 8e5d7376d946330b4eecdd77bf25b0797e542df0 1 parent 5a051ba
@tpapp authored
Showing with 3 additions and 2 deletions.
  1. +3 −2 let-plus.lisp
View
5 let-plus.lisp
@@ -99,9 +99,10 @@ form (accessor value subscripts)."
semantics of returned values.")
(:method (first rest value body)
;; forms not recognized as anything else are destructured
- (when (and (symbolp first) (eql (aref (symbol-name first) 0) #\&))
+ (when (and (symbolp first) (eql (aref (symbol-name first) 0) #\&)
+ (not (find first lambda-list-keywords)))
(warn "~A looks like a LET+ keyword, but it has no expansion method ~
- defined. Treating it as a list." first))
+ defined. Treating it as a lambda list." first))
(let ((form (cons first rest)))
(multiple-value-bind (form ignored) (replace-ignored form)
`(destructuring-bind ,form ,value
Please sign in to comment.
Something went wrong with that request. Please try again.