SAVED LISP OBJECT  DEFUN GLOBAL  RECEIVE-OBJECT SYSTEM-INTERNALS STREAM &AUX TEMP1 TEMP2 INDEX SETQ SEND TYI KEYWORD  COND  =  OPCODE OBJECT-ASSIGN-INDEX  RECEIVEI    OBJECT-OF-INDEX AREF *OBJ-ARRAY*    OBJECT-NIL   OBJECT-T   POSITIVE-INTEGER    NEGATIVE-INTEGER -    SYMBOL INTERN   IF SET-OBJ-ARRAY   SIMPLE-STRING  MAKE-ARRAY TYPE QUOTE ART-STRING STRING-IN   SIMPLE-ARRAY-ART-8B  ART-8B   SIMPLE-NAMED-STRUCTURE   NAMED-STRUCTURE-SYMBOL ART-Q  DO J 1+  SETF    SIMPLE-ARRAY-ART-Q  DOTIMES    SIMPLE-CHARACTER CODE-CHAR   HAIRY-CHARACTER   LIST  MAKE-LIST CDR NULL RPLACA    LIST*  MAKE-LIST*  RETURN RPLACD  CERROR return NIL "unknown object opcode received: ~D