Skip to content
Snippets Groups Projects
Commit 80f93fe8 authored by ram's avatar ram
Browse files

Merged Simon Leinen's fix to generic-function-type-from-lambda-list which makes

it work for &allow-other-keys.
parent 793c3054
No related branches found
No related tags found
No related merge requests found
......@@ -124,11 +124,11 @@
,@(when (or (and old-ftype (function-type-keyp old-ftype))
keyp)
'(&key))
,@(when (or (and old-ftype (function-type-allowp old-ftype))
allowp)
'(&allow-other-keys))
,@(mapcar #'(lambda (name)
`(,name t))
(union old-keys
(mapcar #'keyword-spec-name keys))))
(mapcar #'keyword-spec-name keys)))
,@(when (or (and old-ftype (function-type-allowp old-ftype))
allowp)
'(&allow-other-keys)))
*))))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment