: record-final-info ( word -- )
    dup def>> final-info >quotation "outputs" set-word-prop ;

:: lookup-specialized ( #call word n -- special-word/f )
    #call in-d>> n tail* >array [ value-info class>> ] map
    dup [ object = ] all? [ drop f ] [
        word "specialized-defs" word-prop [
            [ declare ] curry word def>> compose
            word stack-effect evil-define-temp
            dup record-final-info
            1quotation
        ] cache
    ] if ;