;"*** Object Definitions. ***" ;"A DU (Description Unit) models a package - created during using/loading. The same structure is used to model definition modules: the distinction between packages and definition modules is the presence or absence of the internal oblist in the DU, respectively." ;"Internal oblist." DU-ENTRIES ;"Entrys." DU-RENTRIES ;"Rentrys." DU-USES ;"Packages used." DU-EXPORTS ;"Packages exported." DU-INCLUDES ;"Definitions included." DU-SPECIAL ;"Special forms." DU-MARKED > ;"If du is used by toplevel du." ;"Macros for un/marking DUs." > > >> ;"An ABSTRACTION is used for accumulating forms that will appear in abstract. It is a vector of four queues, one for each of the four kinds of forms that appear in an abstract: SETG, NEWTYPE and PUT-DECL, MANIFEST, GDECL." ;"SETG forms." A-GTAIL ;"Tail of above." A-TYPES ;"NEWTYPE, PUT-DECL forms." A-TTAIL ;"Tail of above." A-CONST ;"MANIFEST atoms." A-DECLS LIST> ;"Body of GDECL form." ;"NEW-ABSTRACTION - Return an empty abstraction." ) >> ;"ENQ-GVAL - Append to gvals queue of ABSTRACTION." ))) '#DECL ((A) ABSTRACTION (TAIL) ) ' .TAIL> '>>  ;"ENQ-TYPE - Append PUT-DECL, NEWTYPE, NEW-CHANNEL-TYPE FORM to types queue of ABSTRACTION." ) ' .TAIL> '>> ;"ENQ-CONST - Add ATOM to const (MANIFEST) list of ABSTRACTION." )>>> ;"ENQ-DECL - Add decl D for N to decls (GDECL) list of ABSTRACTION." )) '#DECL ((AA) ABSTRACTION (NN) ATOM (DD) (DECLS) LIST) ' ) (T >> .DD> )> ) (>> )>>)>>> ;"BLURB - Concatenate and print several strings to OUTCHAN if ABSTRACT-NOISY?."

>)>> ;"SORTA, SORTS - Sort vectors of atoms and strings" .VV) (T .VV)>>> .VV) (T .VV> .VV)>>> ;"EXTRACT-NM1 - Get the first name from a file spec." ) '(NAME1 )) '#DECL ((CH) (NAME1) STRING) ' '.NAME1>>  ;"*** Definitions which depend on implementation of MDL environment. ***" ;"External." ;"NEWTYPE-ATOM? - Return false if TYPE-NAME is not the name of a new type." -6> ',OLD-TYPES>>> ;"NEWTYPE-OBJECT - Return false if type of OBJECT is not a new type." > -6> ',OLD-TYPES>> ;"Offsets for extracting interesting things from msubrs and macros." >> >> >> >> >> ;"MSUBR-IMVECTOR - Return the mvector of the imsubr associated with MSUBR." >>>> ;"MSUBR-IMSUBR - Return the imsubr associated with MSUBR." >>