Commit ae409767 authored by Pascal Costanza's avatar Pascal Costanza
Browse files

Added insertion of &allow-other-keys for ECL.

Ignore-this: 3d3eb6b2ad0cab2d0b456da36b61dcbe

darcs-hash:f56c3985b32eca6de99dc1cdf8d236e37cdc016c
parent fc1e3cc0
......@@ -33,8 +33,15 @@
(destructuring-bind
(lambda (&rest args) &body body)
lambda-expression
(declare (ignore args))
(assert (eq lambda 'lambda))
(when (and (member '&key args :test #'eq)
(not (member '&allow-other-keys args :test #'eq)))
(let ((tail (member '&aux args :test #'eq)))
(setq lambda-expression
`(lambda ,(nconc (ldiff args tail)
(list '&allow-other-keys)
tail)
,@body))))
(values
lambda-expression
(let ((documentation (parse-method-body body lambda-expression)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment