CL-USER> (defun foo (&key bar) bar)
FOO

CL-USER> (unintern :bar :keyword)
T

CL-USER> (sb-introspect:function-lambda-list #'foo)
(&KEY BAR)
NIL