; -*-MIDAS-*-
TITLE EXTMDF -- Midas definitions for CLASS fields

DEFINE CDEF index,prefix,parity,long,short
  prefix!short==index
  DEFINE %!long ac1,obj
    h!parity!rz ac1,prefix!short obj
  TERMIN
  DEFINE $!long ac1,obj
    hr!parith!m ac1,prefix!short obj
  TERMIN
TERMIN

IRPW SYMS,,[
CLASS,CLS        ;; CLASS of this CLASS
MARKER,MRK	 ;; Marker to distinguish classes from hunks
SENDI,SND	 ;; LSUBR-like function to jump to for SENDs to instances
SENDSYM,SNS	 ;; Original symbol or LAMBDA the LSUBR came from
CALLI,CLI	 ;; Similar to SENDI but for function calling
CALLSYM,CLS	 ;; ditto
MAPMTH,MMT	 ;; MAP-OVER-METHODS SUBR
MAPMSYM,MMS	 ;; MAP-OVER-METHODS SUBR's Symbol
MAPCLS,MCL	 ;; MAP-OVER-CLASS SUBR
MAPCSYM,MCL	 ;; MAP-OVER-CLASS SUBR's Symbol
ADMTH,ADM	 ;; Add method routine.  FUNCALLed
TYPEP,TYP	 ;; What to return to TYPEP (except in BD MacLisp)
SUPER,SUP	 ;; List of superiors, in order of search
NAME,NAM	 ;; Name of this class, short form of the var
METHD,MTH	 ;; Table (or list) of Methods.  Interpreted by SENDI slot.
ATTRI,ATR	 ;; PLIST of random information
]
IFE .irpcnt&1,	   CDEF \<.irpcnt/2>,CR$,R,SYMS	 ;Don't delete this comment
.ELSE		   CDEF \<.irpcnt/2>,CL$,L,SYMS	 ;Or this one either!
TERMIN

IRPW SYMS,,[
MNEXT,NXT	 ;; Next method in bucket chain
MNAME,NAM	 ;; Method symbol, name of method
MSUBR,SRB	 ;; LSUBR property for method, or trampoline to interpreted
MFSYM,FSY	 ;; Name of method function, for reference or trampoline
]
IFE .irpcnt&1,	   CDEF \<.irpcnt/2>,MR$,R,SYMS	 ;This comment required
.ELSE		   CDEF \<.irpcnt/2>,ML$,L,SYMS	 ;Do to MIDAS parsing stuff
TERMIN

;Local Modes: :::
;Comment Column:17 :::
;Comment Start:;;  :::
;End: :::