'If ·x· is a class table then the binding of the atom in ·y· will be

    fetched.'

to leech field bits : ptr (

    isnew?(:ptr)

    CODE 27)

    'Lets you subscript any instance

    a[0] gives you the class, a[1] gives the first field, etc.

    a[2] gives you the pointer; a[2]&   returns the BITS in an integer

    a[2]_foo will dereference count previous contents, but a[2]&_ foo

    will not.'

to atom x y (CODE 29

    '%_?(:x.  !x -- Lookup SELF and replace its value by x.)

    %eval?(! -- Lookup the binding of SELF)

    %=?(!SELF=:)

    %chars?(! -- printname of SELF (a string))'

    %is?(ISIT eval)

    %print?(disp_SELF chars) )

    'Done this way (PUT used rather than using ·to·) because we

    wanted to know where the system classes are. Hence the initial

    ·to atom x y ()· , for example, in ·Bootstrapping Magic· followed

    by the behavior here.'

0