Returns the ultimate parent of a subfunction dspec.
subfunction
dspec-progenitor dspec => result
dspec
A dspec.
result
The function dspec-progenitor returns a dspec result which is the ultimate parent of a subfunction dspec argument dspec.
dspec-progenitor
If the argument dspec is not a local dspec, it is simply returned.
Note that result is not necessarily a canonical dspec.
(dspec-progenitor
'(subfunction 1 (subfunction (flet a) (defun foo))))
=>
(defun foo)
local-dspec-p
LispWorks User Guide and Reference Manual - 13 Feb 2015