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

Fancier version of creating lambda forms in ECL's make-method-lambda.

Ignore-this: 76e21cc4f3ec6cdf657c54fcb2a362c3

darcs-hash:834888463a3cefd51ee165181de59e04a6c5802b
parent 3a1e5333
......@@ -38,10 +38,7 @@
(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))))
`(lambda (,.(ldiff args tail) &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