forget* ( defspec -- )

Vocabulary

definitions

Inputs

defspec

an object

Outputs

None

See also

FORGET:, forget, forget-vocab

Definition

IN: definitions

GENERIC: forget* ( defspec -- )

Methods

USING: classes definitions generic kernel ;

M: class forget*
    [ M\ class forget* (call-next-method) ] [ forget-class ] bi
    ;


USING: definitions delegate.private kernel ;

M: consultation forget*
    [ unconsult-methods ] [ unregister-consult ] bi ;


USING: definitions generic kernel peg.ebnf sequences words ;

M: ebnf-word forget*
    [ M\ ebnf-word forget* (call-next-method) ]
    [ "ebnf-quot" word-prop first first forget ] bi ;


USING: definitions kernel ;

M: f forget* drop ;


USING: accessors definitions help help.topics ;

M: link forget* name>> remove-article ;


USING: definitions multi-methods sequences ;

M: method-spec forget* unclip method forget* ;


USING: classes.private definitions generic kernel words ;

M: method forget*
    dup "forgotten" word-prop
    [ drop ] [
        [
            dup default-method?
            [ drop ] [
                [
                    [ "method-class" word-prop ]
                    [ "method-generic" word-prop ] bi
                    2dup ?lookup-method
                ] keep eq? [
                    [ ~quotation~ with-methods ]
                    [ ~quotation~ with-implementors ] 2bi
                    reset-caches
                ] [ 2drop ] if
            ] if
        ] [ M\ method forget* (call-next-method) ] bi
    ] if ;


USING: classes.mixin classes.mixin.private definitions kernel ;

M: mixin-instance forget*
    >mixin-instance< dup mixin-class?
    [ remove-mixin-instance ] [ 2drop ] if ;


USING: accessors definitions io.pathnames source-files ;

M: pathname forget* string>> forget-source ;


USING: classes definitions generic kernel words ;

M: predicate forget*
    [ M\ predicate forget* (call-next-method) ]
    [ "predicating" remove-word-prop ] bi ;


USING: definitions delegate delegate.private generic kernel ;

M: protocol forget*
    [ f forget-old-definitions ]
    [ M\ protocol forget* (call-next-method) ] bi ;


USING: definitions help.tips kernel namespaces sequences ;

M: tip forget* tips get remove-eq! drop ;


USING: definitions vocabs ;

M: vocab-spec forget* forget-vocab ;


USING: accessors definitions help help.topics ;

M: word-link forget* name>> remove-word-help ;


USING: accessors assocs definitions kernel vocabs words ;

M: word forget*
    dup "forgotten" word-prop
    [ drop ] [
        [ subwords forget-all ] [
            [ name>> ] [ vocabulary>> vocab-words-assoc ] bi
            delete-at
        ] [ t "forgotten" set-word-prop ] tri
    ] if ;


USING: accessors definitions kernel ;

M: wrapper forget* wrapped>> forget ;