                 "compiled-uses"
                 "constraints"
                 "declared-effect"
+                "default"
+                "default-method"
                 "default-output-classes"
+                "derived-from"
                 "identities"
                 "if-intrinsics"
                 "infer"

        21 setenv
    ] [ drop ] if ;

: finish-deploy ( final-image -- )
    "Finishing up" show
    >r { } set-datastack r>
    { } set-retainstack
    V{ } set-namestack
    V{ } set-catchstack
    
    "Saving final image" show
    [ save-image-and-exit ] call-clear ;


                "loc"
                "members"
                "methods"
                "method-class"
                "method-generic"
                "combination"
                "cannot-infer"
                "no-compile"
                "optimizer-hooks"
                "output-classes"
                "participants"
                "predicate"
                "predicate-definition"
                "predicating"
                "tuple-dispatch-generic"
                "slots"
                "slot-names"
                "specializer"
