(FILECREATED "30-Apr-86 17:32:49" ("compiled on " . {ERIS}<COMMONLOOPS>PCL>CL-ENV-METHODS.;14) "12-Nov-85 14:59:23" "COMPILE.FILEd" in "INTERLISP-D 22-Mar-86 ..." dated "22-Mar-86 17:07:07")(FILECREATED "30-Apr-86 17:32:04" {ERIS}<COMMONLOOPS>PCL>CL-ENV-METHODS.;14 4198 changes to: (VARS CL-ENV-METHODSCOMS) (FNS ($METHOD PRINT-INSTANCE OBJECT)) previous date: "14-Mar-86 14:49:28" {ERIS}<COMMONLOOPS>PCL>CL-ENV-METHODS.;12)(PRETTYCOMPRINT CL-ENV-METHODSCOMS)(RPAQQ CL-ENV-METHODSCOMS ((P (MAKE-SPECIALIZABLE (QUOTE /PUT)) (MAKE-SPECIALIZABLE (QUOTE /PUTPROP))) (COMS (FNS ($METHOD CLASS-SOURCE CLASS) ($METHOD METHOD-SOURCE METHOD) ($METHOD DEFSTRUCT-2 CLASS) ($METHOD EXPAND-DEFSTRUCT-MAKE-DEFINITIONS CLASS) ($METHOD /PUTPROP METHOD) ($METHOD /PUT METHOD))) (COMS (* These should be loaded in this order since the last one specializes add-method) (FNS ($METHOD TYPE-SPECIFIER-SOURCE-FORM CLASS) ($METHOD TYPE-SPECIFIER-SOURCE-FORM) ($METHOD METHOD-DESCRIPTION METHOD) ($METHOD ADD-METHOD-INTERNAL DISCRIMINATOR METHOD))) (COMS (FNS ($METHOD PRINT-INSTANCE OBJECT)))))(MAKE-SPECIALIZABLE (QUOTE /PUT))(MAKE-SPECIALIZABLE (QUOTE /PUTPROP))(SETQ *CURRENT-METHOD* (LOAD-TIME-METHOD (QUOTE DISCRIMINATOR) (QUOTE METHOD) (QUOTE CLASS-SOURCE) (QUOTE (CLASS)) (QUOTE (CLASS))))(RECORD-DEFINITION (QUOTE Method% CLASS-SOURCE% CLASS) (QUOTE DEFUN) (QUOTE CLASS-SOURCE) (QUOTE DEFMETH))Method% CLASS-SOURCE% CLASS D1(I 0 CLASS)  e  g  @	  g  @	  	  hg  0@	  °d	  ¸IµHhZH&¹µíJhh0@	  °d	  ¸IµHhZH&¹µíJ	   (140Q \APPEND2 113Q SLOT-SOURCE 104Q CLASS-LOCAL-SLOTS 44Q CLASS-NAME 35Q CLASS-LOCAL-SUPERS 20Q CLASS-NAME 15Q CLASS-OF 6 CLASS-NAME)(26Q :INCLUDE 11Q :CLASS 2 NDEFSTRUCT)()(METHOD-FUNCTION% :SETF-discriminator *CURRENT-METHOD* (SYMBOL-FUNCTION (QUOTE Method% CLASS-SOURCE% CLASS)))(ADD-METHOD-INTERNAL (GET (QUOTE CLASS-SOURCE) (QUOTE DISCRIMINATOR)) *CURRENT-METHOD*)(QUOTE CLASS-SOURCE)(SETQ *CURRENT-METHOD* (LOAD-TIME-METHOD (QUOTE DISCRIMINATOR) (QUOTE METHOD) (QUOTE METHOD-SOURCE) (QUOTE (METHOD)) (QUOTE (METHOD))))(RECORD-DEFINITION (QUOTE Method% METHOD-SOURCE% METHOD) (QUOTE DEFUN) (QUOTE METHOD-SOURCE) (QUOTE DEFMETH))Method% METHOD-SOURCE% METHOD D1(P 2 METHOD-DESCRIPTION P 1 METHOD-CODE P 0 METHOD-NAME I 0 METHOD)  V  @	  Hd£	  ¹@g  
  µ$I³"@	  Jdg  
  	  µ
o   J
  
  g  @	  	  @	  I	  	   (120Q \APPEND2 115Q MAKE-ORIGINAL-SOURCE 111Q METHOD-FULL-ARGLIST 105Q DISCRIMINATOR-NAME 102Q METHOD-DISCRIMINATOR 72Q FIND-DEFMETH 67Q CL:ERROR 55Q SELECT-SOURCE-FILE 52Q WHEREIS 37Q METHOD-DESCRIPTION 26Q GET-SLOT-ALWAYS 15Q GETD 3 METHOD-FUNCTION)(76Q DEFMETH 47Q FNS 23Q EXPR)( 63Q "~%%Can't find a file for ~S.")(METHOD-FUNCTION% :SETF-discriminator *CURRENT-METHOD* (SYMBOL-FUNCTION (QUOTE Method% METHOD-SOURCE% METHOD)))(ADD-METHOD-INTERNAL (GET (QUOTE METHOD-SOURCE) (QUOTE DISCRIMINATOR)) *CURRENT-METHOD*)(QUOTE METHOD-SOURCE)(SETQ *CURRENT-METHOD* (LOAD-TIME-METHOD (QUOTE DISCRIMINATOR) (QUOTE METHOD) (QUOTE DEFSTRUCT-2) (QUOTE (CLASS)) (QUOTE (CLASS NAME DS-OPTIONS SLOTDS))))(RECORD-DEFINITION (QUOTE Method% DEFSTRUCT-2% CLASS) (QUOTE DEFUN) (QUOTE DEFSTRUCT-2) (QUOTE DEFMETH))Method% DEFSTRUCT-2% CLASS D1(I 3 SLOTDS I 2 DS-OPTIONS I 1 NAME I 0 CLASS)     o   o   @ABC  Ag  
  ¿ (26Q MARKASCHANGED 17Q RUN-SUPER-INTERNAL)(23Q CLASSES)( 7 (OR *CURRENT-METHOD* (FIND-METHOD-WITH-TYPE-SPECIFIERS (GET (QUOTE DEFSTRUCT-2) (QUOTE DISCRIMINATOR)) (QUOTE (CLASS)))) 3 (GET (QUOTE DEFSTRUCT-2) (QUOTE DISCRIMINATOR)))(METHOD-FUNCTION% :SETF-discriminator *CURRENT-METHOD* (SYMBOL-FUNCTION (QUOTE Method% DEFSTRUCT-2% CLASS)))(ADD-METHOD-INTERNAL (GET (QUOTE DEFSTRUCT-2) (QUOTE DISCRIMINATOR)) *CURRENT-METHOD*)(QUOTE DEFSTRUCT-2)(SETQ *CURRENT-METHOD* (LOAD-TIME-METHOD (QUOTE DISCRIMINATOR) (QUOTE METHOD) (QUOTE EXPAND-DEFSTRUCT-MAKE-DEFINITIONS) (QUOTE (CLASS)) (QUOTE (CLASS NAME DS-OPTIONS SLOTDS))))(RECORD-DEFINITION (QUOTE Method% EXPAND-DEFSTRUCT-MAKE-DEFINITIONS% CLASS) (QUOTE DEFUN) (QUOTE EXPAND-DEFSTRUCT-MAKE-DEFINITIONS) (QUOTE DEFMETH))Method% EXPAND-DEFSTRUCT-MAKE-DEFINITIONS% CLASS D1(I 3 SLOTDS I 2 DS-OPTIONS I 1 NAME I 0 CLASS)  /   o   o   o   @ABC  g  g  Aho   o   
   (53Q \APPEND2 23Q RUN-SUPER-INTERNAL)(31Q QUOTE 26Q UNMARKASCHANGED)( 47Q ((SETQ CHANGEDFNSLST ORIGINAL-CHANGEDFNSLST)) 41Q ((QUOTE TYPE)) 13Q (OR *CURRENT-METHOD* (FIND-METHOD-WITH-TYPE-SPECIFIERS (GET (QUOTE EXPAND-DEFSTRUCT-MAKE-DEFINITIONS) (QUOTE DISCRIMINATOR)) (QUOTE (CLASS)))) 7 (GET (QUOTE EXPAND-DEFSTRUCT-MAKE-DEFINITIONS) (QUOTE DISCRIMINATOR)) 3 (SETQ ORIGINAL-CHANGEDFNSLST CHANGEDFNSLST))(METHOD-FUNCTION% :SETF-discriminator *CURRENT-METHOD* (SYMBOL-FUNCTION (QUOTE Method% EXPAND-DEFSTRUCT-MAKE-DEFINITIONS% CLASS)))(ADD-METHOD-INTERNAL (GET (QUOTE EXPAND-DEFSTRUCT-MAKE-DEFINITIONS) (QUOTE DISCRIMINATOR)) *CURRENT-METHOD*)(QUOTE EXPAND-DEFSTRUCT-MAKE-DEFINITIONS)(SETQ *CURRENT-METHOD* (LOAD-TIME-METHOD (QUOTE DISCRIMINATOR) (QUOTE METHOD) (QUOTE /PUTPROP) (QUOTE (METHOD)) (QUOTE (METHOD TYPE DEFINITION))))(RECORD-DEFINITION (QUOTE Method% /PUTPROP% METHOD) (QUOTE DEFUN) (QUOTE /PUTPROP) (QUOTE DEFMETH))Method% /PUTPROP% METHOD D1(P 2 A4599 P 1 A4600 P 0 A4601 I 2 DEFINITION I 1 TYPE I 0 METHOD)    @A¹B	  HIJ   (22Q PUT-SLOT-ALWAYS 11Q COPY)NIL()(METHOD-FUNCTION% :SETF-discriminator *CURRENT-METHOD* (SYMBOL-FUNCTION (QUOTE Method% /PUTPROP% METHOD)))(ADD-METHOD-INTERNAL (GET (QUOTE /PUTPROP) (QUOTE DISCRIMINATOR)) *CURRENT-METHOD*)(QUOTE /PUTPROP)(SETQ *CURRENT-METHOD* (LOAD-TIME-METHOD (QUOTE DISCRIMINATOR) (QUOTE METHOD) (QUOTE /PUT) (QUOTE (METHOD)) (QUOTE (METHOD TYPE DEFINITION))))(RECORD-DEFINITION (QUOTE Method% /PUT% METHOD) (QUOTE DEFUN) (QUOTE /PUT) (QUOTE DEFMETH))Method% /PUT% METHOD D1(P 2 A4603 P 1 A4604 P 0 A4605 I 2 DEFINITION I 1 TYPE I 0 METHOD)    @A¹B	  HIJ   (22Q PUT-SLOT-ALWAYS 11Q COPY)NIL()(METHOD-FUNCTION% :SETF-discriminator *CURRENT-METHOD* (SYMBOL-FUNCTION (QUOTE Method% /PUT% METHOD)))(ADD-METHOD-INTERNAL (GET (QUOTE /PUT) (QUOTE DISCRIMINATOR)) *CURRENT-METHOD*)(QUOTE /PUT)(SETQ *CURRENT-METHOD* (LOAD-TIME-METHOD (QUOTE DISCRIMINATOR) (QUOTE METHOD) (QUOTE TYPE-SPECIFIER-SOURCE-FORM) (QUOTE (CLASS)) (QUOTE (CLASS))))(RECORD-DEFINITION (QUOTE Method% TYPE-SPECIFIER-SOURCE-FORM% CLASS) (QUOTE DEFUN) (QUOTE TYPE-SPECIFIER-SOURCE-FORM) (QUOTE DEFMETH))Method% TYPE-SPECIFIER-SOURCE-FORM% CLASS D1(I 0 CLASS)     @	   (3 CLASS-NAME)NIL()(METHOD-FUNCTION% :SETF-discriminator *CURRENT-METHOD* (SYMBOL-FUNCTION (QUOTE Method% TYPE-SPECIFIER-SOURCE-FORM% CLASS)))(ADD-METHOD-INTERNAL (GET (QUOTE TYPE-SPECIFIER-SOURCE-FORM) (QUOTE DISCRIMINATOR)) *CURRENT-METHOD*)(QUOTE TYPE-SPECIFIER-SOURCE-FORM)(SETQ *CURRENT-METHOD* (LOAD-TIME-METHOD (QUOTE DISCRIMINATOR) (QUOTE METHOD) (QUOTE TYPE-SPECIFIER-SOURCE-FORM) (QUOTE NIL) (QUOTE (X))))(RECORD-DEFINITION (QUOTE Method% TYPE-SPECIFIER-SOURCE-FORM% Default) (QUOTE DEFUN) (QUOTE TYPE-SPECIFIER-SOURCE-FORM) (QUOTE DEFMETH))Method% TYPE-SPECIFIER-SOURCE-FORM% Default D1(L (0 X))     @ NILNIL()(METHOD-FUNCTION% :SETF-discriminator *CURRENT-METHOD* (SYMBOL-FUNCTION (QUOTE Method% TYPE-SPECIFIER-SOURCE-FORM% Default)))(ADD-METHOD-INTERNAL (GET (QUOTE TYPE-SPECIFIER-SOURCE-FORM) (QUOTE DISCRIMINATOR)) *CURRENT-METHOD*)(QUOTE TYPE-SPECIFIER-SOURCE-FORM)(SETQ *CURRENT-METHOD* (LOAD-TIME-METHOD (QUOTE DISCRIMINATOR) (QUOTE METHOD) (QUOTE METHOD-DESCRIPTION) (QUOTE (METHOD)) (QUOTE (METHOD))))(RECORD-DEFINITION (QUOTE Method% METHOD-DESCRIPTION% METHOD) (QUOTE DEFUN) (QUOTE METHOD-DESCRIPTION) (QUOTE DEFMETH))Method% METHOD-DESCRIPTION% METHOD D1(I 0 METHOD)  1  g  @	  	  0@	  °d	  ¸IµHhZH&¹µíJ	   (54Q \APPEND2 27Q TYPE-SPECIFIER-SOURCE-FORM 20Q METHOD-TYPE-SPECIFIERS 11Q DISCRIMINATOR-NAME 6 METHOD-DISCRIMINATOR)(2 $METHOD)()(METHOD-FUNCTION% :SETF-discriminator *CURRENT-METHOD* (SYMBOL-FUNCTION (QUOTE Method% METHOD-DESCRIPTION% METHOD)))(ADD-METHOD-INTERNAL (GET (QUOTE METHOD-DESCRIPTION) (QUOTE DISCRIMINATOR)) *CURRENT-METHOD*)(QUOTE METHOD-DESCRIPTION)(SETQ *CURRENT-METHOD* (LOAD-TIME-METHOD (QUOTE DISCRIMINATOR) (QUOTE METHOD) (QUOTE ADD-METHOD-INTERNAL) (QUOTE (DISCRIMINATOR METHOD)) (QUOTE (DISCRIMINATOR METHOD))))(RECORD-DEFINITION (QUOTE Method% ADD-METHOD-INTERNAL% DISCRIMINATOR% METHOD) (QUOTE DEFUN) (QUOTE ADD-METHOD-INTERNAL) (QUOTE DEFMETH))Method% ADD-METHOD-INTERNAL% DISCRIMINATOR% METHOD D1(I 1 METHOD I 0 DISCRIMINATOR)  #   o   o   @A  A	  A
  ¿A	  g  
  ¿ (37Q MARKASCHANGED 31Q METHOD-DESCRIPTION 24Q CHANGE-COMPILED-CODE-NAME 20Q METHOD-FUNCTION 14Q RUN-SUPER-INTERNAL)(34Q FNS)( 7 (OR *CURRENT-METHOD* (FIND-METHOD-WITH-TYPE-SPECIFIERS (GET (QUOTE ADD-METHOD-INTERNAL) (QUOTE DISCRIMINATOR)) (QUOTE (DISCRIMINATOR METHOD)))) 3 (GET (QUOTE ADD-METHOD-INTERNAL) (QUOTE DISCRIMINATOR)))(METHOD-FUNCTION% :SETF-discriminator *CURRENT-METHOD* (SYMBOL-FUNCTION (QUOTE Method% ADD-METHOD-INTERNAL% DISCRIMINATOR% METHOD)))(ADD-METHOD-INTERNAL (GET (QUOTE ADD-METHOD-INTERNAL) (QUOTE DISCRIMINATOR)) *CURRENT-METHOD*)(QUOTE ADD-METHOD-INTERNAL)(SETQ *CURRENT-METHOD* (LOAD-TIME-METHOD (QUOTE DISCRIMINATOR) (QUOTE METHOD) (QUOTE PRINT-INSTANCE) (QUOTE (OBJECT)) (QUOTE (INSTANCE STREAM DEPTH))))(RECORD-DEFINITION (QUOTE Method% PRINT-INSTANCE% OBJECT) (QUOTE DEFUN) (QUOTE PRINT-INSTANCE) (QUOTE DEFMETH))Method% PRINT-INSTANCE% OBJECT D1(P 0 SLOT-PLIST I 2 DEPTH I 1 STREAM I 0 INSTANCE F 2 \CML.READPREFIX)  r Ro   
  A
  @	  	  A
  o   A
  @	  °Bdo   A
  ¿o   H
  A
  ¿o   A
  ¿HYdždiðª3µ	g  IhA
  µ¿o   A
   (157Q PRIN1 141Q PRIN2 107Q PRIN1 76Q PRIN2 72Q PACK* 60Q PRIN1 42Q ALL-SLOTS 36Q PRIN1 26Q PRIN2 22Q CLASS-NAME 17Q CLASS-OF 13Q PRIN1 7 CONCAT)(131Q QUOTE)( 153Q ")" 103Q " " 65Q ":" 54Q " " 32Q ")" 4 ".(MAKE (QUOTE ")(METHOD-FUNCTION% :SETF-discriminator *CURRENT-METHOD* (SYMBOL-FUNCTION (QUOTE Method% PRINT-INSTANCE% OBJECT)))(ADD-METHOD-INTERNAL (GET (QUOTE PRINT-INSTANCE) (QUOTE DISCRIMINATOR)) *CURRENT-METHOD*)(QUOTE PRINT-INSTANCE)(PUTPROPS CL-ENV-METHODS COPYRIGHT ("Xerox Corporation" 1986))STOP