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 @@ ...@@ -38,10 +38,7 @@
(not (member '&allow-other-keys args :test #'eq))) (not (member '&allow-other-keys args :test #'eq)))
(let ((tail (member '&aux args :test #'eq))) (let ((tail (member '&aux args :test #'eq)))
(setq lambda-expression (setq lambda-expression
`(lambda ,(nconc (ldiff args tail) `(lambda (,.(ldiff args tail) &allow-other-keys ,@tail) ,@body))))
(list '&allow-other-keys)
tail)
,@body))))
(values (values
lambda-expression lambda-expression
(let ((documentation (parse-method-body body 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